| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

как узнать имя папки пользователя в (моих документах) [D7, XP]

Aleks ©   (2005-12-20 21:09:00) 

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

---

kami   (2005-12-20 21:51:00) [1]

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

---

Aleks   (2005-12-20 21:40:00) [2]

Спасибо ))

---

begin...end   (2005-12-20 21:30:00) [3]

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

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

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

---

kami   (2005-12-20 21:22:00) [4]

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

---

Aleks   (2005-12-20 21:15:00) [5]

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

---

Наверх