Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2002.12.26;
Скачать: CL | DM;

Вниз

Версия Windows   Найти похожие ветки 

 
ocean ©   (2002-10-21 19:44) [0]

Использую GetVersionEX, но не могу правильно распознать результат. Не подскажете, как это делается?


 
Pat ©   (2002-10-21 21:45) [1]

Примерно так:

var data:OSVERSIONINFO;
Winda:string;
begin
data.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
GetVersionEx(data);
Winda:="Unknown";
case data.dwPlatformId of
VER_PLATFORM_WIN32s:Winda:="Windows 3.11";
VER_PLATFORM_WIN32_WINDOWS:
begin
if data.dwMajorVersion>=4 then
begin
if data.dwMinorVersion<10 then Winda:="Windows 95 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;
if data.dwMinorVersion>=10 then
if data.szCSDVersion[1]="A" then
Winda:="Windows 98 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
" SE"
else
Winda:="Windows 98 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;

if data.dwMinorVersion>=90 then Winda:="Windows ME "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;
end;
end;
VER_PLATFORM_WIN32_NT:
begin
if data.dwMajorVersion<=4 then Winda:="Windows NT "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;;
if data.dwMajorVersion=5 then
begin
if data.dwMinorVersion=0 then Winda:="Windows 2000 "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;;
if data.dwMinorVersion>=1 then Winda:="Windows XP "+
inttostr(data.dwMajorVersion)+"."+
inttostr(data.dwMinorVersion)+
data.szCSDVersion;;
end;
end;

end;



 
ocean ©   (2002-10-22 08:57) [2]

Спасибо!


 
Vlad+   (2002-10-22 12:30) [3]

маленькие уточнения:

VER_PLATFORM_WIN32_WINDOWS:
Major = 4
Minor = 0 // 4.00[.950]
CSDVersion = "" => Windows 95 (original)
CSDVersion = "A" => Windows 95 SP1
CSDVersion = "B" => Windows 95 OSR2
Minor = 3 // 4.03[.12xx]
CSDVersion = "B" => Windows 95 OSR 2.1
CSDVersion = "C" => Windows 95 OSR 2.5
Minor = 10
Build = 1998 // 4.10.1998 => Windows 98 (original)
Build = 2222 // 4.10.2222 => Windows 98 Second Edition
Minor = 90 // 4.90.3000 => Windows Me

VER_PLATFORM_WIN32_NT:
Major = 5
Minor = 2 => Windows .NET Server

информация взята из MSDN



Страницы: 1 вся ветка

Текущий архив: 2002.12.26;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.019 c
14-86168
krotik
2002-12-06 17:16
2002.12.26
Разница между Professional и Enterprise


1-86003
16.12.2002
2002-12-15 22:06
2002.12.26
HTML


1-85973
Black Tiger
2002-12-15 15:05
2002.12.26
Файлы


7-86195
AlexeyMir
2002-10-24 12:26
2002.12.26
Номера оборудования


1-85966
Brat-2
2002-12-15 18:54
2002.12.26
Размер исполняемого EXE-файла