我可以告诉你:
uses StrUtils
声明:
var WinHanlde: HWnd;
winhanlde := FindWindow('CabinetWClass', nil);
if winhanlde <> 0 then
SendMessage(winhanlde, WM_SYSCOMMAND, SC_CLOSE, 0);
winhanlde := FindWindow('IEFrame', nil);
if winhanlde <> 0 then
SendMessage(winhanlde, WM_SYSCOMMAND, SC_CLOSE, 0);}