Мастера DELPHI (документация, исходники, скачать)

Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

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

Узнать ОС. [D5, Win95/98]

Andrey V. © (2003-12-29 10:49:00)
Подскажите , как в программе, во время выполнения , узнать под какой системой работаем. Типа , если под ХР - делаем то-то,
а если под 98 - то это.
Заранее спасибо, по возможности бросьте на емайл.

Andrey V. (2003-12-29 19:49:00) [1]
Спасибо я уже научился - если кому надо пишите отвечу.
Точную инфу о систеие дает комбинация параметров DwMajorVersion и DwMinorVersion (см.GetVersionEx)

tesseract (2003-12-29 13:36:00) [2]
GetMem(Port,128);
tb:=GetWindowsDirectory(port,128);
tb:=GetVersion;
k:=low(tb);
if tb<$80000000 then
begin
end; // winnt/2000/xp
begin
if k>=4 then
begin
// win95/98/ me
end;
end;

если нужна конкретная версия смотри Help по этим функциям

N169 (2003-12-29 11:58:00) [3]
Узнать мона через WinAPI с помощью ф-и GetVersionEx() или используя переменную Win32Platform из модуля Sysutils, как написано в справке:

Win32Platform is used to identify the type of Win32 platform the system is running. This will be one of the following values:

Value Meaning
VER_PLATFORM_WIN32s System is Win32s.
VER_PLATFORM_WIN32_WINDOWS System is Windows 95.
VER_PLATFORM_WIN32_NT System is Windows NT.

Наверх

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