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
