Как получить версию 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
Содержание Назад Вперед