XProfan

cls
print app.getIdeExe();
done
waitinput
end

app.getIdeExe{

    string fle_xprofanExe=trim$(substr$(readIni$(HKEY_0,XProfanDatei\shell\Open\Command,),1,q))
    case (fle_xprofanExe==) or (fileExists(fle_xprofanExe)==false) : return
    string fle_ideExe=notlastsubstr(fle_xprofanExe,\)+\XProfedFree.exe

    if (fle_ideExe==) or (fileExists(fle_ideExe)==false) {

        fle_ideExe=notlastsubstr(fle_xprofanExe,\)+\XProfed.exe
        case (fle_ideExe==) or (fileExists(fle_ideExe)==false) : return

    }

    return fle_ideExe

}

notlastsubstr(string s,d){return del$(s,len(s,d),1,d)}

[Registry]
Root: HKCR; SubKey: .prf; ValueType: STRING; ValueData: XProfanDatei; Flags: uninsdeletevalue
Root: HKCR; SubKey: .xprf; ValueType: STRING; ValueData: XProfanDatei; Flags: uninsdeletevalue
Root: HKCR; SubKey: XProfanDatei; ValueType: STRING; ValueData: XProfan Quellcode; Flags: uninsdeletevalue
Root: HKCR; SubKey: XProfanDateiShellOpenCommand; ValueType: STRING; ValueData: {app}profan.exe %1; Flags: uninsdeletevalue
Root: HKCR; SubKey: .prc; ValueType: STRING; ValueData: XProfanCode; Flags: uninsdeletevalue
Root: HKCR; SubKey: XProfanCode; ValueType: STRING; ValueData: XProfan Bytecode; Flags: uninsdeletevalue
Root: HKCR; SubKey: XProfanCodeShellOpenCommand; ValueType: STRING; ValueData: {app}prfrun32.exe %1; Flags: uninsdeletevalue

Declare root$,file$,bereich#
DEF SearchTreeForFile(3) ! IMAGEHLP,SearchTreeForFile
Dim bereich#,1024
Cls
Print Starte...
root$=C:
file$=XProfEd.exe
SearchTreeForFile(addr(root$),addr(file$),bereich#)
file$=String$(bereich#,0)
Print file$
WaitInput
Dispose bereich#
End