Форум: "Система";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Вниз
Узнать ОС. Найти похожие ветки
← →
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 по этим функциям
← →
Andrey V. © (2003-12-29 19:49) [3]Спасибо я уже научился - если кому надо пишите отвечу.
Точную инфу о систеие дает комбинация параметров DwMajorVersion и DwMinorVersion (см.GetVersionEx)
Страницы: 1 вся ветка
Форум: "Система";
Текущий архив: 2004.03.28;
Скачать: [xml.tar.bz2];
Память: 0.44 MB
Время: 0.034 c
