| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Определение версии ОС [D7]
Urvin © (2006-03-20 21:11:00)На стадии проектного кода определить версию ОС и в зависимости от этого показать одну из форм?
т.е:
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.
Ihor Osov'yak (2006-03-20 22:50:00) [1]see sysutils, Win32Platform
В принципе, если нужно более подробно - то см. также
Win32MajorVersion, Win32MinorVersion, Win32BuildNumber...
Откуда все это берется /как инициализируется/ - см. исходники sysutils, procedure InitPlatformId;
Palladin (2006-03-20 21:29:00) [2]GetVersion()
| |
