unit1.pas

一个关于获取系统信息内容的源程序。是用DELPHI写的。

unit Unit1;

interface

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

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

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.Button1Click(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.