XProfan

window 600,400
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
var File$="C:Test.html"--Irgendeine existierende Datei
var Shell&=ocxCreate("Shell.Application")-------Shell-Objekt
var Folder&=ocxMethod(Shell&,"NameSpace",$11)---Folder-Objekt ($11 = ssfDRIVES)
var File&=ocxMethod(Folder&,"ParseName",File$)--FolderItem-Objekt
var VerbCol&=ocxMethod(File&,"Verbs")-----------VerbCollection-Objekt
var Count%=ocxGet(VerbCol&,"Count")-------------Anzahl Verbs in Collection
declare Verb&

whileloop 0,Count%

    Verb&=ocxMethod(VerbCol&,"Item",&loop)-------Verb-Objekt (Verb = Menü-Kommando)
    print &loop,":",ocxGet(Verb&,"Name")
    ocxRelease(Verb&)

endwhile

--Aufruf eines Verbs erfolgt über Index in der VerbCollection:
var Index%=0--Hier: 1. Kommando (meist "Öffnen")
Verb&=ocxMethod(VerbCol&,"Item",Index%)--Verb-Objekt
ocxMethod(Verb&,"DoIt")------------------Verb ausführen
ocxRelease(Verb&)
ocxRelease(VerbCol&,File&,Folder&,Shell&)
ocxDeInit()
waitinput

window 600,400
 $H Windows.ph
 $H ocx3a.ph
 $I ocx3a.inc
ocxInit()
usermessages 16
var File$="C:Test.html"--Irgendeine existierende Datei
declare Control&
var Object$="WebViewFolderIcon.WebViewFolderIcon"
var Object&=ocxCreate(Object$,%hwnd,10,30,36,36,$50800000,addr(Control&))
ocxPut(Object&,"Path",File$)
print "Mit Rechts auf das Icon klicken!"

while 1

    waitinput
    case %umessage=16:break

endwhile

ocxRelease(Object&)
destroywindow(Control&)
ocxDeInit()