hsr//////////////////////////////////////////////////////////
윈도우2000, 델6입니다. (탐색기만 찾아요 나머진 아래 참조)
procedure TForm1.Button1Click(Sender: TObject);
var
    wnd :  HWND;
begin
     Wnd := FindWindow( PChar('ExploreWClass'), nil );  
     if Wnd <> 0 then begin
        MessageDlg('이미 탐색기가 실행되어 있네요...', mtWarning,[mbOK], 0);
     end;
end;

탐색기창  클래스명     : ExploreWClass
내 컴퓨터 창 클래스명 : CabinetWClass
인터넷 창 클래스명     : IEFrame
찾는 방법
procedure TForm1.Button1Click(Sender: TObject);
var
    wnd :  HWND;
    LPTSTR : array[1..255] of char;
begin
     Wnd := FindWindow( nil, PChar('내 컴퓨터') ); //내문서
     if Wnd <> 0 then begin
        GetClassName(Wnd, @LPTSTR,255);
        MessageDlg(string(LPTSTR), mtWarning,[mbOK], 0);
     end;
end;