}

Delphi.int.ru — Портал программистов

Вход Регистрация | Забыли пароль?

Просмотр кода

Идентификатор: 1968a6dd Описание: Код загружен: 13 июля 2011, 18:56 (Моисеев Евгений Леонидович)

  1. unit Unit1;
  2.  
  3. interface
  4.  
  5. uses
  6. Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  7. Dialogs, StdCtrls, IdAntiFreezeBase, IdAntiFreeze, IdBaseComponent,
  8. IdComponent, IdTCPConnection, IdTCPClient, IdHTTP, Menus, OleCtrls,
  9. SHDocVw, ComCtrls, ExtCtrls, ExtDlgs;
  10.  
  11. type
  12. TForm1 = class(TForm)
  13. MainMenu1: TMainMenu;
  14. PopupMenu1: TPopupMenu;
  15. panel11: TPanel;
  16. OpenDialog1: TOpenDialog;
  17. SaveDialog1: TSaveDialog;
  18. OpenPictureDialog1: TOpenPictureDialog;
  19. SavePictureDialog1: TSavePictureDialog;
  20. dlgFont1: TFontDialog;
  21. dlgColor1: TColorDialog;
  22. dlgPnt1: TPrintDialog;
  23. dlgPntSet1: TPrinterSetupDialog;
  24. dlgFind1: TFindDialog;
  25. dlgReplace1: TReplaceDialog;
  26. dlg1: TPageSetupDialog;
  27. tmr1: TTimer;
  28. panel2: TPanel;
  29. combobox1: TComboBox;
  30. Button1: TButton;
  31. ScrollBar1: TScrollBar;
  32. ScrollBar2: TScrollBar;
  33. StatusBar1: TStatusBar;
  34. ProgressBar1: TProgressBar;
  35. webbrowser1: TWebBrowser;
  36. N1: TMenuItem;
  37. N2: TMenuItem;
  38. N3: TMenuItem;
  39. N4: TMenuItem;
  40. N5: TMenuItem;
  41. N6: TMenuItem;
  42. N7: TMenuItem;
  43. N8: TMenuItem;
  44. N9: TMenuItem;
  45. N10: TMenuItem;
  46. N11: TMenuItem;
  47. N12: TMenuItem;
  48. N13: TMenuItem;
  49. N14: TMenuItem;
  50. N15: TMenuItem;
  51. N16: TMenuItem;
  52. N17: TMenuItem;
  53. N18: TMenuItem;
  54. N19: TMenuItem;
  55. N20: TMenuItem;
  56. N21: TMenuItem;
  57. N22: TMenuItem;
  58. N23: TMenuItem;
  59. html1: TMenuItem;
  60. N24: TMenuItem;
  61. N25: TMenuItem;
  62. N26: TMenuItem;
  63. N27: TMenuItem;
  64. N28: TMenuItem;
  65. N29: TMenuItem;
  66. MEL1: TMenuItem;
  67. MEL2: TMenuItem;
  68. N30: TMenuItem;
  69. N31: TMenuItem;
  70. N32: TMenuItem;
  71. Capslock1: TMenuItem;
  72. N33: TMenuItem;
  73. N34: TMenuItem;
  74. N35: TMenuItem;
  75. N36: TMenuItem;
  76. N37: TMenuItem;
  77. N38: TMenuItem;
  78. Whois1: TMenuItem;
  79. N39: TMenuItem;
  80. N40: TMenuItem;
  81. N41: TMenuItem;
  82. N42: TMenuItem;
  83. N43: TMenuItem;
  84. HostIPtoHost1: TMenuItem;
  85. N44: TMenuItem;
  86. N45: TMenuItem;
  87. N46: TMenuItem;
  88. N47: TMenuItem;
  89. N48: TMenuItem;
  90. N49: TMenuItem;
  91. IdHTTP1: TIdHTTP;
  92. IdAntiFreeze1: TIdAntiFreeze;
  93. memo2: TMemo;
  94. procedure combobox1KeyDown(Sender: TObject; var Key: Word;
  95. Shift: TShiftState);
  96. procedure N7Click(Sender: TObject);
  97. procedure N26Click(Sender: TObject);
  98. procedure N25Click(Sender: TObject);
  99. procedure N27Click(Sender: TObject);
  100. procedure N24Click(Sender: TObject);
  101. procedure N12Click(Sender: TObject);
  102. procedure webbrowser1StatusTextChange(Sender: TObject;
  103. const Text: WideString);
  104. procedure webbrowser1ProgressChange(Sender: TObject; Progress,
  105. ProgressMax: Integer);
  106. procedure N47Click(Sender: TObject);
  107. procedure N46Click(Sender: TObject);
  108. procedure N39Click(Sender: TObject);
  109. procedure N40Click(Sender: TObject);
  110. procedure N42Click(Sender: TObject);
  111. procedure Button1Click(Sender: TObject);
  112. procedure HostIPtoHost1Click(Sender: TObject);
  113. procedure N38Click(Sender: TObject);
  114. procedure N49Click(Sender: TObject);
  115. procedure N30Click(Sender: TObject);
  116. procedure N43Click(Sender: TObject);
  117. procedure N9Click(Sender: TObject);
  118. procedure N14Click(Sender: TObject);
  119. procedure N33Click(Sender: TObject);
  120. procedure N34Click(Sender: TObject);
  121. procedure N35Click(Sender: TObject);
  122. private
  123. { Private declarations }
  124. public
  125. { Public declarations }
  126. end;
  127.  
  128. var
  129. Form1: TForm1;
  130.  
  131. implementation
  132. Uses Unit2, Unit3, Unit4, Unit5, Unit6, Unit7, Unit8, Unit9, Unit10, Unit11,Unit12,Unit13,Unit14, Unit15,Unit16 ,
  133. Unit17;
  134. {$R *.dfm}
  135.  
  136. procedure TForm1.combobox1KeyDown(Sender: TObject; var Key: Word;
  137. Shift: TShiftState);
  138. begin
  139. if Key= VK_RETURN then
  140. WebBrowser1.Navigate(ComboBox1.Text);
  141. end;
  142.  
  143. procedure TForm1.N7Click(Sender: TObject);
  144. begin
  145. if OpenDialog1.Execute then
  146. begin
  147. WebBrowser1.Navigate(OpenDialog1.FileName);
  148. ComboBox1.Text:=OpenDialog1.FileName;
  149. end;
  150. end;
  151.  
  152. procedure TForm1.N26Click(Sender: TObject);
  153. begin
  154. WebBrowser1.GoBack;
  155. end;
  156.  
  157. procedure TForm1.N25Click(Sender: TObject);
  158. begin
  159. WebBrowser1.GoForward;
  160. end;
  161.  
  162. procedure TForm1.N27Click(Sender: TObject);
  163. begin
  164. WebBrowser1.Stop;
  165. end;
  166.  
  167. procedure TForm1.N24Click(Sender: TObject);
  168. begin
  169. WebBrowser1.Refresh;
  170. end;
  171.  
  172. procedure TForm1.N12Click(Sender: TObject);
  173. var
  174. PostData, Headers:OLEvariant;
  175. begin
  176. WebBrowser1.ExecWB(OLECMDID_PRINT,OLECMDEXECOPT_DODEFAULT,PostData, Headers);
  177. end;
  178.  
  179. procedure TForm1.webbrowser1StatusTextChange(Sender: TObject;
  180. const Text: WideString);
  181. begin
  182. StatusBar1.SimpleText:=Text;
  183. end;
  184.  
  185. procedure TForm1.webbrowser1ProgressChange(Sender: TObject; Progress,
  186. ProgressMax: Integer);
  187. begin
  188. ProgressBar1.Max:=ProgressMax;
  189. ProgressBar1.Position:=Progress;
  190. end;
  191.  
  192. procedure TForm1.N47Click(Sender: TObject);
  193. begin
  194. Form10.ShowModal;
  195. end;
  196.  
  197. procedure TForm1.N46Click(Sender: TObject);
  198. begin
  199. Form11.Show;
  200. end;
  201.  
  202. procedure TForm1.N39Click(Sender: TObject);
  203. begin
  204. Form8.ShowModal;
  205. end;
  206.  
  207. procedure TForm1.N40Click(Sender: TObject);
  208. begin
  209. Form9.ShowModal;
  210. end;
  211.  
  212. procedure TForm1.N42Click(Sender: TObject);
  213. begin
  214. Showmessage('Данная программа создана мною начинающим программистом Моисеевым Евгением Леонидовичем ,ее можно
  215. использовать как обычный веб-браузер но она так же подходит для удаленного администрирования компьютеров в сети и
  216. других целей.Все вопросы,писать в лс');
  217. end;
  218.  
  219. procedure TForm1.Button1Click(Sender: TObject);
  220. begin
  221. WebBrowser1.Refresh;
  222. end;
  223.  
  224. procedure TForm1.HostIPtoHost1Click(Sender: TObject);
  225. begin
  226. F);
  227. end;
  228.  
  229. procedure TForm1.Button1Click(Sender: TObject);
  230. begin
  231. WebBrowser1.Refresh;
  232. end;
  233.  
  234. procedure TForm1.HostIPtoHost1Click(Sender: TObject);
  235. begin
  236. Form3.ShowModal;
  237. end;
  238.  
  239. procedure TForm1.N38Click(Sender: TObject);
  240. begin
  241. Form4.ShowModal;
  242. end;
  243.  
  244. procedure TForm1.N49Click(Sender: TObject);
  245. begin
  246. Form5.Show;
  247. end;
  248.  
  249. procedure TForm1.N30Click(Sender: TObject);
  250. begin
  251. Form6.ShowModal;
  252. end;
  253.  
  254. procedure TForm1.N43Click(Sender: TObject);
  255. begin
  256. Form7.ShowModal;
  257. end;
  258.  
  259. procedure TForm1.N9Click(Sender: TObject);
  260. begin
  261. if SaveDialog1.Execute then
  262. begin
  263. WebBrowser1.Navigate(SaveDialog1.FileName);
  264. ComboBox1.Text:=SaveDialog1.FileName;
  265. end;
  266. end;
  267.  
  268. procedure TForm1.N14Click(Sender: TObject);
  269. begin
  270. Form1.Close;
  271. end;
  272.  
  273. procedure TForm1.N33Click(Sender: TObject);
  274. begin
  275. Form16.Showmodal;
  276. end;
  277.  
  278. proce

Ссылка на данный код:

На главную страницу сервиса обмена кодом »