Форум: "Основная";
Текущий архив: 2002.05.16;
Скачать: [xml.tar.bz2];

Вниз

Версия Винды...   Найти похожие ветки 

← →
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;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.44 MB
Время: 0.007 c