CONST ssfPROGRAMS = 2
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder2 = Shell.NameSpace(ssfPROGRAMS)
DIM FolderItem = Folder2.Self
DIM FolderItemVerbs = FolderItem.Verbs
FOR FolderItemVerb IN FolderItemVerbs
PRINT FolderItemVerb.Name
NEXT
CONST ssfDESKTOP = 0
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder2 = Shell.NameSpace(ssfDESKTOP)
DIM FolderItem = Folder2.Self
DIM FolderItemVerbs = FolderItem.Verbs()
FOR FolderItemVerb IN FolderItemVerbs
IF POS("&O", FolderItemVerb.Name) <> 0 THEN FolderItemVerb.DoIt()
NEXT
IF POS("&O", FolderItemVerb.Name) <> 0 THEN FolderItemVerb.DoIt()
IF POS("&O", ) 0 THEN FolderItemVerb.DoIt()
右クリックメニュー取得
UWSC
CONST ssfDESKTOP = 0
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfDESKTOP)
DIM FolderItem = Folder.ParseName("log.txt")
DIM FolderItemVerbs = FolderItem.Verbs
FOR FolderItemVerb IN FolderItemVerbs
PRINT FolderItemVerb.Name
NEXT
CONST ssfPRINTERS = 4
DIM Shell = CREATEOLEOBJ("Shell.Application")
DIM Folder = Shell.NameSpace(ssfPRINTERS)
DIM FolderItems = Folder.Items
HASHTBL iColumn
FOR n = 0 TO 350
iColumn[Folder.GetDetailsOf(EMPTYPARAM, n)] = n
NEXT
FOR n = 0 TO FolderItems.Count - 1
DIM FolderItem = FolderItems.Item(n)
DIM PrinterName = Folder.GetDetailsOf(FolderItem, iColumn["名前"])
FOR i = 0 TO FolderItem.Verbs.Count - 1
IF POS("通常使うプリンターに設定", FolderItem.Verbs.Item(i).Name) <> 0 THEN CONTINUE 2
NEXT
PRINT PrinterName
BREAK
NEXT