Удалить чужой mutex

mutex1:=OpenMutex(MUTEX_ALL_ACCESS, false, '_!MSHISTORY!_');
CloseHandle(mutex1);
ReleaseMutex(mutex);

var
  mutex1 : HWND;
begin
  mutex1:=OpenMutex(MUTEX_ALL_ACCESS, false, '_!MSHISTORY!_');
  CloseHandle(mutex1);
  ReleaseMutex(mutex1);
end;

  mutex1:=OpenMutex(MUTEX_ALL_ACCESS, false, 'asdtex');
  if mutex1 <> 0 then
    ShowMessage('ok')
  else
    ShowMessage('no');

mutex1:=OpenMutex(MUTEX_ALL_ACCESS, false, '_!MSHISTORY!_');

var
 h:HWND;
 PID:Integer;
 hProc:HWND;
 hMutex:THandle;
begin
 hProc:=OpenProcess(PROCESS_DUP_HANDLE, false, GetCurrentProcessId);
 if hProc <> 0 then ShowMessage('ok') else ShowMessage('nooo');
 hMutex:=OpenMutex(MUTEX_ALL_ACCESS, true, '_!MSHISTORY!_');
 DuplicateHandle(hProc, hMutex, 0, 0, 0, false, DUPLICATE_CLOSE_SOURCE);
 CloseHandle(hMutex);
end.

var
    Timer,i: dword;
    hProc1:HWND;
 
procedure TimerProc(hwnd, uMsg, idEvent, dwTime: dword);stdcall;
var
 PID:Integer;
 hMutex:THandle;
begin
 hProc1:=OpenProcess(PROCESS_DUP_HANDLE, false, GetCurrentProcessId);
 hMutex:=OpenMutex(MUTEX_ALL_ACCESS, true, '_!MSHISTORY!_');
 if hMutex <> 0 then ShowMessage('ok') else ShowMessage('nooo');
 DuplicateHandle(hProc1, hMutex, 0, 0, 0, false, DUPLICATE_CLOSE_SOURCE);
 CloseHandle(hMutex);
end;
 
begin
  Timer:=SetTimer(0,0,1000,@TimerProc);
end.