From YYpBD's MediaWiki
procedure TForm1.Button1Click(Sender: TObject);
Var
IExplorer : Thandle;
begin
IExplorer := FindWindow('IEFrame',nil);
If IExplorer <> 0 Then
SendMessage(IExplorer, WM_SYSCOMMAND,SC_MINIMIZE,0);
end;
과~
또 다른것은..
procedure CierraInternetExplorer;
var
Mango : THandle;
begin
//Cerramos todas las ventanas del Internet Explorer:
Repeat
Mango:=FindWindow('CabinetWClass',nil);
if Mango <> 0 Then SendMessage(Mango,WM_NCDestroy,0,0);
Until (Mango=0);
Repeat
Mango:=FindWindow('IEFrame',nil);
if Mango <> 0 Then SendMessage(Mango,WM_NCDestroy,0,0);
Until (Mango=0);
end;
