about1.pas

来自「功能强大的报表生成和管理工具」· PAS 代码 · 共 41 行

{$I acs.inc}
unit ABOUT1;

interface

uses Windows, SysUtils, Classes, Graphics, Forms, Controls, StdCtrls,
 DiskSerial,  Registry, Buttons, ExtCtrls, VerInfo, aurllabl, inifiles, Label3D, jpeg;

type
  TAboutBox1 = class(TForm)
    OKButton: TButton;
    Panel1: TPanel;
    Label3D1: TLabel3D;
    Panel4: TPanel;
    Label3D2: TLabel3D;
    Image1: TImage;
    procedure OKButtonClick(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  AboutBox1: TAboutBox1;

implementation

uses Pubvar, cl_crypt32;
var VerInfoRes: TVerInfoRes;

{$R *.DFM}

procedure TAboutBox1.OKButtonClick(Sender: TObject);
begin
  close;
end;

end.