taboutfrmunit.pas

来自「CVS IDE plugin for Borland Delphi this 」· PAS 代码 · 共 53 行

unit taboutfrmunit;
{$I BORCVS.inc}

interface
//---------------------------------------------------------------------------
uses Classes,
  Controls,
  StdCtrls,
  Forms;
//---------------------------------------------------------------------------
type
  TAboutFrm = class(TForm)
    Label1: TLabel;
    Label2: TLabel;
    Label3: TLabel;
    Label4: TLabel;
    POkBtn: TButton;
    Label5: TLabel;
    Label6: TLabel;
    PUrlLbl: TLabel;
    PMailLbl: TLabel;
    procedure PMailLblClick(Sender: TObject);
    procedure PUrlLblClick(Sender: TObject);
  private
  public
  end;
//---------------------------------------------------------------------------
var
  AboutFrm: TAboutFrm;
//---------------------------------------------------------------------------
implementation
uses
  windows,
  shellapi;
{$R *.dfm}

{ TAboutFrm }

procedure TAboutFrm.PMailLblClick(Sender: TObject);
begin
//  ShellExecute(NULL,'open',AnsiString('mailto:'+PMailLbl.Caption).c_str,
//    NULL,NULL,SW_SHOW);

end;

procedure TAboutFrm.PUrlLblClick(Sender: TObject);
begin
  ShellExecute(0, 'open', pchar(PUrlLbl.Caption), nil, nil, SW_SHOW);
end;

end.