unitfrmmain.pas

《Delphi实用程序100例》配套书源码盘

unit unitFrmMain;

interface

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

type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Button2: TButton;
    Edit1: TEdit;
    Edit2: TEdit;
    Edit3: TEdit;
    Edit4: TEdit;
    Edit5: TEdit;
    Edit6: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.DFM}

procedure TForm1.Button1Click(Sender: TObject);
var
  OSVI: OSVERSIONINFO;
begin
  OSVI.dwOSversioninfoSize := Sizeof(OSVERSIONINFO);
  GetVersionEx(OSVI);
  label1.Caption := IntToStr(OSVI.dwMajorVersion) + ','
    + IntToStr(OSVI.dwMinorVersion) + ','
    + IntToStr(OSVI.dwBuildNumber) + ','
    + IntToStr(OSVI.dwPlatformId) + ','
    + OSVI.szCSDVersion;
end;

procedure TForm1.Button2Click(Sender: TObject);


var
  Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  Reg.RootKey := HKEY_LOCAL_MACHINE;
  Reg.OpenKey('Software\Microsoft\Windows NT\CurrentVersion', False);
  Edit1.Text := '当前路径：' + Reg.CurrentPath;
  Edit2.Text := '产品系列号：' + Reg.ReadString('ProductId');
  Edit3.Text := '产品名：' + Reg.ReadString('ProductName');
  Edit4.Text := '注册公司名称：' + Reg.ReadString('RegisteredOrganization');
  Edit5.Text := '用户名：' + Reg.ReadString('RegisteredOwner');
  Edit6.Text := '软件类型：' + Reg.ReadString('SoftwareType');
  Reg.CloseKey;
  Reg.Free;
end;
end.