unit9.pas

绝对一流的压缩解压程序-,Delphi,压缩解压

unit Unit9;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ExtCtrls, ComCtrls, Menus, StdCtrls, Buttons, ToolWin, OleCtrls,
  SHDocVw, SUIComboBox, SUIPopupMenu;

type
  TForm9 = class(TForm)
    MainMenu1: TMainMenu;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    StatusBar1: TStatusBar;
    ToolBar1: TToolBar;
    ToolBar2: TToolBar;
    Panel1: TPanel;
    BitBtn1: TBitBtn;
    BitBtn2: TBitBtn;
    BitBtn3: TBitBtn;
    BitBtn4: TBitBtn;
    BitBtn5: TBitBtn;
    BitBtn6: TBitBtn;
    ToolButton1: TToolButton;
    ToolButton2: TToolButton;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    cb1: TsuiComboBox;
    ToolButton3: TToolButton;
    BitBtn7: TBitBtn;
    wb1: TWebBrowser;
    Label1: TLabel;
    suiPopupMenu1: TsuiPopupMenu;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    procedure BitBtn6Click(Sender: TObject);
    procedure BitBtn2Click(Sender: TObject);
    procedure wb1DownloadBegin(Sender: TObject);
    procedure wb1DownloadComplete(Sender: TObject);
    procedure BitBtn5Click(Sender: TObject);
    procedure BitBtn1Click(Sender: TObject);
    procedure BitBtn3Click(Sender: TObject);
    procedure BitBtn4Click(Sender: TObject);
    procedure BitBtn7Click(Sender: TObject);
    procedure N2Click(Sender: TObject);
    procedure N4Click(Sender: TObject);
    procedure N5Click(Sender: TObject);
    procedure N10Click(Sender: TObject);
    procedure N7Click(Sender: TObject);
    procedure N6Click(Sender: TObject);
    procedure N11Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N15Click(Sender: TObject);
    procedure N17Click(Sender: TObject);
    procedure N19Click(Sender: TObject);
    procedure N21Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form9: TForm9;

implementation

{$R *.dfm}

procedure TForm9.BitBtn6Click(Sender: TObject);
begin
 try
  wb1.GoBack;
  except
    showmessage('已经到达最早历史记录');
    exit;
    end;
end;

procedure TForm9.BitBtn2Click(Sender: TObject);
begin
 try
      wb1.GoForward;
      except
        showmessage('已经到达最后历史记录');
        exit;
        end;
end;

procedure TForm9.wb1DownloadBegin(Sender: TObject);
begin
statusbar1.Panels[0].Text:='正在从以下站点：'+cb1.Text+'下载';
end;

procedure TForm9.wb1DownloadComplete(Sender: TObject);
begin
    statusbar1.Panels[0].Text:='完成'+wb1.LocationURL;
end;

procedure TForm9.BitBtn5Click(Sender: TObject);
begin
   wb1.Stop;
end;

procedure TForm9.BitBtn1Click(Sender: TObject);
begin
    close;
end;

procedure TForm9.BitBtn3Click(Sender: TObject);
begin
    wb1.GoHome;
    cb1.Text:='返回主页';
end;

procedure TForm9.BitBtn4Click(Sender: TObject);
begin
     wb1.Refresh;
end;

procedure TForm9.BitBtn7Click(Sender: TObject);
begin
   cb1.Items.Add(cb1.Text);
   if cb1.Text<>'' then
       wb1.Navigate(widestring(cb1.Text)) else
       exit;

end;

procedure TForm9.N2Click(Sender: TObject);
begin
    close;
end;

procedure TForm9.N4Click(Sender: TObject);
begin
    bitbtn2.Click;
end;

procedure TForm9.N5Click(Sender: TObject);
begin
   bitbtn6.Click;
end;

procedure TForm9.N10Click(Sender: TObject);
begin
      bitbtn5.Click;
end;

procedure TForm9.N7Click(Sender: TObject);
begin
    bitbtn4.Click;
end;

procedure TForm9.N6Click(Sender: TObject);
begin
   bitbtn3.Click;
end;

procedure TForm9.N11Click(Sender: TObject);
begin
    bitbtn2.Click;
end;

procedure TForm9.N12Click(Sender: TObject);
begin
   bitbtn6.Click;
end;

procedure TForm9.N14Click(Sender: TObject);
begin
    bitbtn3.Click;
end;

procedure TForm9.N15Click(Sender: TObject);
begin
    bitbtn4.Click;
end;

procedure TForm9.N17Click(Sender: TObject);
begin
   bitbtn5.Click;
end;

procedure TForm9.N19Click(Sender: TObject);
begin
   close;
end;

procedure TForm9.N21Click(Sender: TObject);
begin
    wb1.FullScreen:=true;
    form9.WindowState:=wsmaximized;
end;

procedure TForm9.FormCreate(Sender: TObject);
begin
   cb1.Text:='http://lovesky1984.home.bj001.net';
   cb1.Items.Add(cb1.Text);
   bitbtn7.Click;
end;

end.