Delphi/Bcb로 개발된 App안에서 특정폼을

Form1 := TForm1.Create( Application );

등의 방법으로 생성하게 되면 Screen.Forms 에 자동으로 등록되게 됩니다.
이것을 이용하면 특정 class의 Form이 생성되었는지 몇개나 실행중인지를 확인할 수
있습니다.

아래의 함수가 특정폼이 몇개나 실행되고 있는지 알리는 함수입니다. 이 함수를 사용
하기 위해서는 uses절에 Forms를 포함해야 합니다.

function RunningFormCount( psClassName : String ) : Integer;
var
  i : Integer;
begin
  Result := 0;
  for i := 0 to Screen.Forms.Count - 1 do
     if Screen.Forms[ i ].ClassName = psClassName then
        Inc( Result );
end;


인자로 전달된 ClassName이란 class를 선언하는 아래의 예에서 TForm1을 말합니다.

type
  TForm1 = class(TForm)
  .
  .
  end;