Alle IE Instanzen schließen...

[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;