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

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

Как при запуске программы определить версию ОС и если... [D7, 95/98, ME, NT4, 2000, XP]


Vis74 ©   (2005-11-29 10:51:00) 

версия Windows 95, 98, ME то запушенное приложение выдало бы сообщение типа "Только для Windows NT, XP!" а если версия Windows
NT, XP то приложение бы благополучно запустилось.

Если можно то с примером! Буду примного благодарен за проявленное к
моему вопросу внимание!

Best regarts!
Vis74 :)


Котик-братик   (2005-11-29 11:24:00) [1]

а можно и так :)

var
 p: pointer;
begin
 p := GetProcAddress(NtDllHandle, 'NtQuerySystemInformation');
 if Assigned(p)
 then  // Nt
 else ;// не Nt
end;


begin...end   (2005-11-29 10:57:00) [2]

Вызываете GetVersionEx, потом проверяете поле OSVERSIONINFO.dwPlatformId: если оно равно VER_PLATFORM_WIN32_WINDOWS, то это 95, 98 или ME. Описание функции и структуры посмотрите в MSDN, примеры использования есть в Сети.


Наверх

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