about.pas

漏洞扫描系列中HB Network Scanner 测试用练习代码

unit about;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  regions, StdCtrls, ExtCtrls, scheme, Buttons, VCLBase, EffBtns;

type
  TfrmAbout = class(TForm)
    Label3: TLabel;
    Label4: TLabel;
    Memo1: TMemo;
    Label5: TLabel;
    mlSchemeForm1: TepSchemeForm;
    btnHome: TBitBtn;
    btnMail: TBitBtn;
    mlScheme1: TepScheme;
    mlSchemeStore1: TepSchemeStore;
    epEfRndBtn1: TepEfRndBtn;
    procedure btnHomeClick(Sender: TObject);
    procedure btnMailClick(Sender: TObject);
    procedure epEfRndBtn1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  frmAbout: TfrmAbout;

implementation

{$R *.DFM}

uses ShellAPI;

procedure TfrmAbout.btnHomeClick(Sender: TObject);
begin
  ShellExecute(0, 'open', 'http://www.evgesoft.com/dev/', nil, nil, SW_SHOWNORMAL);
end;

procedure TfrmAbout.btnMailClick(Sender: TObject);
begin
  ShellExecute(0, 'open', 'mailto:[e-mail]', nil, nil, SW_SHOWNORMAL);
end;


procedure TfrmAbout.epEfRndBtn1Click(Sender: TObject);
begin
  Close;
end;

end.