как узнать имя папки пользователя в (моих документах)

← →
Aleks © (2005-12-20 21:09) [0]

Подскажите, как узнать имя папки пользователя в (моих документах)
Мне нужно получить полный путь к папке Мои рисунки.

← →
Aleks © (2005-12-20 21:15) [1]

Есть функции
GetUserName, GetUserNameEx
но как с ними работать ??

← →
kami © (2005-12-20 21:22) [2]

procedure TForm1.Button1Click(Sender: TObject); var pidlResult: PItemIDList; Tmp:PChar; begin TMP:=AllocMem(MAX_PATH); SHGetSpecialFolderLocation(Form1.Handle,Flag,pidlResult); SHGetPathFromIDList( pidlResult, Tmp); Edit1.Text:=Tmp; FreeMem(TMP); CoTaskMemFree(pidlResult); end;

с флагом
CSIDL_MYPICTURES (0x0027) Version 5.0. The file system directory that serves as a common repository for image files. A typical path is C:\Documents and Settings\username\My Documents\My Pictures. (c) MSDN

← →
begin...end © (2005-12-20 21:30) [3]

> kami © (20.12.05 21:22) [2]

Можно немного проще:

uses
ShlObj;
const
CSIDL_MYPICTURES = $27;
var
Path: array [0..MAX_PATH] of Char;
begin
if SHGetSpecialFolderPath(Application.Handle, Path, CSIDL_MYPICTURES, False) then
ShowMessage(Path)
end

Спасибо ))

begin...end © (20.12.05 21:30) [3]
Ага, мой пример писался для себя в феврале этого года, когда только-только познакомился с MSDN :)

как узнать имя папки пользователя в (моих документах) Найти похожие ветки