SpecialFolder auch unter Win2000 holen ?

[c4s]

Momentan benutze ich folgenden Code, um bspw. den Appdata-Ordner zu bekommen:

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)

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...

[jojo1541]

eventuell

Code: Alles auswählen

Debug GetEnvironmentVariable("appdata") + "\"

?

[c4s]

Ich denke ich habe mich da vertan. Die von mir gepostete Funktion läuft wohl ebenfalls bestens auf Windows 2000 und sogar 98.