[opel431]

Код:

uses ShlObj; 

// получить путь к специальным папкам 
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;

procedure TForm2.btn1Click(Sender: TObject);
begin
  lbl1.Caption := GetSpecialFolderPath(CSIDL_APPDATA);
end;