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

Вниз

Вовместимость   Найти похожие ветки 

← →
Станислав   (2001-09-28 10:19) [7]

Function IsNT:boolean;//проверяем платформу NT или нет
var
verinfo:OSVERSIONINFO;
begin
verinfo.dwOSVersionInfoSize:=SIZEOF(OSVERSIONINFO);
result:=false;
GetVersionEx(verinfo);
if verinfo.dwPlatformId=VER_PLATFORM_WIN32_NT then Result:=true;
end;

---

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

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

Наверх

Память: 0.43 MB
Время: 0.003 c