about.~pas

delphi6.0电子寻更源程序,用来计算保安有无查抄

unit about;

interface

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

type
  TAboutform = class(TForm)
    Panel4: TPanel;
    Panel1: TPanel;
    Image1: TImage;
    Panel3: TPanel;
    ManuLb: TPanel;
    FaxLB: TPanel;
    BitBtn1: TBitBtn;
    PhoneLB: TPanel;
    Panel2: TPanel;
    fcLabel16: TfcLabel;
    procedure FormCreate(Sender: TObject);
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure BitBtn1Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Aboutform: TAboutform;

implementation

uses menu, FileCtrl,IniFiles;

const
  ScreenWidth: LongInt = 800; {I designed my form in 800x600 mode.}
  ScreenHeight: LongInt = 600;

{$R *.DFM}

procedure TAboutform.FormCreate(Sender: TObject);
var
inif:tinifile;
temp,path,filename,spname,gsmc,dh,cz,splash,email,aver:string;
begin
filename:=ExtractFiledir(APPLICATION.EXENAME)+'\'+ExtractFilename(APPLICATION.EXENAME);
if not fileexists(filename) then
filename:=ExtractFileDir(APPLICATION.EXENAME)+'SystemInfo.ini'
else filename:=extractfiledir(application.exename)+'\SystemInfo.ini';
inif:=TInifile.Create(filename);
spname:=inif.readstring('manuinfo','SPLASHNAME',temp);
gsmc:=inif.ReadString('manuinfo','MANUFACTORY',temp);
dh:=inif.readstring('manuinfo','phone',temp);
cz:=inif.readstring('manuinfo','fax',temp);
email:=inif.readstring('manuinfo','email',temp);
aver:=inif.readstring('manuinfo','ver',temp);
inif.Free;
if spname='' then
begin
//  rxLabel1.Caption:='巡更管理系統' ;
  manulb.Caption :='公司名稱:福州左右电子科技有限公司';
  phonelb.Caption:='電話:[phone]';
  faxlb.Caption:='傳真:[phone]';
end
  else
  begin
//  rxlabel1.Caption:=spname;
 if gsmc<>'' then
 manulb.Caption:='公司名稱:'+gsmc
 else
 manulb.Caption:='';
 if dh<>'' then
phonelb.Caption:='電話:'+dh
else
phonelb.Caption:='';
 if cz<>'' then
faxlb.Caption:='傳真:'+cz
else
faxlb.Caption:='' ;

 if email<>'' then
Panel2.Caption:='网址:'+email
else
Panel2.Caption:='';
end;
if aver<>'' then
fcLabel16.Caption :=fcLabel16.Caption +'版權所有：'+aver
else
fcLabel16.Caption :=fcLabel16.Caption +'          版本號：VER2.0 (2003.11.01)';

end;

procedure TAboutform.FormClose(Sender: TObject; var Action: TCloseAction);
begin
action:=cafree ;
Aboutform :=nil ;
end;

procedure TAboutform.BitBtn1Click(Sender: TObject);
begin
self.Close;
end;

procedure TAboutform.Button1Click(Sender: TObject);
begin
Application.MessageBox(Pchar('width='+inttostr(self.width)+'--'+'height='+inttostr(self.height)+'--'+'left='+inttostr(self.left)+'--top='+inttostr(self.top)),'消息',MB_ICONINFORMATION);;

end;

end.