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

unit About; 
 
interface 
 
uses 
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, 
  Dialogs, StdCtrls; 
 
type 
  TfrmAbout = class(TForm) 
    Label2: TLabel; 
    Label3: TLabel; 
    Label4: TLabel; 
    Label6: TLabel; 
    Label7: TLabel; 
    Label1: TLabel; 
    Label5: TLabel; 
    Label8: TLabel; 
    Label9: TLabel; 
    Label10: TLabel; 
    Button1: TButton; 
    procedure FormClose(Sender: TObject; var Action: TCloseAction); 
    procedure Button1Click(Sender: TObject); 
    procedure Label4Click(Sender: TObject); 
  private 
    { Private declarations } 
  public 
    { Public declarations } 
  end; 
 
var 
  frmAbout: TfrmAbout; 
 
implementation 
 
uses MainForm; 
 
{$R *.dfm} 
 
procedure TfrmAbout.FormClose(Sender: TObject; var Action: TCloseAction); 
begin 
    Action:=caFree; 
end; 
 
procedure TfrmAbout.Button1Click(Sender: TObject); 
begin 
    frmAbout.Close; 
end; 
 
procedure TfrmAbout.Label4Click(Sender: TObject); 
begin 
    //shellexecute(0,'open',pchar('ftp://come.meibu.com'),nil,nil,sw_show); 
    Label4.Caption:='正在进入FTP服务器，请稍候...'; 
    MyOpenURL:=TOpenURL.Create('ftp://come.meibu.com','',False); 
end; 
 
end.