Ребята нужна помощь.Надо по курсовой сделать браузер на основе IE,его я уже сделал,но загадкой для меня осталось как в браузере сделать так что бы при запуске выводилась самая посещаемая страница. вот то что у меня есть на данный момент:
Код:
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ComCtrls, StdCtrls, ToolWin, OleCtrls, SHDocVw, ImgList,
HTTPApp, HTTPProd, DSProd, DBWeb, DBXpressWeb;
type
Tbrowser = class(TForm)
WebBrowser1: TWebBrowser;
CoolBar1: TCoolBar;
ToolBar1: TToolBar;
ToolBar2: TToolBar;
ComboBox1: TComboBox;
ToolButton1: TToolButton;
ToolButton2: TToolButton;
ToolButton3: TToolButton;
ToolButton4: TToolButton;
ToolButton5: TToolButton;
ToolButton6: TToolButton;
OpenDialog1: TOpenDialog;
StatusBar1: TStatusBar;
ProgressBar1: TProgressBar;
ImageList1: TImageList;
procedure ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
procedure ToolButton1Click(Sender: TObject);
procedure ToolButton2Click(Sender: TObject);
procedure ToolButton3Click(Sender: TObject);
procedure ToolButton4Click(Sender: TObject);
procedure ToolButton5Click(Sender: TObject);
procedure ToolButton6Click(Sender: TObject);
procedure WebBrowser1StatusTextChange(Sender: TObject;
const Text: WideString);
procedure WebBrowser1ProgressChange(Sender: TObject; Progress,
ProgressMax: Integer);
private
{ Private declarations }
public
{ Public declarations }
end;
var
browser: Tbrowser;
implementation
{$R *.dfm}
procedure Tbrowser.ComboBox1KeyDown(Sender: TObject; var Key: Word;
Shift: TShiftState);
begin
if Key= VK_RETURN then
WebBrowser1.Navigate(ComboBox1.Text );
end;
procedure Tbrowser.ToolButton1Click(Sender: TObject);
begin
if OpenDialog1.Execute then
begin
WebBrowser1.Navigate(OpenDialog1.Fi leName);
ComboBox1.Text:=OpenDialog1.FileNam e;
end;
end;
procedure Tbrowser.ToolButton2Click(Sender: TObject);
begin
WebBrowser1.GoBack;
end;
procedure Tbrowser.ToolButton3Click(Sender: TObject);
begin
WebBrowser1.GoForward;
end;
procedure Tbrowser.ToolButton4Click(Sender: TObject);
begin
WebBrowser1.Stop;
end;
procedure Tbrowser.ToolButton5Click(Sender: TObject);
begin
WebBrowser1.Refresh;
end;
procedure Tbrowser.ToolButton6Click(Sender: TObject);
var
PostData, Headers:OLEvariant;
begin
WebBrowser1.ExecWB(OLECMDID_PRINT,O LECMDEXECOPT_DODEFAULT,PostData, Headers);
end;
procedure Tbrowser.WebBrowser1StatusTextChang e(Sender: TObject;
const Text: WideString);
begin
StatusBar1.SimpleText:=Text;
end;
procedure Tbrowser.WebBrowser1ProgressChange( Sender: TObject; Progress,
ProgressMax: Integer);
begin
ProgressBar1.Max:=ProgressMax;
ProgressBar1.Position:=Progress;
end;
end.