코드시작 : <!--CodeS-->
procedure TForm1.Button1Click(Sender: TObject);
var
   IE : OleVariant;
begin
   try
      IE := CreateOleObject('Internetexplorer.Application');

      IE.Left := 100;
      IE.top := 100;
      IE.Width := 500;
      IE.Height := 400;

      IE.Visible := true;
      IE.Navigate('http://www.delphi.co.kr/');
      IE.Toolbar := false;                      
      IE.statusbar := false;
      IE.menubar := false;
   finally
      IE := Unassigned;
   end;
end;
코드끝: <!--CodeE-->

버튼을 클릭했을 때 이런식으로 익스플로러를 새창으로 띄웁니다.

문제는 익스플로러를 새창으로 띄운 후 또 한번 버튼을 클릭하면 똑같은 창이 또 뜬다는게 문제네요

버튼을 클릭했을때 익스플로러가 뜨고 다시 클릭했을때 기존에 떠 있던게 있으면 포커스만 주고 없다면(기존 익스플로러를 종료했다면) 새로 띄워지게 하고 싶습니다.

어떤식으로 해야 할까요?
언뜻 생각나는건... 새창으로 띄운 익스플로러의 핸들을 가지고 있으면 해결 될것 같은데 그걸 못찾겠네요
(FindWindow해서 창의 캡션을 가지고 오는것도 무리인게...창의 캡션이 일정하지가 않습니다. 즉 프로그램에 로그인 한 사람의 ID가 찍힙니다)

감사합니다.