[BloodFooria]

Возникла необходимость хранить файлы программы в папке ApplicationData, но худо одно, как получить путь до этой папки?

Знаю, как получить путь до папки Windows, но там что-либо хранить от программы - глупо.

Заранее, всем спасибо.

P.S. В гугле был, но опять, времени мало

[Nyctos Kasignete]

Если лучше предложений не будет, то можно воспользоваться переменными окружения системы.

Код:

procedure TForm1.Button1Click(Sender: TObject);
var
  userprof: PChar;
  AppData: string;
begin
  GetMem(userprof, 256);
  ExpandEnvironmentStrings(PChar('%userprofile%'), userprof, 254);
  AppData := StrPas(userprof) + '\Application Data';
  FreeMem(userprof, 256);
  ShowMessage(AppData);
end;

[BloodFooria]

Спасибо! Работает, но видите, папка "ApplicationData" так называется не во всех версиях Windows, поэтому пришлось доработать код (выяснить версию Windows и дальнейшая приписка).

[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. Я использовала это! =)

[BloodFooria]

А зачем? Я сам уже дописал, у меня правда побольше но тоже работает Пришлось отдельный Unit делать.

Может кому интересно будет, во вложениях.

А вот это я использовал раньше, но забыл Надо в закладки добавить...