Форум: "WinAPI";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Вниз

Определение Windows   Найти похожие ветки 

← →
Luxer   (2002-06-22 21:56) [0]

Добрый вечер мастера!
Подскажите пожалуйста как написать, чтобы программа могла програмно определить винды?

И, например: если не WinXP, то запретить работу программы?

Кто ответит буду признателен!
С Уважением.

---

← →
Luxer   (2002-06-22 22:17) [1]

Подскажите Please...!

---

← →
Anatoly Podgoretsky   (2002-06-22 22:50) [2]

В ЧаВо смотрел?

---

← →
Viewer   (2002-06-22 22:57) [3]

function isWinXP: boolean;
var fOS:TOsVersionInfo;
begin
fOS.dwOsVersionInfoSize:=SizeOf(fOS);
GetVersionEx(fOS);
Result := Boolean((fOS.dwPlatformId=VER_PLATFORM_WIN32_NT) and
(fOS.dwMajorVersion=5) and
(fOS.dwMinorVersion=1));
end;

---

← →
Игорь Шевченко   (2002-06-24 09:56) [4]

Luxer (22.06.02 21:56)

UBPFD - раздел определение параметров системы

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.08.29;
Скачать: [xml.tar.bz2];

Наверх

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