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

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

Определение операционной системы [D5]

Магнум ©   (2005-06-10 14:55:00) 

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

---

Digitman   (2005-06-10 17:24:00) [1]

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

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

---

Магнум   (2005-06-10 17:21:00) [2]

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

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

---

nes   (2005-06-10 15:07:00) [3]

Вот с борландских примерах так:
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;

---

Digitman   (2005-06-10 15:04:00) [4]

GetVersionEx

---

Наверх