특정 폼이 실행중인지 여부 판단.

uses Windows

 

procedure TForm1.Button3Click(Sender: TObject);
var
pWnd : THandle;
begin
ShowMessage(IntToStr(FindWindow('폼의 클래스명(Ex. TfrmXXX)', nil)));
end;

 

FindWindow는 특정 폼이 실행중이면 0이 아닌 값, 실행중이 아니면 0을 리턴한다.

자신의 실행파일 내에 있는 폼이 아니라, 다른 실행파일에서 실행된 폼이어도 동작한다.