Delphi - база знаний


Как получить версию Windows?


Как получить версию Windows?



procedure TForm1.WinVer; 
var WinV: Word;   
begin 
WinV := GetVersion AND $0000FFFF;   
Edit6.Text := IntToStr(Lo(WinV))+'.'+IntToStr(Hi(WinV));   
end;    

Функция выдает следующее - 4.10
Как можно таким же простым способом получить полную версию - 4.10.222

Автор ответа: inko
Взято с Vingrad.ru





Начало  Назад  Вперед



Книжный магазин