Путь установки 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]

спасиб:)

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