VPF::Получить Path Винды - Форум программистов

[FRITZ]

Дата 20.3.2004, 12:03 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Люди как в получить путь к Винде с помощью Дельфи? Заранее благодарен!

Illusion Dolphin

Дата 20.3.2004, 12:18 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 1198
Регистрация: 3.5.2003

Репутация: 36
Всего: 63

А если через реестр? Вроде того:

Код


function getsystemroot: string;
var reg:Tregistry;
result1,result2:string;
begin
reg:=tregistry.create;
reg.rootkey:=hkey_local_machine;
reg.openkey('\SOFTWARE\Microsoft\Windows\CurrentVersion',true);
result1:=reg.ReadString('SystemRoot');
reg.CloseKey;
reg.free;
reg:=tregistry.create;
reg.rootkey:=HKEY_LOCAL_MACHINE;
reg.openkey('\SOFTWARE\Microsoft\Windows NT\CurrentVersion\',true);
result2:=reg.ReadString('SystemRoot');
reg.CloseKey;
reg.free;
If result1<>'' then result:=result1 else result:=result2;
end;

--------------------

В мире всего две бесконечности: вселенная и человеческая глупость... На счёт вселенной я не уверен.
Шифрование и организация фотографий - Photo Database 4.5

NiJazz

Дата 20.3.2004, 14:20 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

Illusion Dolphin
Зачем так сложно?

Код


uses Windows;
.......
var buf: PChar;
begin
 ....
 GetMem(Buf, MAX_PATH);
 GetWindowsDirectory(Buf, MAX_PATH);
 FreeMem(buf);

 ....
end;
.......

Добавлено @ 14:23
Buf будет хранить строку, содержащую путь к папке винды, пока не вызвать FreeMem(buf).

oleg1973

Дата 21.3.2004, 02:03 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 1
Всего: 34

ну если ето не ХР/НТ то оно в msdos.sys написано вроде как

--------------------

SST 465555
icq 200-512-712

NiJazz

Дата 21.3.2004, 09:28 (ссылка)

(нет голосов)

Загрузка ...

Jazz coder

Профиль
Группа: Экс. модератор
Сообщений: 2286
Регистрация: 10.8.2003
Где: Москва

Репутация: 6
Всего: 23

oleg1973
В любом случае через переменные окружения лучше узнавать. Тут API функции помогут.

oleg1973

Дата 21.3.2004, 17:17 (ссылка)

(нет голосов)

Загрузка ...

asm fanat

Профиль
Группа: Экс. модератор
Сообщений: 3283
Регистрация: 16.7.2003
Где: Italy

Репутация: 1
Всего: 34

NiJazz
согласен, msdos.sys просто один из путей решения

--------------------

SST 465555
icq 200-512-712

Pakshin A. S.

Дата 22.3.2004, 14:11 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

GetSystemDirectory, но эта штука нужна под конкретные ситуации, а вообще в большинстве случаях результат один и тот же.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »