SpecialFolder auch unter Win2000 holen ?
Verfasst: 28.01.2011 14:53
Momentan benutze ich folgenden Code, um bspw. den Appdata-Ordner zu bekommen:
Die darin enthaltenen Api-Funktionen sind aber erst mit Windows XP vorhanden. Wie kann ich diese Procedure auch Windows 2000 & eventuell 98 tauglich machen?
Ich glaube mich zu erinnern, dass ts-soft mal einen Code gepostet hatte, aber den kann ich irgendwie nicht finden...
Code: Alles auswählen
Procedure.s PathSpecialGet(CSIDL)
Protected FolderID
Protected Result.s = Space(#MAX_PATH)
If SHGetSpecialFolderLocation_(0, CSIDL, @FolderID) = #NOERROR
If SHGetPathFromIDList_(FolderID, @Result) = #True
If Right(Result, 1) <> "\" : Result + "\" : EndIf
EndIf
CoTaskMemFree_(FolderID)
EndIf
ProcedureReturn Result
EndProcedure
Debug PathSpecialGet(#CSIDL_APPDATA)Ich glaube mich zu erinnern, dass ts-soft mal einen Code gepostet hatte, aber den kann ich irgendwie nicht finden...