Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: Общие вопросы > Как прочитать версию Windows и поместить в Edit?

Автор: Чужой 25.4.2002, 16:04

Нашел процедурку, а как использовать ее не знаю.
Пожалуйста, помогите.
Что нужно подставить вместо многоточий, чтобы значение параметра 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

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

Автор: Чужой 25.4.2002, 16:31

> Vit

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

Код

If...then...else

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

:withstupid