// http://www.sharejs.com
Var
IExplorer : Thandle;
begin
IExplorer := FindWindow(''IEFrame'',nil);
If IExplorer  0 Then
SendMessage(IExplorer, WM_SYSCOMMAND,SC_CLOSE,0);