控制程序唯一运行

 

var
  HMutex: THandle;
Begin
  // check if mutex already exists
  HMutex := CreateMutex(nil, False, 'This is Budded Single App Demo');
  if HMutex <> 0 then
    if WaitForSingleObject(HMutex, 0) <> WAIT_TIMEOUT then  // Owns the Mutex
      try  // try   }
        AppRun; // run your application 
      finally  // wrap up finally
        ReleaseMutex(HMutex);
      end;   // end try finally     
end.