procedure TForm1.Button1Click(Sender: TObject);
Var IExplorer:Thandle;
begin
IExplorer:=FindWindow('IEFrame',nil);
if IExplorer<>0 then
SendMessage(IExplorer,WM_SYSCOMMAND,SC_CLOSE,0);
end;