unit1.pas

Delphi实效编程百例的随书源代码 这是其中的操作系统部分

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  StdCtrls, ExtCtrls;

type
  TForm1 = class(TForm)
    Panel1: TPanel;
    StaticText1: TStaticText;
    StaticText2: TStaticText;
    StaticText3: TStaticText;
    StaticText4: TStaticText;
    StaticText5: TStaticText;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Button1: TButton;
    StaticText6: TStaticText;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  OSVI:OSVERSIONINFO;
  s:string;
  is98orlater:boolean;
begin
  OSVI.dwOSVersionInfoSize:=sizeof(OSVERSIONINFO);
//设置版本信息结构的大小
  GetVersionEx(OSVI);
  //获取版本信息
  is98orlater:=
  //判断是否98或以后版本
    (osvi.dwPlatformId=VER_PLATFORM_WIN32_WINDOWS) and
    ((osvi.dwMajorVersion>4) or
    ((osvi.dwMajorVersion=4) and (osvi.dwMinorVersion>0)));

  //下面开始显示信息
  case OSVI.dwPlatformId of
  //根据OSVI.dwPlatformId的数值的不同显示具体的平台描述
    VER_PLATFORM_WIN32s:
  // Windows 3.1平台
       s:='Windows 3.1';
    VER_PLATFORM_WIN32_WINDOWS:
    // Windows 95/98平台
       if(is98orlater) then
       //98
         s:='Windows 98'
       else
       //95
         s:='Windows 95';
    VER_PLATFORM_WIN32_NT:
    // Windows NT平台
       s:='Windows NT';
  end;

  Edit1.Text:=s;
  Edit2.Text:=IntToStr(OSVI.dwMajorVersion);
  Edit3.Text:=IntToStr(OSVI.dwMinorVersion);
  case OSVI.dwPlatformId of
  //根据平台的不同具体处理OSVI.dwBuildNumber信息
    VER_PLATFORM_WIN32_WINDOWS:
    // Windows 95/98平台则取OSVI.dwBuildNumber的低位字
       Edit4.Text:=IntToStr(LOWORD(OSVI.dwBuildNumber));
    VER_PLATFORM_WIN32_NT:
    // Windows NT平台则取所有位的值
       Edit4.Text:=IntToStr(OSVI.dwBuildNumber);
    else
       Edit4.Text:='';
  // Windows 3.1平台此值位空
  end;
  Edit5.Text:=OSVI.szCSDVersion;

  //显示运行模式
  case(GetSystemMetrics(SM_CLEANBOOT)) of
  0: Edit6.Text := '正常模式启动';
  1: Edit6.Text := '安全模式启动';
  2: Edit6.Text := '安全模式启动,但附带网络功能'
  else
    Edit6.Text := '错误：系统启动有问题';
  end;
  
end;

end.