Определение 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;

Luxer (22.06.02 21:56)

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

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