Das kannst du per CSIDL_PROFILE rausfinden, einfach
Unit ShlObj einbinden und dann bspw. ne Funktion machen:
Delphi-Quellcode:
function GetProfileDir: String;
begin
SetLength(Result, MAX_PATH);
SHGetSpecialFolderPath(Application.Handle, PChar(Result), $0028, False); // $0028 -> CSIDL_PROFILE
Result := PChar(Result);
end;
Mit anderen Ids gehts, aber CSIDL_PROFILE hat er irgendwie nicht, daher habe ich direkt den Wert $0028 genommen, weitere Infos in der
MSDN:
Link.
MfG Pr0g