single.pas

医院病历管理简易版,完全用DELPHI实现.

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.