Главная страница
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
14-14769
VID
2002-11-13 18:35
2002.12.05
РЕФЕРАТ - 1


1-14552
Peroon
2002-11-27 02:44
2002.12.05
Как динамически создать/уничтожить метод-обработчик


3-14371
Jony
2002-11-14 17:27
2002.12.05
И дата и время в DBDateTimeEditEh


1-14666
lionkiller
2002-11-25 13:58
2002.12.05
Новая компонента


1-14549
Gerda
2002-11-26 14:06
2002.12.05
TMemo (выделение текста, установка курсора в нужное положение)