about.pas

delphi实现的新税法的个人所得税计算程序

unit about;

interface

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

type
  TFrmAbout = class(TForm)
    Bevel1: TBevel;
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    Label5: TLabel;
    Label6: TLabel;
    Bevel2: TBevel;
    Label7: TLabel;
    BitBtn1: TBitBtn;
    Image1: TImage;
    procedure FrmAboutCreate(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure Label5Click(Sender: TObject);
    procedure Label6Click(Sender: TObject);
  private
    { Private declarations }

  public
    { Public declarations }
  end;

var
  FrmAbout: TFrmAbout;

implementation

{$R *.DFM}

uses shellapi;

procedure TFrmAbout.FrmAboutCreate(Sender: TObject);

    
begin
    label7.Caption :='警告：本软件为免费软件，你可以自由拷贝和传播，'
            +#10#13+'但不得用于商业用途。郭景良保留所有权利。';



end;

procedure TFrmAbout.BitBtn1Click(Sender: TObject);
begin
    close;
end;

procedure TFrmAbout.Label5Click(Sender: TObject);
begin
    ShellExecute(handle,nil,
     'http://guojl.163.com',nil,nil,SW_ShOWNORMAL);
end;

procedure TFrmAbout.Label6Click(Sender: TObject);
begin
    ShellExecute(handle,nil,
    'mailto:guo13765155188.sina.com',nil,nil,SW_SHOWNORMAL);
    
end;

end.