www.pudn.com > 电话产品防伪伺服系统(tw8).rar > Uform_aboutme.pas

unit Uform_aboutme; 
 
interface 
 
uses 
  ShellAPI,Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, Buttons, StdCtrls, ExtCtrls; 
 
type 
  Tform_aboutme = class(TForm) 
    SpeedButton1: TSpeedButton; 
    Image3: TImage; 
    Label1: TLabel; 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label5: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    procedure SpeedButton1Click(Sender: TObject); 
    procedure Label5Click(Sender: TObject); 
    procedure Label6Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  form_aboutme: Tform_aboutme; 
 
implementation 
 
{$R *.dfm} 
 
procedure Tform_aboutme.SpeedButton1Click(Sender: TObject); 
begin 
   close; 
end; 
 
procedure Tform_aboutme.Label5Click(Sender: TObject); 
begin 
   ShellExecute(Self.Handle,'Open',PChar('http://www.beeship.com'),nil,nil,1); 
end; 
 
procedure Tform_aboutme.Label6Click(Sender: TObject); 
begin 
    ShellExecute(Self.Handle,'Open',PChar('mailto:PianoPan@Beeship.com?Subject=关于电话伺服系统1.0'),nil,nil,1); 
end; 
 
end.