Mega Code Archive

 

Categories / Delphi / LAN Web TCP

 

Min all Internet Explorer windows

Title: Min all Internet Explorer windows Send WM_SYSCOMMAND to all Internet Explorer window. Use FindWindow function to find all IE windows. procedure TForm1.Button1Click(Sender: TObject); var IExplorer, Prev: THandle; begin Prev:=0; IExplorer:=FindWindow('IEFrame', nil); while (IExplorer&lt&gt0) and (IExplorer&lt&gtPrev) do begin SendMessage(IExplorer,WM_SYSCOMMAND,SC_MINIMIZE,0); Prev:=IExplorer; IExplorer:=FindWindow('IEFrame',nil); end; end;