anchor.diff:  
   var
     SwitchFunc: TSwitchFunc = nil;
  -  hLib: HInst;
     OneWinInstance: TUniqueWinInstance;
   
   function IsSetToOneInstance: boolean;
  
positive.code:   begin
  
      OneWinInstance := TUniqueWinInstance.Create(nil);
      OneWinInstance.SetServerId('cudatext.1');
      OneWinInstance.SetUniqueInstanceId(GetServerId('cudatext.0'));
      OneWinInstance.SetTargetId('cudatext.2');
      Result := OneWinInstance.IsAnotherInstance;
  
      OneWinInstance.Free;
    end;
  
  end;
  
  {$else}
  procedure DoFocusWindow(h: THandle);
  
negative.code:       Client.Active := True;
        Client.SendStringMessage(ParamCount, GetFormattedParams);
      end;
  
      Sleep(10);
      if Assigned(SwitchFunc) then
      begin
        {$ifdef CPU64}
         SwitchFunc(StrToQWord(CudaWnd), True);
        {$else}
         SwitchFunc(StrToInt(CudaWnd), True);
        {$ifend}
      end;
      Client.Free;
    end;
  end;
  
  constructor TUniqueWinInstance.Create(AOwner: TComponent);
  