.........
공공의
AA : 단어;
.........
절차 tform1. formcreate (sender : tobject);
시작하다
// 프로그램이 실행 중인지 확인하려면 시스템 데이터베이스를 검색합니다.
GlobalFindatom ( ''Project1 '') = 0 인 경우 // project1은 EXE 파일 이름입니다.
// EXE 파일을 찾을 수없는 경우 시스템 데이터베이스에 EXE 파일 이름을 추가하십시오.
AA : = GlobalAddatom ( ''Project1 '')
또 다른
시작 // 프로그램이 이미 실행중인 경우 정보를 표시하고 프로그램을 종료하십시오.
MessagedLg ( '이 프로그램이 실행 중입니다!' ', mtwarning, [mbok], 0);
정지;
끝;
끝;
.........
절차 tform1.formdestroy (sender : tobject);
시작하다
{프로그램을 종료 할 때 데이터 테이블에서 추가 된 파일 이름을 삭제합니다}
Globaldetleteatom (AA);
끝;