ychatu39.pas

来自「Yahoo Messenger for Mobile」· PAS 代码 · 共 85 行

unit YchatU39;

interface

uses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls,  ExtCtrls;

type
  TForm35 = class(TForm)
    Edit1: TEdit;
    Panel1: TPanel;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Bevel1: TBevel;
    Button5: TButton;
    Button6: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Button4Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
    procedure Edit1DblClick(Sender: TObject);
    procedure Button6Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form35: TForm35;

implementation

uses YchatU1;

{$R *.dfm}

procedure TForm35.Button1Click(Sender: TObject);
begin
  Form1.shellExecute(handle,'open',pchar(Edit1.Text),'','',0);
  Close;
end;

procedure TForm35.Button5Click(Sender: TObject);
begin
  Close;
end;

procedure TForm35.Button4Click(Sender: TObject);
begin
  Form1.ShellExecute(handle, 'open', Pchar('C:\Program Files\Opera\opera.exe'), Pchar(Edit1.Text), '',  sw_Normal);
  Close;
end;

procedure TForm35.Button3Click(Sender: TObject);
begin
 Form1.ShellExecute(handle, 'open', Pchar('C:\Program Files\NetScape\Communicator\Program\NetScape.exe'), Pchar(Edit1.Text), '',  sw_Normal);
 Close;
end;

procedure TForm35.Button2Click(Sender: TObject);
begin
  Form1.ShellExecute(handle, 'open', Pchar('C:\Program Files\Internet Explorer\IExplore.exe'), Pchar(Edit1.Text), '', sw_Normal);
  Close;
end;

procedure TForm35.Edit1DblClick(Sender: TObject);
begin
  Form1.shellExecute(handle,'open',pchar(Edit1.Text),'','',0);
  Close;
end;

procedure TForm35.Button6Click(Sender: TObject);
begin
Form1.ShellExecute(handle, 'open', Pchar('C:\Program Files\Mozilla Firefox\firefox.exe'), Pchar(Edit1.Text), '',  sw_Normal);

  Close;
end;

end.