Top.Mail.Ru
Мастера DELPHI, Delphi programming community Титульная страница Поиск, карта сайта Написать письмо 
| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL |
| Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

« предыдущая ветвь | форум | следующая ветвь »

Надежное определение ОС: 9х или NT.. [D6, WinXP]


madmike ©   (2003-02-18 13:19:00) 

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


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

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

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


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

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


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

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

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


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

uses SysUtils

переменная Win32Platform


Наверх

Титульная страница Поиск, карта сайта Написать письмо