어느 분이 답변해 주신 게시판 내용의 글중에서염..
아래와 같이 모두 작성했거든여..

function EnumWindowsProc(Wnd: HWND):Bool;stdcall;// 열려있는 익스 모두 닫는 함수
var
   ClassName : string;
begin
   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
      SetLength (ClassName, 100);
      GetClassName (Wnd, PChar (ClassName), Length (ClassName));
      ClassName := PChar (ClassName);
      if ClassName = 'IEFrame' then begin
          PostMessage(Wnd,WM_CLOSE,0,0);
       //   PostMessage(Wnd,WM_QUIT,0,0);
      end;
       end;

end;

procedure TForm1.Button26Click(Sender: TObject);

  var
   i : integer;
begin
   EnumWindows(@EnumWindowsProc,i);
end;

이렇게 하고 컴파일 하니 익스플로러 창은 모두 닫히긴 하는데여
아래 에러 메세지 두개가 컴파일할때마다 항상 떠서여..

[Warning] wapc.pas(190): Return value of function 'EnumWindowsProc' might be undefined
  [Warning] wapc.pas(197): Variable 'i' might not have been initialized

먼뜻인지 알려 주시면 넘 감사하겠습니다..