www.pudn.com > telephonefordelphi.rar > UnitAbout.pas

unit UnitAbout; 
 
interface 
 
uses Windows, Classes, Graphics, Forms, Controls, StdCtrls, 
  Buttons, ExtCtrls, jpeg,shellapi; 
 
type 
  TFormAbout = class(TForm) 
    Panel1: TPanel; 
    ProgramIcon: TImage; 
    Copyright: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label6: TLabel; 
    Label8: TLabel; 
    BitBtn1: TBitBtn; 
    Label1: TLabel; 
    procedure BitBtn1Click(Sender: TObject); 
    procedure Label8Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  FormAbout: TFormAbout; 
 
implementation 
 
{$R *.DFM} 
 
procedure TFormAbout.BitBtn1Click(Sender: TObject); 
begin 
  close; 
end; 
 
procedure TFormAbout.Label8Click(Sender: TObject); 
begin 
   ShellExecute(handle,nil,pchar('mailto:'+(sender as TLabel).caption),nil,nil,sw_shownormal); 
end; 
 
end.