FECHAR TODAS AS JANELAS DO INTERNET EXPLORER

FUNÇÃO QUE LOCALIZA OS AQRQUIVOS ABERTOS

Function EnumWindowsProc (Wnd: HWND; lb: TListbox): BOOL; stdcall;
var caption: Array [0..128] of Char;
begin
Result := True;
if IsWindowVisible(Wnd) and
((GetWindowLong(Wnd, GWL_HWNDPARENT) = 0) or
(HWND(GetWindowLong(Wnd, GWL_HWNDPARENT)) = GetDesktopWindow))and
((GetWindowLong(Wnd, GWL_EXSTYLE) and WS_EX_TOOLWINDOW) = 0)
then
begin
SendMessage( Wnd, WM_GETTEXT, Sizeof(caption),integer(@caption));
lb.Items.AddObject( caption,TObject( Wnd ));
end;
end;

DISPARADOR DA FUNÇÃO

EnumWindows( @EnumWindowsProc, integer( listbox1 ));

VOCE PODERIA FAZER UMA PESQUISA NO LIST BOX TIPO LOCAZIAR ONDE ESTÁ ESCRITO: MICROSOFT INTERNET EXPLORER E DAR O SEGUINTE COMANDO

PostMessage(FindWindow(nil, PChar(ListBox1.Items[ListBox1.ItemIndex])), WM_CLOSE,0,0);


O resto é com voce....experimenta do modo simples e depois incrementa o codigo