System directory

← →
Andrewk88 (2005-04-23 08:32) [0]

как узнать где установленн windows?

← →
Palladin © (2005-04-23 08:33) [1]

а тебе оно зачем?

← →
Andrewk88 (2005-04-23 09:33) [2]

Palladin
нуна один ini отдуда читать

← →
Palladin © (2005-04-23 09:49) [3]

наверно еще и писать?

← →
Хинт © (2005-04-23 10:02) [4]

function WinDir:string;
var
ilength:integer;
begin
iLength := 255;
setLength(Result, iLength);
iLength := GetWindowsDirectory(PChar(Result), iLength);
setLength(Result, iLength);
Result:=Result+"\";
end;

← →
VMcL © (2005-04-23 10:46) [5]

>>Хинт © (23.04.05 10:02) [4]

>iLength := 255;

Не 255, а MAX_PATH. "Читайте справку, оно рулез" ©

← →
Anatoly Podgoretsky © (2005-04-23 12:57) [6]

Для чтения из System directory не надо знать где оно, просто читай свой ИНИ

← →
Anatoly Podgoretsky © (2005-04-23 12:59) [7]

VMcL © (23.04.05 10:46) [5]
Это мелочь по сравнению с самим ответом, он полностью не про то.

← →
Хинт © (2005-04-23 20:05) [8]

2Anatoly Podgoretsky
Что значит "не про то"? Вопрос - "как узнать где установлен windows?", Ответ - функция WinDir...

Не было такого вопроса, вопрос про систеиный каталог, а не про каталог виндоус.

Первый пост автора:
//Andrewk88 (23.04.05 08:32)
//как узнать где установленн windows?

← →
Наташа (2005-04-24 22:10) [11]

Я всегда пользуюсь функцией GetWindowsDirectory;
Например чтобы получить путь к каталогу ввинды:
procedure getwindir(Var P:pchar;Dir:String);
begin
getwinodwsdirectory(p,max_path);//получаем путь к каталогу винды в переменной р.
Dir:strpas(p);/привели Pchar к String, если нужно
end;
Теперь переменную dir моно использовать для доступа к файлам и папка. Или даже получить букву системного диска.

>>Наташа (24.04.05 22:10) [11]

Огромная просьба: не постить глюкокод в этот форум. По крайней мере, в тематические конференции.

System directory Найти похожие ветки