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

Вниз

Как узнать версию ОС с точностью до SP   Найти похожие ветки 

 
Garacio ©   (2007-01-27 16:23) [0]

Как узнать версию операционной системы с точностью до SP?
Так, чтобы можно было:
procedure TForm1.Button1Click(Sender: TObject);
begin
  if GetOSVersion = osXP SP2
  then begin
    ...
  end;
end;


 
FAskerQ ©   (2007-01-27 18:06) [1]


> Garacio ©   (27.01.07 16:23)
> Как узнать версию операционной системы с точностью до SP?
>


function GetOSVersion: string;
var
 OSVersionInfo: TOSVersionInfo;
 s: string;
begin
 Result:= "";
 OSVersionInfo.dwOSVersionInfoSize:= SizeOf(TOSVersionInfo);
 if GetVersionEx(OSVersionInfo) then
 begin
   with OSVersionInfo do
   case dwPlatformId of
   VER_PLATFORM_WIN32_WINDOWS:
     if dwMinorVersion = 0 then
       s:= "Windows 95"
     else
       s:= "Windows 98";
   VER_PLATFORM_WIN32_NT:
     begin
       if OSVersionInfo.dwMajorVersion = 5 then
       begin
         if OSVersionInfo.dwMinorVersion = 0 then
           s:= "Windows 2000"
         else
           s:= "Windows XP";
       end;
       if OSVersionInfo.dwMinorVersion = 90 then
          s:= "Windows Me";
       if OSVersionInfo.dwMajorVersion = 4 then
         s:= "Windows NT 4.0";
       if OSVersionInfo.dwMajorVersion = 3 then
         s:= "Windows NT 3.51";
     end;
   VER_PLATFORM_WIN32s:
     s:= "Win 3.1 with Win32s"
   end;
   Result:= s + " " + OSVersionInfo.szCSDVersion;
 end;
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
 Caption:= GetOSVersion;
end;


Не знаю будет ли работать правильно во всех ОС...


 
oxffff ©   (2007-01-27 18:06) [2]

GetVersionEx

typedef struct _OSVERSIONINFOEX
{  DWORD dwOSVersionInfoSize;  DWORD dwMajorVersion;  DWORD dwMinorVersion;  DWORD dwBuildNumber;  DWORD dwPlatformId;  TCHAR szCSDVersion[128];  

WORD wServicePackMajor;  WORD wServicePackMinor;  

WORD wSuiteMask;  BYTE wProductType;  BYTE wReserved;
} OSVERSIONINFOEX,


 
Garacio ©   (2007-01-27 18:26) [3]

Т.е.:

type
wServicePackMajor: DWORD;
wServicePackMinor: DWORD;

procedure GetWindowsVersion(var Major: integer;
var Minor: integer);
begin
...



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

Форум: "Начинающим";
Текущий архив: 2007.02.18;
Скачать: [xml.tar.bz2];

Наверх





Память: 0.45 MB
Время: 0.035 c
2-1170309500
Gydvin
2007-02-01 08:58
2007.02.18
WideChar to Word


8-1148017505
antonn
2006-05-19 09:45
2007.02.18
получить спектр звука с микрофона


15-1169431613
SerJaNT
2007-01-22 05:06
2007.02.18
Вопросы по Wi-Fi


2-1170252473
m_a_x
2007-01-31 17:07
2007.02.18
фокусировка в ListBox1


15-1169826172
TUser
2007-01-26 18:42
2007.02.18
ЕГЭ протолкнули,





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
Английский Французский Немецкий Итальянский Португальский Русский Испанский