XProfan

getdir.programs{//Gibt als String den Pfad des Programmverzeichnisses des Users wieder.

    string s=space$(999)// oder max_path = 260
    bool r=external("Shell32","SHGetSpecialFolderPathA",0,ADDR(s),38,0)
    return if(s=="", readini$("HKEY_2","SOFTWARE\\Microsoft\\Windows\\CurrentVersion", "ProgramFilesDir"),if(r==true,trim$(s)+"\\",""))

}

CLS
print getprogramsdir()
Waitinput

Proc getprogramsdir

    Var s$=space$(999)
    Var r&=external("Shell32","SHGetSpecialFolderPathA",0,ADDR(s$),38,0)
    return if(s$="", readini$("HKEY_2","SOFTWARE\\Microsoft\\Windows\\CurrentVersion", "ProgramFilesDir"),if(r&=1,trim$(s$)+"\\",""))

EndProc