Запрет запуска второй копии программы

HANDLE hSnapshot = CreateToolhelp32Snapshot( TH32CS_SNAPPROCESS, 0);
  PROCESSENTRY32 ProcEntry;
  ProcEntry.dwSize = sizeof( ProcEntry);
  bool Running = false;
  DWORD CurrentProc = GetCurrentProcessId();
  if ( Process32First( hSnapshot, &ProcEntry))
     do
       {
        if ( CurrentProc! = ProcEntry.th32ProcessID &
                            strcmpi( ProcEntry.szExeFile,
                            _argv[0])
           == 0)
           {
            Running=true;
            break;
           }
       }
     while( Process32Next( hSnapshot, &ProcEntry));

  CloseHandle( hSnapshot);

  if ( Running)
     return 1;  
 try
     {
      Application->Initialize();
   //..........