Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2006.01.08;
Скачать: CL | DM;

Вниз

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

 
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


 
Aleks ©   (2005-12-20 21:40) [4]

Спасибо ))


 
kami ©   (2005-12-20 21:51) [5]

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



Страницы: 1 вся ветка

Текущий архив: 2006.01.08;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.016 c
2-1134922994
Arazel
2005-12-18 19:23
2006.01.08
Как отсортировать название файлов/папок ListBox как Explorer?


1-1133976207
De1uxe
2005-12-07 20:23
2006.01.08
Ошибка в коде


14-1134557299
vecna
2005-12-14 13:48
2006.01.08
про Delphi2006


1-1133800282
Andrey.Ru
2005-12-05 19:31
2006.01.08
Как TIMAGE с рисунком сделать полупрозрачным?


14-1134560149
syte_ser78
2005-12-14 14:35
2006.01.08
Прога для вебмастеров