간단하게 파일 중복 실행 검사하기

function DuplicateCheck : Boolean;
var
  hHandle : THandle;
begin
  Result := False;

  hHandle := CreateFileMapping(
               $FFFFFFFF, //SharedMemory
               nil,
               PAGE_READWRITE,
               0,
               1024,
               PChar('중복검사에 사용될 고유이름')
             );
  //이름을 등록하면서 중복된 이름이 존재하는지를 통해 파일이 중복 실행인지 아닌지 검사합니다.

  if GetLastError = ERROR_ALREADY_EXISTS then
    CloseHandle(hHandle)
  else
    Result := True;
end;

프로그램이 실행될 때 함수를 호출하고 리턴값에 따라 중복실행을 허용할지 안 할지 선택하면 됩니다.