안녕하세요? 유승우 입니다.

FindWindow의 사용법은 우선 사용법이..
HWND FindWindow( LPCTSTR lpszClass, LPCTSTR lpszWindow) 입니다.

그러나 파스칼에서는 클래스 이름과, 윈도우 이름이 들어가게 됩니다.

procedure TfmMain.btCheckClick(Sender: TObject);
Var
  WinH : HWND;
begin
  WinH := FindWindow(Nil, 'Form2');
  If WinH <> 0 then Form2.Close;
  ShowMessage(IntToStr(WinH));
end;

꺼꾸로 했지만 대강 이렇게 하면... 됩니다.
그리고 만일 Window를 발견하지 못하면 0을 발생시킵니다(Nil이 아니에요..)

단일 어플에서 찾을수 있으니까요, 아마 답변이 될꺼 같네요.(^^;)

그럼 이만.