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

[Daniel B]

Hallo,

hier noch eine Erweiterung zum Minimieren.

Delphi-Quellcode:

procedure MinimizeAll;
begin
  KeyBd_Event(VK_LWIN, MapvirtualKey(VK_LWIN, 0), 0, 0);
  KeyBd_Event(Ord('M'), MapvirtualKey(Ord('M'), 0), 0, 0);
  KeyBd_Event(Ord('M'), MapvirtualKey(Ord('M'), 0), KEYEVENTF_KEYUP, 0);
  KeyBd_Event(VK_LWIN, MapvirtualKey(VK_LWIN, 0), KEYEVENTF_KEYUP, 0);
end;

Grüsse, Daniel