我寫了一個 ShellExecute 開檔案的功能,執行第1次時都沒問題, 可是如果我把ie關掉,再開檔1次,就會等很久才開網頁,不知是何原因? 而且如果在這情形下,連由windows左列 執行-->c:\.1html也會delay了!!!!! (ps:我試了doc不會) 我的環境是 2000 server,delphi 7.0 ,ie 6.0(ie 5.0也試過) procedure TForm1.Button5Click(Sender: TObject); begin ShellExecute(0, PChar('open'), PChar('c:\1.html'), nil, nil, SW_MAXIMIZE); end;

(ps:如果有人試了不會也請告知,我想知道是不是我的機器有問題,謝謝) 都沒有人要幫我試是一下嗎?我想有兩個以上的人試不會,就認定是我的電腦問題

Hi shinhrn,    測試一切正常，測試環境    CPU : Pentium 4 2.20Ghz RAM : 512 MB DDR HD : ST340842A Seagate 40 GB OS : Windows 2000 Professional with Service Pack 4 IE : 6.0.2600.0000 Delphi : 7.0    

------
Fishman

procedure OpenURL(strURL : String) ;
var
  reg : TRegistry ;
  lUseDefault : Boolean ;
  strParam : String ;
begin
  lUseDefault := True ;
  Reg := TRegistry.Create ;
  Reg.RootKey := HKEY_CLASSES_ROOT ;
  if Reg.OpenKey('htmlfile\shell\open\command',False) then
  begin
    strParam := Reg.ReadString('') ;
    if Length(strParam) > 0 then
    begin
      if Pos('"', strParam) = 1 then
        Delete(strParam, 1, 1) ;
      if Pos('"', strParam) > 0 then
        Delete(strParam, Pos('"',strParam), Length(strParam) - Pos('"',strParam)   1) ;
      if (Length(strParam) > 0) and (FileExists(strParam)) then
        lUseDefault := False ;
    end;
    Reg.CloseKey ;
  end;      Reg.Free ;      if lUseDefault then
    ShellExecute(0, PChar('open'), PChar(strURL), nil, nil, SW_NORMAL)
  else
    ShellExecute(0, PChar('open'), PChar(strParam), PChar(strURL), nil, SW_NORMAL) ;    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenURL('c:\readme.htm') ;
end;

我不知道你的系統內的 I.E. 設定，但你測試程式時，試試不要在 Delphi IDE 內進行，建立了 EXE 檔就在外面執行，你也可以檢查你的 I.E. 是否有安裝什麼外掛的程式，那些 yahoo , google 等等的 toolbar 或其他不知名的東東。

引言:

procedure OpenURL(strURL : String) ;
var
  reg : TRegistry ;
  lUseDefault : Boolean ;
  strParam : String ;
begin
  lUseDefault := True ;
  Reg := TRegistry.Create ;
  Reg.RootKey := HKEY_CLASSES_ROOT ;
  if Reg.OpenKey('htmlfile\shell\open\command',False) then
  begin
    strParam := Reg.ReadString('') ;
    if Length(strParam) > 0 then
    begin
      if Pos('"', strParam) = 1 then
        Delete(strParam, 1, 1) ;
      if Pos('"', strParam) > 0 then
        Delete(strParam, Pos('"',strParam), Length(strParam) - Pos('"',strParam)   1) ;
      if (Length(strParam) > 0) and (FileExists(strParam)) then
        lUseDefault := False ;
    end;
    Reg.CloseKey ;
  end;      Reg.Free ;      if lUseDefault then
    ShellExecute(0, PChar('open'), PChar(strURL), nil, nil, SW_NORMAL)
  else
    ShellExecute(0, PChar('open'), PChar(strParam), PChar(strURL), nil, SW_NORMAL) ;    end;    procedure TForm1.Button1Click(Sender: TObject);
begin
  OpenURL('c:\readme.htm') ;
end;

我不知道你的系統內的 I.E. 設定，但你測試程式時，試試不要在 Delphi IDE 內進行，建立了 EXE 檔就在外面執行，你也可以檢查你的 I.E. 是否有安裝什麼外掛的程式，那些 yahoo , google 等等的 toolbar 或其他不知名的東東。

我知道直接呼叫ie是不會delay,如下是我現在的做法 procedure ieopen(sCommandLine:string); var IE:olevariant; begin ie:=CreateOleObject('InternetExplorer.Application'); ie.Navigate(sCommandLine); ie.visible:=true; end; 可是不知道為何,用open第2次會delay才是我的疑問.. 你能幫我試試 ShellExecute(0, PChar('open'), PChar('c:\1.html'), nil, nil, SW_MAXIMIZE); 第二次會delay嗎?