В программе мне необходимо чтобы сгенерированные файлы сохранялись для каждого пользователя в его папке "My documents"

Как можно получить путь к ней?

wrote in message news:1470522@news.rsdn.ru...
> В программе мне необходимо чтобы сгенерированные файлы сохранялись для каждого пользователя в его папке "My documents"
> Как можно получить путь к ней?

Ключевое слово SHGetSpecialFolderLocation

Здравствуйте, wellwell, Вы писали:

W>wrote in message news:1470522@news.rsdn.ru...
>> В программе мне необходимо чтобы сгенерированные файлы сохранялись для каждого пользователя в его папке "My documents"
>> Как можно получить путь к ней?

W>Ключевое слово SHGetSpecialFolderLocation

А где она описана, в смысле какой модуль подключать — описание в смысле хелп я нашел в МСДН

Здравствуйте, wellwell, Вы писали:

W>wrote in message news:1470522@news.rsdn.ru...
>> В программе мне необходимо чтобы сгенерированные файлы сохранялись для каждого пользователя в его папке "My documents"
>> Как можно получить путь к ней?

W>Ключевое слово SHGetSpecialFolderLocation

а нет ли готового кода — а то на Делфи я писал лет 5 назад и уже подзабыл многое а тут надо бысто реализовать
был бы очень признателен

wrote in message news:1470599@news.rsdn.ru...
> а нет ли готового кода — а то на Делфи я писал лет 5 назад и уже подзабыл многое а тут надо бысто реализовать
> был бы очень признателен

Вот:

function MyDocuments : string;
var
ppMalloc : IMalloc;
ppidl : PItemIdList;
Path : array[0..MAX_PATH] of char;
begin
Result := EmptyStr;
if SHGetMalloc(ppMalloc) = NOERROR then
try
if SHGetSpecialFolderLocation(Handle,CSIDL_PERSONAL,ppidl) = S_OK then
try
ZeroMemory(@Path,SizeOf(Path));
if SHGetPathFromIDList(ppidl,@Path) then Result := StrPas(Path);
finally
ppMalloc.Free(ppidl);
end;
finally
ppMalloc := nil;
end;
end;