Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

Как узнать платформу

Delphi , ОС и Железо , Windows

Как узнать платформу

Гейтс получил Hобелевскую премию по экономике и медицине за то, что первый додумался продавать геморрой за такие деньги.


private
  { Private declarations }
  procedure OSInfo;
...

procedure TForm1.OSInfo;
var
  BRes : boolean;
  lpVersionInformation : TOSVersionInfo;
  c : string;
begin
  lpVersionInformation.dwOSVersionInfoSize :=
  SizeOf(TOSVersionInfo);
  BRes := GetVersionEx(lpVersionInformation);
  if BRes then
    with lpVersionInformation do
      case dwPlatformId of
        VER_PLATFORM_WIN32_WINDOWS :
          if dwMinorVersion=0 then
            c := 'Windows 95'
          else
            c := 'Windows 98';
        VER_PLATFORM_WIN32_NT :
          c := 'Windows NT';
        VER_PLATFORM_WIN32s :
          c := 'Win 3.1 with Win32s'
      end;
  Form1.Caption:=c;
end;

Статья Как узнать платформу раздела ОС и Железо Windows может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Windows ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
16.06.2021 04:29:20/0.15954399108887/0