VPF::Как прочитать версию Windows и поместить в Edit?

Чужой

Дата 25.4.2002, 16:04 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

Нашел процедурку, а как использовать ее не знаю.
Пожалуйста, помогите.
Что нужно подставить вместо многоточий, чтобы значение параметра VersionNumber было отображено в Edit?

Код

var
R:TRegistry;
No:String;
begin
R:=TRegistry.Create;
R.RootKey:=HKEY_LOCAL_MACHINE;
R.OpenKey('\SOFTWARE\Microsoft\Windows\CurrentVersion', False) {если false то пытается откpыть не создавая}
No:=R.ReadString('VersionNumber');
if No=..... then ...... else ......
end;

Vit

Дата 25.4.2002, 16:06 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

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

Репутация: 48
Всего: 207

Очень странный вопрос, если имеется ввиду как отобразить в Edit то что-то типа Edit1.text:=No
Но при чем здесь If...then...else - что с чем надо сравнивать?

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

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

Чужой

Дата 25.4.2002, 16:31 (ссылка)

(голосов: 0)

Загрузка ...

Unregistered

> Vit

Огромное Вам спасибо ! А это:

Код

If...then...else

было в исходники и я за это почему то вцепился.

:withstupid

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