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

Вниз

Как получить полный путь к папке профиля текущего пользователя?   Найти похожие ветки 

← →
Dimaxx   (2003-07-09 23:35) [0]

Сабж.

---

← →
Ученик   (2003-07-10 00:00) [1]

uses
ShlObj;

const
CSIDL_PROFILE = $0028;

procedure TForm1.Button1Click(Sender: TObject);
var
szPath: array[0..MAX_PATH] of Char;
begin
if SHGetSpecialFolderPath(0, szPath, CSIDL_PROFILE, False) then
ShowMessage(szPath);
if GetEnvironmentVariable("USERPROFILE", szPath, MAX_PATH) > 0 then
( szPath) uses
ShlObj;

const
CSIDL_PROFILE = $0028;

procedure TForm1.Button1Click(Sender: TObject);
var
szPath: array[0..MAX_PATH] of Char;
begin
if SHGetSpecialFolderPath(0, szPath, CSIDL_PROFILE, False) then
ShowMessage(szPath);
if GetEnvironmentVariable("USERPROFILE", szPath, MAX_PATH) > 0 then
ShowMessage(szPath)
end;

---

← →
Dimaxx   (2003-07-10 00:23) [2]

Сенькс!

---

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

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

Наверх

Память: 0.44 MB
Время: 0.01 c