Главная страница
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.031 c
1-1096127610
Fagot
2004-09-25 19:53
2004.10.10
REG_BINARY


14-1095630775
Knight
2004-09-20 01:52
2004.10.10
Бортовой "компьютер" БК-06...


6-1091398924
НовиЧок
2004-08-02 02:22
2004.10.10
Убить фрейм в WebBrowser e


6-1091690867
Dmitry V. Averuanov
2004-08-05 11:27
2004.10.10
Удаленная перезагрузка Windows NT


1-1096248576
Артем К.
2004-09-27 05:29
2004.10.10
Здравствуйте, Мастера. Как разбить строку на лексемы?