Alle IE Instanzen schließen...

[Evian]

Hat jemand eine Idee, wie ich das am besten machen könnte?!

Also am liebsten, wäre es mir so:

Code:

procedure TForm1.Button1Click(Sender: TObject); 
var 
 ShellWindow: IShellWindows; 
 WB: IWebbrowser2; 
 spDisp: IDispatch; 
 IDoc1: IHTMLDocument2; 
 k: Integer; 
begin 
 ShellWindow := CoShellWindows.Create; 
 for k := 0 to ShellWindow.Count do 
 begin 
   spDisp := ShellWindow.Item(k); 
   if spDisp = nil then Continue; 
   spDisp.QueryInterface(iWebBrowser2, WB); 
   if WB <> nil then 
   begin 
     WB.Document.QueryInterface(IHTMLDocument2, iDoc1); 
     if iDoc1 <> nil then 
     begin 
       WB := ShellWindow.Item(k) as IWebbrowser2; 
       
       // ... Hier müsste sowas wie WB.close; oder so rein
     
    end; 
   end; 
 end; 
end;

Aber mir fehlt an der einen Stelle noch der richtige Befehl!

MFG


Evian

[shmia]

Versuch mal: (WB.ParentWindow AS IHTMLWindow2).Close;

[Evian]

Zitat von shmia:

Versuch mal: (WB.ParentWindow AS IHTMLWindow2).Close;

mh.. ne so geht es leider nicht ...

ich machs jetzt ein wenig umständlich über eine weitere Funktion:

Code:

procedure Tform1.KillProcess(hWindowHandle: HWND);
var
  hprocessID: INTEGER;
  processHandle: THandle; 
  DWResult: DWORD;
begin 
  SendMessageTimeout(hWindowHandle, WM_CLOSE, 0, 0, 
    SMTO_ABORTIFHUNG or SMTO_NORMAL, 5000, DWResult);
  if isWindow(hWindowHandle) then 
  begin
    GetWindowThreadProcessID(hWindowHandle, @hprocessID);
    if hprocessID <> 0 then
    begin
      processHandle := OpenProcess(PROCESS_TERMINATE or PROCESS_QUERY_INFORMATION, 
        False, hprocessID);
      if processHandle <> 0 then 
      begin
        TerminateProcess(processHandle, 0);
        CloseHandle(ProcessHandle);
      end; 
    end;
  end;
end;

[sakura]

Die Suche ist Gold wert fenster schließen -> das 6. Ergebnis sollte es sein

......