[IPC] Mutex Library

unit LibMutex;

interface

uses Windows;

  function OpenMutex(const ID : PChar; var Handle : THandle) : Boolean;
  procedure CloseMutex(const Handle : THandle);

implementation

function OpenMutex(const ID : PChar; var Handle : THandle) : Boolean;
begin
  SetLastError(0);
  Handle := CreateMutex(nil, True, ID);
  Result := (Handle <> 0 ) and (GetLastError = 0);
end;

procedure CloseMutex(const Handle : THandle);
begin
  if Handle <> 0 then CloseHandle(Handle);
end;

end.