Q&A

  • 프로그램을 한번만...
이전의 Q&A에 것을 이용해보았지만 잘안되더라고요..

프로그램을 동시에 실행되는것을 방지하는 것좀 알려주시면 감사하겠습니다.

자세히....

부탁드립니다.

1  COMMENTS
  • Profile
    서경환 2000.06.12 20:24
    초생 wrote:

    > 이전의 Q&A에 것을 이용해보았지만 잘안되더라고요..

    > 프로그램을 동시에 실행되는것을 방지하는 것좀 알려주시면 감사하겠습니다.

    > 자세히....

    > 부탁드립니다.

    답변이 맞는지 모르겠지만



    function IsCreatedForm(FormName : string) : Boolean;

    var

    I : Integer;

    begin

    // Form이 존재하면 True, Else False

    Result := False;

    for I := 0 to Screen.FormCount - 1 do

    begin

    if Screen.Forms[I].Name = FormName then

    begin

    Result := True;

    exit;

    end;

    end;

    end;



    예제)

    if Not IsCreatedForm('Form') then

    Form := TForm.Create(Application);

    Form.Show;