@DeddyH
Gut, das ist diesmal glaube ich die richtige Form der Direktübergabe.
Aber... SHGetSpecialFolderPath kann auch fehlschlagen und GetSpecialFolder könnte dann irgendein Wert ausgeben, mit dem man nichts zu tun haben möchte.
Daher:
Delphi-Quellcode:
function GetSpecialFolder(Folder: Integer): String;
begin
SetLength(Result,MAX_PATH);
If SHGetSpecialFolderPath(0, PChar(Result), Folder, false)
then SetLength(Result,StrLen(PChar(Result)))
else Result:='';
end;
Hmmm, irgendwie finde ich die Variante von thkerkmann noch am übersichtlichsten.