getSpecialFolderName

[Uwe Raabe]

Delphi-Quellcode:

function GetSpecialFolderPath(folder: integer): string;
const
  SHGFP_TYPE_CURRENT = 0;
var
  path: array [0..MAX_PATH] of char;
begin
  if SUCCEEDED(SHGetFolderPath(0,folder,0,SHGFP_TYPE_CURRENT,@path[0])) then
    Result := path
  else
    Result := '';
end;

Die CSIDL_-Werte für die verschiedenen Folder findest du in SHFolder.pas