[Nyctos Kasignete]

BloodFooria, вот, пожалуйста...

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  PIDL: PItemIDList;
  Path: LPSTR;
  AppDataPath: string;
begin
  Path := StrAlloc(MAX_PATH);
  try
    SHGetSpecialFolderLocation(Handle, CSIDL_APPDATA, PIDL);
    SHGetPathFromIDList(PIDL, Path);
    AppDataPath := StrPas(Path);
    ShowMessage(AppDataPath);
  finally
    StrDispose(Path);
 end;
end;

Требуется добавить модуль ShlObj.

P.S. Я использовала это! =)