강좌란에 보면 어플리케이션 중복 방지가 있는데..

그거를 사용하면 되지 않을 까요..


메인폼의 Initialization부에 아래와 같은 코드를 삽입한다.

  CreateFileMapping ( $FFFFFFFF, nil, PAGE_READWRITE, 0,
                      1024, 'SharedHandle' );

  if GetLastError=ERROR_ALREADY_EXISTS then halt;

위처럼 한번 해보십시요...

물론 실행을 당하는 화일에서요..

절대로 같은 프로그램이 중복으로 실행되지 않습니다.

그럼..



    ~도치였습니다.