Alle IE-Fenster schliessen, maximieren oder minimieren

[Daniel B]

Hallo,

Delphi-Quellcode:

procedure TForm1.Button2Click(Sender: TObject);
var
  hExplorer: Thandle;
begin
  hExplorer := FindWindow('IEFrame', nil);
  if hExplorer <> 0 then
    SendMessage(hExplorer, WM_SYSCOMMAND, SC_MINIMIZE, 0);
  //SC_CLOSE    Alle Fenster schliessen
  //SC_MAXIMIZE Alle Fenster maximieren
  //SC_MINIMIZE Alle Fenster minimieren
end;

Grüsse, Daniel