Текущий архив: 2002.05.16;
Скачать: CL | DM;
Вниз
Версия Винды... Найти похожие ветки
← →
Riko (2002-05-03 15:15) [0]Для определения версии Винды я использую следующую функцию:
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
← →
Anatoly Podgoretsky © (2002-05-03 15:33) [1]В FAQ есть ответ
← →
Riko (2002-05-03 15:43) [2]2Anatoly Podgoretsky © (03.05.02 15:33)
Есть. Но в том коде что-то не работает. Я уже не помню что именно, давно с ним работал. Кстати, он тоже выдает 4.10.
Код, приведенный выше, проще и работает стабильно.
← →
ZZ (2002-05-03 16:27) [3]Riko
А 222 это что такое? Если номер билда, то используй GetVersionEx, там он точно есть (может и в GetVersion тоже есть)
← →
Oleg_Gashev © (2002-05-03 16:36) [4]Посмотри http://gashev.com/Code.php?Code=1
Страницы: 1 вся ветка
Текущий архив: 2002.05.16;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.012 c
