[DELPHI] OBTER A PASTA DO USUÁRIO LOGADO NO WINDOWS

procedure TForm1.Button1Click(Sender: TObject); 

var

  PI: PItemIDList;

  A: array [0 .. MAX_PATH] of char;

  N: Integer;

begin

  SHGetSpecialFolderLocation(Handle, CSIDL_PERSONAL, PI);

  SHGetPathFromIDList(PI, A);

  ShowMessage(Copy(A, 1, LastDelimiter('\', A) - 1));

end;

Gostou? Deixe seu comentário... Convido você a seguir meu blog, sua presença é bem vinda!【ツ】