Узнать ОС.

← →
Andrey V. © (2003-12-29 10:49) [0]

Подскажите , как в программе, во время выполнения , узнать под какой системой работаем. Типа , если под ХР - делаем то-то,
а если под 98 - то это.
Заранее спасибо, по возможности бросьте на емайл.

← →
N169 (2003-12-29 11:58) [1]

Узнать мона через 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.

← →
tesseract © (2003-12-29 13:36) [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 по этим функциям

Спасибо я уже научился - если кому надо пишите отвечу.
Точную инфу о систеие дает комбинация параметров DwMajorVersion и DwMinorVersion (см.GetVersionEx)

Узнать ОС. Найти похожие ветки