unit Unit1;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Menus, OleCtrls,
  SHDocVw, ComCtrls, ExtCtrls, ExtDlgs;
 
type
  TForm1 = class(TForm)
    MainMenu1: TMainMenu;
    PopupMenu1: TPopupMenu;
    panel11: TPanel;
    OpenDialog1: TOpenDialog;
    SaveDialog1: TSaveDialog;
    OpenPictureDialog1: TOpenPictureDialog;
    SavePictureDialog1: TSavePictureDialog;
    dlgFont1: TFontDialog;
    dlgColor1: TColorDialog;
    dlgPnt1: TPrintDialog;
    dlgPntSet1: TPrinterSetupDialog;
    dlgFind1: TFindDialog;
    dlgReplace1: TReplaceDialog;
    dlg1: TPageSetupDialog;
    tmr1: TTimer;
    panel2: TPanel;
    combobox1: TComboBox;
    Button1: TButton;
    ScrollBar1: TScrollBar;
    ScrollBar2: TScrollBar;
    StatusBar1: TStatusBar;
    ProgressBar1: TProgressBar;
    webbrowser1: TWebBrowser;
    N1: TMenuItem;
    N2: TMenuItem;
    N3: TMenuItem;
    N4: TMenuItem;
    N5: TMenuItem;
    N6: TMenuItem;
    N7: TMenuItem;
    N8: TMenuItem;
    N9: TMenuItem;
    N10: TMenuItem;
    N11: TMenuItem;
    N12: TMenuItem;
    N13: TMenuItem;
    N14: TMenuItem;
    N15: TMenuItem;
    N16: TMenuItem;
    N17: TMenuItem;
    N18: TMenuItem;
    N19: TMenuItem;
    N20: TMenuItem;
    N21: TMenuItem;
    N22: TMenuItem;
    N23: TMenuItem;
    html1: TMenuItem;
    N24: TMenuItem;
    N25: TMenuItem;
    N26: TMenuItem;
    N27: TMenuItem;
    N28: TMenuItem;
    N29: TMenuItem;
    MEL1: TMenuItem;
    MEL2: TMenuItem;
    N30: TMenuItem;
    N31: TMenuItem;
    N32: TMenuItem;
    Capslock1: TMenuItem;
    N33: TMenuItem;
    N34: TMenuItem;
    N35: TMenuItem;
    N36: TMenuItem;
    N37: TMenuItem;
    N38: TMenuItem;
    Whois1: TMenuItem;
    N39: TMenuItem;
    N40: TMenuItem;
    N41: TMenuItem;
    N42: TMenuItem;
    N43: TMenuItem;
    HostIPtoHost1: TMenuItem;
    N44: TMenuItem;
    N45: TMenuItem;
    N46: TMenuItem;
    N47: TMenuItem;
    N48: TMenuItem;
    N49: TMenuItem;
    IdHTTP1: TIdHTTP;
    IdAntiFreeze1: TIdAntiFreeze;
    memo2: TMemo;
    procedure combobox1KeyDown(Sender: TObject; var Key: Word;
      Shift: TShiftState);
    procedure N7Click(Sender: TObject);
    procedure N26Click(Sender: TObject);
    procedure N25Click(Sender: TObject);
    procedure N27Click(Sender: TObject);
    procedure N24Click(Sender: TObject);
    procedure N12Click(Sender: TObject);
    procedure webbrowser1StatusTextChange(Sender: TObject;
      const Text: WideString);
    procedure webbrowser1ProgressChange(Sender: TObject; Progress,
      ProgressMax: Integer);
    procedure N47Click(Sender: TObject);
    procedure N46Click(Sender: TObject);
    procedure N39Click(Sender: TObject);
    procedure N40Click(Sender: TObject);
    procedure N42Click(Sender: TObject);
    procedure Button1Click(Sender: TObject);
    procedure HostIPtoHost1Click(Sender: TObject);
    procedure N38Click(Sender: TObject);
    procedure N49Click(Sender: TObject);
    procedure N30Click(Sender: TObject);
    procedure N43Click(Sender: TObject);
    procedure N9Click(Sender: TObject);
    procedure N14Click(Sender: TObject);
    procedure N33Click(Sender: TObject);
    procedure N34Click(Sender: TObject);
    procedure N35Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  Form1: TForm1;
 
implementation
 Uses  Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,Unit12,Unit13,Unit14, Unit15,Unit16 ,
  Unit17;
{$R *.dfm}
 
procedure TForm1.combobox1KeyDown(Sender: TObject; var Key: Word;
  Shift: TShiftState);
begin
 if Key= VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text);
end;
 
procedure TForm1.N7Click(Sender: TObject);
begin
  if OpenDialog1.Execute then
begin
WebBrowser1.Navigate(OpenDialog1.FileName);
ComboBox1.Text:=OpenDialog1.FileName;
end;
end;
 
procedure TForm1.N26Click(Sender: TObject);
begin
 WebBrowser1.GoBack;
end;
 
procedure TForm1.N25Click(Sender: TObject);
begin
 WebBrowser1.GoForward;
end;
 
procedure TForm1.N27Click(Sender: TObject);
begin
  WebBrowser1.Stop;
end;
 
procedure TForm1.N24Click(Sender: TObject);
begin
  WebBrowser1.Refresh;
end;
 
procedure TForm1.N12Click(Sender: TObject);
  var
PostData, Headers:OLEvariant;
begin
 WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData, Headers);
end;
 
procedure TForm1.webbrowser1StatusTextChange(Sender: TObject;
  const Text: WideString);
begin
 StatusBar1.SimpleText:=Text;
end;
 
procedure TForm1.webbrowser1ProgressChange(Sender: TObject; Progress,
  ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;
 
procedure TForm1.N47Click(Sender: TObject);
begin
Form10.ShowModal;
end;
 
procedure TForm1.N46Click(Sender: TObject);
begin
Form11.Show;
end;
 
procedure TForm1.N39Click(Sender: TObject);
begin
Form8.ShowModal;
end;
 
procedure TForm1.N40Click(Sender: TObject);
begin
Form9.ShowModal;
end;
 
procedure TForm1.N42Click(Sender: TObject);
begin
Showmessage('Данная программа создана мною начинающим программистом Моисеевым Евгением Леонидовичем ,ее можно
использовать как обычный веб-браузер но она так  же подходит для удаленного администрирования компьютеров в сети и
других целей.Все вопросы,писать в лс');
end;
 
procedure TForm1.Button1Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
 
procedure TForm1.HostIPtoHost1Click(Sender: TObject);
begin
Form3.ShowModal;
end;
 
procedure TForm1.N38Click(Sender: TObject);
begin
Form4.ShowModal;
end;
 
procedure TForm1.N49Click(Sender: TObject);
begin
Form5.Show;
end;
 
procedure TForm1.N30Click(Sender: TObject);
begin
Form6.ShowModal;
end;
 
procedure TForm1.N43Click(Sender: TObject);
begin
Form7.ShowModal;
end;
 
procedure TForm1.N9Click(Sender: TObject);
begin
 if SaveDialog1.Execute then
begin
WebBrowser1.Navigate(SaveDialog1.FileName);
ComboBox1.Text:=SaveDialog1.FileName;
end;
end;
 
procedure TForm1.N14Click(Sender: TObject);
begin
Form1.Close;
end;
 
procedure TForm1.N33Click(Sender: TObject);
begin
Form16.Showmodal;
end;
 
procedure TForm1.N34Click(Sender: TObject);
begin
  Form17.ShowModal;
end;
 
procedure TForm1.N35Click(Sender: TObject);
begin
Form15.Show;
end;
 
end.