A. strurl:='c:\1.html'; ShellExecute(0, PChar('open'), PChar(strURL), nil, nil,SW_NORMAL); 這個方式可以使ie均開啟於同一視窗(可是不能有書籤) strurl:='c:\1.html#123'; ShellExecute(0, PChar('open'), PChar(strURL), nil, nil,SW_NORMAL); 會顯示無法開啟檔案.... B. ieexe:='C:\Program Files\Internet Explorer\IEXPLORE.EXE'; strurl:='c:\1.html#123'; ShellExecute(0, PChar('open'),pchar(ieexe), PChar(strURL), nil,SW_NORMAL); 可開啟可是每次均會開一新視窗 請問如何才可以在同一視窗下,開啟c:\1.html#123 (即檔案中有書籤的檔) 本題是由 http://delphi.ktop.com.tw/topic.php?TOPIC_ID=81456 轉問的謝謝....

Hi shinhrn,    以下 CODES 供你參考

unit Unit1;    interface    uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, ComObj, StdCtrls;    type
  TForm1 = class(TForm)
    Button1: TButton;
    Edit1: TEdit;
    procedure Button1Click(Sender: TObject);
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
    ie : Variant;
    ieHandle : THandle;
  public
    { Public declarations }
  end;    var
  Form1: TForm1;    implementation    {$R *.dfm}    procedure TForm1.FormCreate(Sender: TObject);
begin
  ieHandle := 0;
end;    procedure TForm1.Button1Click(Sender: TObject);
var
 dwResult : DWORD;
 lngReturnValue : LongInt;
begin
  lngReturnValue := SendMessageTimeout(ieHandle, WM_NULL, 0, 0, SMTO_ABORTIFHUNG OR SMTO_BLOCK, 1000, dwResult);
  If lngReturnValue > 0 then
    begin
      SetActiveWindow(ieHandle);
      ie.Visible := True;
      ie.Navigate(Edit1.Text);
    end
  else
    begin
      ie := CreateOleObject('InternetExplorer.Application');
      ie.Visible := True;
      ie.Navigate(Edit1.Text);
      ieHandle := ie.HWnd;
    end;
end;    end.

發表人 -

------
Fishman

3Q...sorry..我的要求還一項,就是有不指定瀏覽器...後來我是用WebBrowser其實也可以..