Lazarus-ide specijalni Windows folderi nazivi

procedure TForm1.Button1Click(Sender: TObject);
var
    PIDL : PItemIDList;
    Folder : array[0..MAX_PATH] of Char;
    homedir: string;
    const CSIDL_PERSONAL = $0010; //desktop
//const CSIDL_PERSONAL = $0005; //mydocuments 
//$0006 favorites//$0007 startup //$0008recent
//$0009 sendto //
begin
SHGetSpecialFolderLocation(0, CSIDL_PERSONAL, PIDL);
SHGetPathFromIDList(PIDL, Folder);
homedir:=Folder;
Showmessage(homedir);
end;   





||