www.pudn.com > 200589952618.rar > About.pas

unit About; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls,ShellAPI; 
 
type 
  TFAbout = class(TForm) 
    GroupBox1: TGroupBox; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label8: TLabel; 
    procedure Label8Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FAbout: TFAbout; 
 
implementation 
 
{$R *.dfm} 
 
procedure TFAbout.Label8Click(Sender: TObject); 
var 
  Info : String; 
begin 
  Info := 'mailto:'+ self.Label8.Caption; 
  shellexecute(handle,'open',PChar(Info),nil,nil,sw_shownormal); 
end; 
 
end.