Скачать: CL | DM;

Определение операционной системы   Найти похожие ветки 

← →
Магнум   (2005-06-10 14:55) [0]

Порекомендуйте, плиз, надежную функцию для определения операционной системы.

---

← →
Digitman ©   (2005-06-10 15:04) [1]

GetVersionEx

---

← →
nes ©   (2005-06-10 15:07) [2]

Вот с борландских примерах так:
procedure TForm1.GetOSInfo;
var
 Platform: string;
 BuildNumber: Integer;
begin
 case Win32Platform of
   VER_PLATFORM_WIN32_WINDOWS:
     begin
       Platform := "Windows 95";
       BuildNumber := Win32BuildNumber and $0000FFFF;
     end;
   VER_PLATFORM_WIN32_NT:
     begin
       Platform := "Windows NT";
       BuildNumber := Win32BuildNumber;
     end;
     else
     begin
       Platform := "Windows";
       BuildNumber := 0;
     end;
 end;
 if (Win32Platform = VER_PLATFORM_WIN32_WINDOWS) or
   (Win32Platform = VER_PLATFORM_WIN32_NT) then
 begin
   if Win32CSDVersion = "" then
     OS.Caption := Format("%s %d.%d (Build %d)", [Platform, Win32MajorVersion,
       Win32MinorVersion, BuildNumber])
   else
     OS.Caption := Format("%s %d.%d (Build %d: %s)", [Platform, Win32MajorVersion,
       Win32MinorVersion, BuildNumber, Win32CSDVersion]);
 end
 else
   OS.Caption := Format("%s %d.%d", [Platform, Win32MajorVersion,
     Win32MinorVersion])
end;

---

← →
Магнум   (2005-06-10 17:21) [3]

Что-то она возвращает не то.

Для моей Windows XP вернула Windows NT 5.1

---

← →
Digitman ©   (2005-06-10 17:24) [4]

и правильно вернула.

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/sysinfo/base/osversioninfo_str.asp

---

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

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.021 c