Скачать: 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.012 c