Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Переменные винды

Автор: Testing001 25.4.2007, 18:27

Прива Всем!

Столкнулся со след. проблемой:

Мне нужно получить путь к папке текущего юзера

Пробывал GetEnvironmentVariable('USERPROFILE');

Но это дает мне путь к папке ALL USERS.

Это я неправильно что-либо делаю?

Как получить путь к папке текущего пользователя? // C:\Documents and Settings\username\)

Заранее благодарен

Автор: _hunter 25.4.2007, 18:33

USERPROFILE возвращает путь к папке текущего пользователя. если она совпадает ALLUSERSPROFILE -- значит ты как-то запустился из-под общего профиля.
ты не в сервисе, случайно, путь получаеш?

Автор: Snowy 25.4.2007, 18:35

Код


uses ShlObj;

function GetUserProfilePath: string;
const CSIDL_PROFILE = $28;
var s:  string;
begin
  SetLength(s, MAX_PATH);
  SHGetSpecialFolderPath(0, PChar(s), CSIDL_PROFILE, true);
  result := PChar(s);
end;

Автор: Testing001 28.4.2007, 22:52

Snowy

Спасибо разобрался, жаль, что нет у меня 100 сообщений, чтобы тебе + поставить :(

Потом поставлю