Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2003.04.14;
Скачать: CL | DM;

Вниз

Надежное определение ОС: 9х или NT..   Найти похожие ветки 

 
madmike ©   (2003-02-18 13:19) [0]

Собственно вопрос задан.. Желательно чтобы не разбирать версии.. 4,хх, 5,..


 
Игорь Шевченко ©   (2003-02-18 13:27) [1]

uses SysUtils

переменная Win32Platform


 
madmike ©   (2003-02-18 14:14) [2]

Спасибо, результ 1 - 9х, 2 - НТ..


 
Nic_B   (2003-02-18 14:14) [3]

Реально работающий код
info : TOSVersionInfo;

info.dwOSVersionInfoSize := sizeof(info);
GetVersionEx(info);
if (info.dwPlatformId = VER_PLATFORM_WIN32_NT) then begin
// Это NT
end else begin
// Это 9х
end;


 
Aldor   (2003-02-18 21:35) [4]

Все в принципе сказано. Но если тебе надо на стадии компиляции, то:

{IFDEF MSWINDOWS}
{IFDEF LINUX}
{IFDEF WIN98}
и т.д.



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

Текущий архив: 2003.04.14;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.013 c
1-44166
BBCHa
2003-04-03 17:54
2003.04.14
Рамочка вокруг контрола как в Design-time


11-44084
D.V.K
2002-06-28 06:28
2003.04.14
горячие клавиши (акселераторы) в меню


1-44260
caesar
2003-04-02 13:51
2003.04.14
CheckBox


1-44271
Маришка
2003-04-02 16:19
2003.04.14
приложение дельфи для интернета


14-44348
sergey32
2003-03-28 17:52
2003.04.14
Как добавить Rx Компоненты в Delphi 7?