sysabout.~pas

企业端数据申报系统：单位管理模块 单位查询. 业务申报模块 在线数据下载 在线数据上传 在线业务申核 申报业务查询 磁盘数据导出 磁盘数据导入 在线业务模块 在线业务

unit sysabout;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, RXCtrls, StdCtrls, ExtCtrls,shellApi, jpeg;

type
  Tabout_frm = class(TForm)
    Image1: TImage;
    L_version: TLabel;
    Label1: TLabel;
    Label2: TLabel;
    Label7: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    procedure FormClose(Sender: TObject; var Action: TCloseAction);
    procedure Label1Click(Sender: TObject);
    procedure Label1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Panel1MouseMove(Sender: TObject; Shift: TShiftState; X,
      Y: Integer);
    procedure Image1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  about_frm: Tabout_frm;

implementation

uses commlist;

{$R *.dfm}

procedure Tabout_frm.FormClose(Sender: TObject;
  var Action: TCloseAction);
begin
  Action:=cafree;
end;

procedure Tabout_frm.Label1Click(Sender: TObject);
begin
//  Shellexecute(handle,nil,pchar('http://www.epsoft.com.cn'),nil,nil,sw_shownormal);
end;

procedure Tabout_frm.Label1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  //Label1.Font.Color:=clBlue;
  //Label1.Cursor:=crHandPoint;
end;

procedure Tabout_frm.Panel1MouseMove(Sender: TObject; Shift: TShiftState;
  X, Y: Integer);
begin
  //Label1.Font.Color :=clWindowText;
  //Label1.Cursor:=crDefault;
end;

procedure Tabout_frm.Image1Click(Sender: TObject);
begin
  close;
end;

procedure Tabout_frm.FormCreate(Sender: TObject);
var
  version:TVersion;
begin
  version:=GetVerInfo(Application.ExeName);
  L_version.Caption:='V'+version.ProductVersion;
end;

end.