Скачать: CL | DM;

Определение 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 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.013 c