Текущий архив: 2006.04.02;
Скачать: CL | DM;

Вниз

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

← →
Urvin   (2006-03-20 21:11) [0]

На стадии проектного кода определить версию ОС и в зависимости от этого показать одну из форм?
т.е:
program myprograme;

uses
 Forms,
 mainfrm in "mainfrm.pas" {frmMain};
 w9xfrm in "w9xfrm.pas" {TfrmW9x};

{$R *.res}

begin
 Application.Initialize;
 Application.Title := "Superprogram";
 if WindowsNT then
   Application.CreateForm(TfrmMain, frmMain);
 else
   Application.CreateForm(TfrmW9x, frmMain);
 Application.Run;
end.

---

← →
Palladin ©   (2006-03-20 21:29) [1]

GetVersion()

---

← →
Ihor Osov'yak ©   (2006-03-20 22:50) [2]

see sysutils, Win32Platform

В принципе, если нужно более подробно - то см. также
Win32MajorVersion,     Win32MinorVersion, Win32BuildNumber...

Откуда все это берется /как инициализируется/ - см. исходники sysutils, procedure InitPlatformId;

---

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

Текущий архив: 2006.04.02;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.128 c