| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Парни, как мне определить ОС Windows XP? [D7, WinXP]

Starcom ©   (2005-09-18 19:02:00) 

Привет Мастера!

Парни, как мне определить ОС Windows XP?
Вот пример кода...

...
var
OSVersion: TOSVersionInfo;
begin
//OS
OSVersion.dwOSVersionInfoSize := SizeOf(OSVersion);

if GetVersionEx(OSVersion) then
begin
  OSNumberBuild.Caption:= Format('%d.%d ( Build %d: %s )',[OSVersion.dwMajorVersion, OSVersion.dwMinorVersion,(OSVersion.dwBuildNumber and $FFFF), OSVersion.szCSDVersion]);
  case OSVersion.dwPlatformID of
   VER_PLATFORM_WIN32s:        VersionOS.Caption := 'Windows 3.1';
   VER_PLATFORM_WIN32_WINDOWS: VersionOS.Caption := 'Windows 95';
   VER_PLATFORM_WIN32_NT:      VersionOS.Caption := 'Windows NT';
  else                         VersionOS.Caption := '';
 end;  //of case
end; //of if
...

С Уважением Starcom! ;)

---

Starcom   (2005-09-18 19:56:00) [1]

Прошу прощения, что-то под вечер тупить начал!
Всё Оке'й!

С Уважением Starcom! :)

---

Starcom   (2005-09-18 19:38:00) [2]

Андрей Молчанов   (18.09.05 19:09) [2]

Проблемы с использованием функции!
Как мне её использовать?

С Уважением Starcom! :(

---

Андрей Молчанов   (2005-09-18 19:09:00) [3]

TWinVersion = (wvUnknown, wv95, wv98, wvME, wvNT3, wvNT4, wvW2K, wvXP);

 function GetWinVersion: TWinVersion;
 var
   OSVersionInfo: TOSVersionInfo;
 begin
   Result := wvUnknown;
   OSVersionInfo.dwOSVersionInfoSize := sizeof(TOSVersionInfo);
   if GetVersionEx(OSVersionInfo) then begin
     case OSVersionInfo.DwMajorVersion of
       3: Result := wvNT3;
       4: case OSVersionInfo.DwMinorVersion of
            0:  if OSVersionInfo.dwPlatformId = VER_PLATFORM_WIN32_NT then Result := wvNT4
                else Result := wv95;
            10: Result := wv98;
            90: Result := wvME;
          end;
       5: case OSVersionInfo.DwMinorVersion of
            0:  Result := wvW2K;
            1:  Result := wvXP;
          end;
     end;
   end;
 end;

---

Antonn   (2005-09-18 19:08:00) [4]

function IsWinXP: Boolean;
begin
 Result := (Win32Platform = VER_PLATFORM_WIN32_NT) and
   (Win32MajorVersion >= 5) and (Win32MinorVersion >= 1);
end;

---

Наверх