Текущий архив: 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.014 c