single.pas

来自「病历管理系统」· PAS 代码 · 共 20 行

unit Single;

interface

implementation

uses Windows, SysUtils;

var
  hnd: THandle;

initialization
  hnd := CreateMutex(nil, True, 'irgendwaseinmaliges');
  if GetLastError = ERROR_ALREADY_EXISTS then Halt;

finalization
  if hnd <> 0 then CloseHandle(hnd);

end.