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

Вниз

Путь установки Windows   Найти похожие ветки 

 
Извращенец2   (2002-10-04 07:37) [0]

Ребята, простой вопрос: Как узнать, куда установлена мастдай? Есть системная переменная, которая содержит в себе искомый путь, но вот как ее прочитать. Можно конечно через реестр, но грамотнее, как мне кажется, брать это значение из системной переменной. Подскажите, как? Заранее спасибо:)


 
turusov ©   (2002-10-04 08:20) [1]

function TNsDublicateApplication.GetWindowsDirectory: string;
var
pcWindowsDirectory: PChar;
dwWDSize : DWORD;
begin
dwWDSize:= MAX_PATH + 1;
GetMem(pcWindowsDirectory, dwWDSize); // allocate memory for the string
try
if Windows.GetWindowsDirectory(pcWindowsDirectory, dwWDSize) <> 0 then
Result:= pcWindowsDirectory
else
Result:= "";
finally
FreeMem(pcWindowsDirectory); // now free the memory allocated for the string
end;
end;

function TNsDublicateApplication.GetSystemDirectory: string;
var
pcSystemDirectory: PChar;
dwSDSize : DWORD;
begin
dwSDSize := MAX_PATH + 1;
GetMem(pcSystemDirectory, dwSDSize); // allocate memory for the string
try
if Windows.GetSystemDirectory(pcSystemDirectory, dwSDSize) <> 0 then
Result:= pcSystemDirectory;
finally
FreeMem(pcSystemDirectory); // now free the memory allocated for the string
end;
end;


 
Извращенец2   (2002-10-04 09:12) [2]

спасиб:)



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

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

Наверх




Память: 0.47 MB
Время: 0.019 c
1-14583
Lakec
2002-11-27 12:52
2002.12.05
Приложение подвисает, пока не станет активным


4-14863
WDN
2002-10-23 09:23
2002.12.05
Старт сервиса


8-14697
Ал
2002-08-19 15:54
2002.12.05
OpenGL


1-14642
Leny
2002-11-25 13:04
2002.12.05
Создание файла Excel по шаблону


7-14829
DaTak
2002-10-02 14:28
2002.12.05
Bios и Delphi