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

Вниз

Получение каталога Windows в NT   Найти похожие ветки 

 
Registr   (2004-08-30 05:59) [0]

Как можно проще получить рабочий каталог Windows в Win NT, функция GetWindowsDerectory даёт полную фигню, записанную в реестре: типа Document and Setting\Administrator\Windows.
%SystemRoot% во многих случаях не катит. Что делать, как быть?


 
YuRock ©   (2004-08-30 08:12) [1]

GetWindowsDerectory отлично работает под 95/98/NT/2k/XP/03

Я проверял везде.

Другое дело - что ты понимаешь под каталогом Windows...
Из хелпа: "The Windows directory is the directory where an application should store initialization and help files. If the user is running a shared version of Windows, the Windows directory is guaranteed to be private for each user."

Так что GetWindowsDerectory возвращает тебе все правильно.
Если же тебе эта папка нужна для других целей - ищи ее соответствующими способами.

См. GetSystemDirectory; SHGetSpecialFolderLocation; FindFirstFile/FindNextFile...


 
Дмитрий Ботвин   (2004-08-30 14:33) [2]

А что, разве функция GetWindowsDirectory не пашет? Вот сам
попробуй....

function GetWinDir(): string;
 var WindirP: PChar;
     Res: Cardinal;
 begin
   Result:="Unknown";
   WinDirP := StrAlloc(MAX_PATH);
   Res := GetWindowsDirectory(WinDirP, MAX_PATH);
   if Res > 0 then Result:= StrPas(WinDirP);
 end;


 
Дмитрий Ботвин   (2004-08-30 14:35) [3]

Или же как и написал YuRock используй фуекции GetSystemDirectory; SHGetSpecialFolderLocation


 
VMcL ©   (2004-08-30 15:18) [4]

>>Дмитрий Ботвин  (30.08.04 14:33) [2]

Освобождение памяти возложим на А. С. Пушкина?


 
Дмитрий Ботвин   (2004-08-30 16:09) [5]

Согласен FreeMem надо бы добавить....


 
Registr   (2004-08-31 01:39) [6]

Мне нужна папка, куда реально установлена Windows. Универсальную я пока не нашёл, для Win9x действует GetWindowsDirectory(s, SizeOf(s));, а для WinNT
FillChar(PathArray,SizeOf(PathArray), #0);
ExpandEnvironmentStrings("%SystemRoot%",PathArray, 256);
Result := Format("%s",[PathArray]);, то что здесь предлагалось, я попробую, спасибо.


 
VMcL ©   (2004-08-31 10:16) [7]

>>Registr  (31.08.04 01:39) [6]

>Мне нужна папка, куда реально установлена Windows. Универсальную я пока не нашёл

Ссылку на выпрямитель дать?



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

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

Наверх




Память: 0.48 MB
Время: 0.053 c
1-1096360736
Леван
2004-09-28 12:38
2004.10.10
Отправка письма с атачментом


3-1094639133
sf
2004-09-08 14:25
2004.10.10
Базы данных в сети


14-1095753620
Ditrix
2004-09-21 12:00
2004.10.10
xBase - описание стандарта


3-1095144874
Diman
2004-09-14 10:54
2004.10.10
Как получить доступ к полям DBF-файла?


1-1095702519
bloodman
2004-09-20 21:48
2004.10.10
Возможно ли при помощи TButton.perform сэмулировать зажатую...