Pfad der "Special Folders" ermitteln

[thkerkmann]

Zitat von HannosG:

OK, die Funktion beginnt zu wachsen.

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): String;
var
  Path: PChar;
begin
  GetMem(Path,MAX_PATH);
  If SHGetSpecialFolderPath(0, Path, Folder, false)
    then Result:=Path
    else Result:='';
  FreeMem(Path);
end;

muss sie doch gar nicht

Delphi-Quellcode:

function GetSpecialFolder(Folder: Integer): String;
var
  Path: array[0..MAX_PATH] of char;
begin
  If SHGetSpecialFolderPath(0, @Path, Folder, false)
    then Result:=Path
    else Result:='';
end;

Gruss