unit2.pas

由于目前很多字典生成的密码很难满足我们的要求

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,SHELLAPI;

type
  Thelp = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Button1: TButton;
    Label4: TLabel;
    procedure Button1Click(Sender: TObject);
    procedure Label4Click(Sender: TObject);
    procedure Label3Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  help: Thelp;

implementation

{$R *.dfm}

procedure Thelp.Button1Click(Sender: TObject);
begin
  close;
end;

procedure Thelp.Label4Click(Sender: TObject);
begin
  ShellExecute(handle,'open','http://www.nssh.net','-s','',SW_SHOWNORMAL);
end;

procedure Thelp.Label3Click(Sender: TObject);
begin
   ShellExecute(handle,'open','mailto:[e-mail]','-s','',SW_SHOWNORMAL);
end;

end.