unit2.pas

一个网站导航的小软件,体积小,是上网的辅助工具,有源码

unit Unit2;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, jpeg, ExtCtrls, Menus,Clipbrd, OleCtrls, SHDocVw,unit3 ;

type
  TForm2 = class(TForm)
    MainMenu1: TMainMenu;
    Image1: TImage;
    GroupBox1: TGroupBox;
    Button1: TButton;
    Button2: TButton;
    Button3: TButton;
    Button4: TButton;
    Panel1: TPanel;
    Button5: TButton;
    Memo1: TMemo;
    Panel2: TPanel;
    Button6: TButton;
    Button7: TButton;
    WebBrowser1: TWebBrowser;
    Panel3: TPanel;
    Timer1: TTimer;
    Button8: TButton;
    GroupBox2: TGroupBox;
    Button9: TButton;
    Button10: TButton;
    Button11: TButton;
    Button12: TButton;
    Button13: TButton;
    Button14: TButton;
    Button15: TButton;
    Button16: TButton;
    Button17: TButton;
    Panel4: TPanel;
    Panel5: TPanel;
    Label1: TLabel;
    Button18: TButton;
    Button19: TButton;
    Button20: TButton;
    Button21: TButton;
    Label2: TLabel;
    Button22: TButton;
    Button23: TButton;
    Button24: TButton;
    Button25: TButton;
    Button26: TButton;
    Button27: TButton;
    Button28: TButton;
    Button29: TButton;
    Button30: TButton;
    Button31: TButton;
    Button32: TButton;
    Button33: TButton;
    Button34: TButton;
    Label3: TLabel;
    PopupMenu1: TPopupMenu;
    N1: TMenuItem;
    procedure Button4Click(Sender: TObject);
    procedure Button6Click(Sender: TObject);
    procedure Button7Click(Sender: TObject);
    procedure Button5Click(Sender: TObject);
    procedure Timer1Timer(Sender: TObject);
    procedure Button8Click(Sender: TObject);
    procedure Button3Click(Sender: TObject);
    procedure Button11Click(Sender: TObject);
    procedure Button9Click(Sender: TObject);
    procedure Button10Click(Sender: TObject);
    procedure Button12Click(Sender: TObject);
    procedure Button14Click(Sender: TObject);
    procedure Button15Click(Sender: TObject);
    procedure Button13Click(Sender: TObject);
    procedure Button16Click(Sender: TObject);
    procedure Button17Click(Sender: TObject);
    procedure Button19Click(Sender: TObject);
    procedure Button18Click(Sender: TObject);
    procedure Button20Click(Sender: TObject);
    procedure Button21Click(Sender: TObject);
    procedure Button28Click(Sender: TObject);
    procedure Button29Click(Sender: TObject);
    procedure Button22Click(Sender: TObject);
    procedure Button23Click(Sender: TObject);
    procedure Button24Click(Sender: TObject);
    procedure Button25Click(Sender: TObject);
    procedure Button26Click(Sender: TObject);
    procedure Button30Click(Sender: TObject);
    procedure Button27Click(Sender: TObject);
    procedure N1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form2: TForm2;

implementation
 uses unit1;

{$R *.dfm}

procedure TForm2.Button4Click(Sender: TObject);
begin
 groupbox2.Visible :=false;
 webbrowser1.Hide;
 memo1.Visible :=true;
 button6.Visible :=true;
end;

procedure TForm2.Button6Click(Sender: TObject);
begin
 memo1.Visible :=false;
 button6.Visible :=false;
 Clipboard.SetTextBuf(PChar(Memo1.Text));

end;

procedure TForm2.Button7Click(Sender: TObject);
begin
 form1.MediaPlayer1.Stop;
 Application.Terminate; 
end;

procedure TForm2.Button5Click(Sender: TObject);
begin
 timer1.Enabled :=true;
 panel3.Visible :=true;
 webbrowser1.Navigate('mp3.baidu.com');



end;

procedure TForm2.Timer1Timer(Sender: TObject);
begin
 panel3.Visible :=false;
end;

procedure TForm2.Button8Click(Sender: TObject);
begin
SendMessage(handle, wm_SysCommand, sc_Minimize, 0);
end;

procedure TForm2.Button3Click(Sender: TObject);
begin
  webbrowser1.Hide;
  groupbox2.Visible :=true;
  
end;

procedure TForm2.Button11Click(Sender: TObject);
begin
 showmessage('听个鸟。。！自己下载听！');
end;

procedure TForm2.Button9Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
  timer1.Enabled :=true;
 panel3.Visible :=true;
 webbrowser1.Navigate('www.baidu.com');
end;

procedure TForm2.Button10Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
  timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.163.com');
end;

procedure TForm2.Button12Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.52592.com');
end;

procedure TForm2.Button14Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
 webbrowser1.Navigate('http://www.pceggs.com/PgQCoinRush.aspx?pcd=4909303&cd=c9df9edd');
end;

procedure TForm2.Button15Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.taobao.com');
end;

procedure TForm2.Button13Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.gougou.com');
end;

procedure TForm2.Button16Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.tudou.com');
end;

procedure TForm2.Button17Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.qidian.com');
end;

procedure TForm2.Button19Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('www.qq.com');
end;

procedure TForm2.Button18Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('book.qq.com');
end;

procedure TForm2.Button20Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('qzone.qq.com');
end;

procedure TForm2.Button21Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('vip.qq.com');
end;

procedure TForm2.Button28Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('qbar.qq.com');
end;

procedure TForm2.Button29Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Visible :=true;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('wenwen.sousou.com');
end;

procedure TForm2.Button22Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Visible :=true;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('nokia.it168.com');
end;

procedure TForm2.Button23Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('moto.it168.com');
end;

procedure TForm2.Button24Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('se.it168.com');
end;

procedure TForm2.Button25Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('anycall.it168.com');
end;

procedure TForm2.Button26Click(Sender: TObject);
begin
  groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('amoi.it168.com'); 
end;

procedure TForm2.Button30Click(Sender: TObject);
begin
 groupbox2.Visible :=false;
  webbrowser1.Show;
 timer1.Enabled :=true;
 panel3.Visible :=true;
webbrowser1.Navigate('370047109.qzone.qq.com');
end;

procedure TForm2.Button27Click(Sender: TObject);
begin
groupbox2.Visible :=false;
  webbrowser1.Show;
  timer1.Enabled :=true;
 panel3.Visible :=true;
 webbrowser1.Navigate('gjdj.uu1001.com');
end;

procedure TForm2.N1Click(Sender: TObject);
begin
 form3.Show;
end;

end.