XProfan

window 500,500
 $H Windows.ph
declare Key$,Handle&,Count%,Error&
declare Result#:dim Result#,256
Key$=readini$("HKEY_0",".prf","")+"\Shell"
Error&=~RegOpenKeyEx(~HKEY_CLASSES_ROOT,addr(Key$),0,~KEY_ENUMERATE_SUB_KEYS,addr(Handle&))

whilenot Error&-- 0 = OK

    Error&=~RegEnumKey(Handle&,Count%,Result#,256)
    case Error&:break
    print readini$("HKEY_0",Key$+"\"+string$(Result#,0)+"\Command","")
    inc Count%

endwhile

~RegCloseKey(Handle&)
dispose Result#
waitkey

window 500,500
declare Exe#:dim Exe#,260
var File$="X:Test.prf"---------existierende(!) Datei
var OK&=external("shell32","FindExecutableA",addr(File$),0,Exe#)
case OK&<=32:print "Fehler:",OK&--Fehlercodes siehe @WinExec
print string$(Exe#,0)
dispose Exe#
waitkey

var size& = External("Kernel32","GetEnvironmentVariableA","XPR_RUNTIME",spec#,261)
var indir$ = string$(spec#,0)

 {$COMPILER ...}
 {$RUNTIME ...}