[Ticksy]

Как можно узнать пусть к папке Application Data текущего пользователя (для хранения там конфигурации программы)?

Использовал следующий код:

Код:

uses ShlObj;
 
function GetSpecialPath(CSIDL: word): string;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  if not SHGetSpecialFolderPath(0, PChar(s), CSIDL, true)
  then s := '';
  result := PChar(s);
end;

Но он выдает такую фигню:


Из-за чего так может быть? Какие еще могут быть способы (не требующие прав администратора) на том же WinApi? ОСь Windows 7, Delphi 2010.

[Uniq!]

Советую посетить ресурс google с вопросом: Delphi Unicode
Или узнать константу AppData на языке WinApi у того же google

А это в наши ворота даже вписывается:

Поиск по форуму: дал ответ

[Ticksy]

Сообщение от Uniq!

Советую посетить ресурс google с вопросом: Delphi Unicode
Или узнать константу AppData на языке WinApi у того же google

А это в наши ворота даже вписывается:

Поиск по форуму: дал ответ

Спасибо, буду смотреть ту тему. Просто нагуглился так, что отчаялся и решил задать вопрос.

[Grimm]

%appdata% так в самой винде

[Uniq!]

это CMD шная константа)
здесь речь идёт о программном коде её. я думаю в той теме автор найдёт ответы на все свои вопросы, там очень много полезного

[Sky.NET]

%AppData% - Указывает путь до папки Application Data текущего пользователя, в которой хранятся настройки некоторых программ.

Код:

function GetWin(Comand: string): string;
var
  buff: array [0 .. $FF] of char;
begin
  ExpandEnvironmentStrings(PChar(Comand), buff, SizeOf(buff));
  Result := buff;
end;

Edit1.Text := GetWin('%AppData%');

[KOOL]

Про Null-terminated string никогда не слышали?

Код:

SetLength(s, MAX_PATH);
ShlObj.SHGetSpecialFolderPath(0, @s[1], CSIDL, false);
SetLength(s, Pos(#0, s)-1);