Главная страница
    Top.Mail.Ru    Яндекс.Метрика
Форум: "Система";
Текущий архив: 2002.12.26;
Скачать: [xml.tar.bz2];

Вниз

Версия 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;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.55 MB
Время: 0.046 c
1-85913
SG78
2002-12-10 17:43
2002.12.26
Handle ListBox у ComboBox


6-86061
lefan
2002-10-31 14:44
2002.12.26
Многопотоковая закачка


7-86196
gluka-fish
2002-10-23 18:25
2002.12.26
Запись данных в исполняемый файл..


14-86155
Uran
2002-12-06 14:55
2002.12.26
Программа для чтения этого форума.


1-86029
Ospa
2002-12-15 07:14
2002.12.26
TreeView





Afrikaans Albanian Arabic Armenian Azerbaijani Basque Belarusian Bulgarian Catalan Chinese (Simplified) Chinese (Traditional) Croatian Czech Danish Dutch English Estonian Filipino Finnish French
Galician Georgian German Greek Haitian Creole Hebrew Hindi Hungarian Icelandic Indonesian Irish Italian Japanese Korean Latvian Lithuanian Macedonian Malay Maltese Norwegian
Persian Polish Portuguese Romanian Russian Serbian Slovak Slovenian Spanish Swahili Swedish Thai Turkish Ukrainian Urdu Vietnamese Welsh Yiddish Bengali Bosnian
Cebuano Esperanto Gujarati Hausa Hmong Igbo Javanese Kannada Khmer Lao Latin Maori Marathi Mongolian Nepali Punjabi Somali Tamil Telugu Yoruba
Zulu
Английский Французский Немецкий Итальянский Португальский Русский Испанский