about.~pas

来自「通过此软件可方便的对interbase数据库进行合并」· ~PAS 代码 · 共 43 行

unit about;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  ExtCtrls, LMDCustomComponent, LMDSysInfo, LMDControl, LMDBaseControl,
  LMDBaseGraphicControl, LMDBaseLabel, LMDCustomLabel, LMDLabel, StdCtrls,
  RzCmboBx;

type
  Taboutform = class(TForm)
    Image1: TImage;
    LMDLabel1: TLMDLabel;
    LMDSysInfo1: TLMDSysInfo;
    LMDLabel2: TLMDLabel;
    LMDLabel3: TLMDLabel;
    Bevel1: TBevel;
    Bevel2: TBevel;
    LMDLabel4: TLMDLabel;
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  aboutform: Taboutform;

implementation

{$R *.DFM}

procedure Taboutform.FormCreate(Sender: TObject);
begin
 lmdlabel1.Caption:=lmdsysinfo1.Computername;
 lmdlabel3.Caption:=lmdsysinfo1.Platform;
 lmdlabel4.Caption:=lmdsysinfo1.RegisteredCompany;
end;

end.