Subversion Repositories delphiutils

Rev

Go to most recent revision | Blame | Last modification | View Log | RSS feed

  1. unit NoDoubleStart;
  2.  
  3. interface
  4.  
  5. implementation
  6.  
  7. uses
  8.   Windows, SysUtils, Forms;
  9.  
  10. var
  11.   mHandle: THandle;
  12.  
  13. Initialization
  14.   mHandle := CreateMutex(nil, True, 'ViaThinkSoft-StatusMon');
  15.   if GetLastError = ERROR_ALREADY_EXISTS then
  16.   begin
  17.     Halt;
  18.   end;
  19.  
  20. finalization
  21.   if mHandle <> 0 then
  22.   begin
  23.     CloseHandle(mHandle)
  24.   end;
  25. end.
  26.