AntiRedDot and AntiBounce

Dll part :

function WindowProcRooms(hWnd: HWND; Msg: UINT; wParam: WPARAM; lParam: LPARAM): Longint; stdcall;
begin
 case Msg of
     (*
   WM_COMMAND:
     begin
       MessageBox(HWND_DESKTOP, 'COMMAND', 'Jiiix!', MB_OK);
       exit;
     end;
     *)

   WM_QUIT: //Keep the room window open after you bounced
    begin
      //MessageBox(HWND_DESKTOP, 'WM_QUIT', 'Jiiix!', MB_OK);
      exit;
    end;
 end;
 Result := CallWindowProc(OldWndProcRoom1, hWnd, Msg, wParam, lParam);
end;

Injection Part:

exe loader to inject the Dll to the paltalk process

program paltalk;
{
this is the paltalk loader
to inject our DLL to paltalk Process on every startup of pal
}

uses
  Winapi.Windows,
  System.SysUtils,
  ShellAPI;

//Var

//add icon to our loader
{$R 'conicon.res' 'conicon.rc'}


{}
function InjectDLL(const dwPID: DWORD; {$IFDEF UNICODE} DLLPath: PWideChar {$ELSE} DLLPath: PAnsiChar {$ENDIF} ): Integer;
const
Kernel32 = 'kernel32.dll';
var
dwThreadID: Cardinal;
hProc, hThread, hKernel: THandle;
BytesToWrite, BytesWritten: SIZE_T;
pRemoteBuffer, pLoadLibrary: Pointer;
begin
hProc := OpenProcess(PROCESS_CREATE_THREAD or PROCESS_QUERY_INFORMATION or
PROCESS_VM_OPERATION or PROCESS_VM_WRITE or PROCESS_VM_READ, False, dwPID);
if hProc = 0 then
exit(0);
try
BytesToWrite := SizeOf(WideChar) * (Length(DLLPath) + 1);
pRemoteBuffer := VirtualAllocEx(hProc, nil, BytesToWrite, MEM_COMMIT,
PAGE_READWRITE);
if pRemoteBuffer = nil then
exit(0);
try
if not WriteProcessMemory(hProc, pRemoteBuffer, DLLPath, BytesToWrite,
BytesWritten) then
exit(0);
{$REGION 'Check for UNICODE'}
{$IFDEF UNICODE}
hKernel := GetModuleHandleW(Kernel32);
pLoadLibrary := GetProcAddress(hKernel, 'LoadLibraryW');
{$ELSE}
hKernel := GetModuleHandleA(Kernel32);
pLoadLibrary := GetProcAddress(hKernel, 'LoadLibraryA');
{$ENDIF}
{$ENDREGION}
hThread := CreateRemoteThread(hProc, nil, 0, pLoadLibrary, pRemoteBuffer,
0, dwThreadID);
try
WaitForSingleObject(hThread, INFINITE);
finally
CloseHandle(hThread);
end;
finally
VirtualFreeEx(hProc, pRemoteBuffer, 0, MEM_RELEASE);
end;
finally
CloseHandle(hProc);
end;
exit(1);
end;


var
  PPid: DWORD;
  Msg: TMsg;
  bRet: LongBool;
begin
  try
    ShellExecute(0, 'OPEN', Pchar('paltalk..exe'), '', '', SW_SHOWNORMAL);
    Sleep(2000);
    if GetWindowThreadProcessId(FindWindow(nil,PChar('Paltalk Messenger')), @PPid) <> 0 then
    Begin
       if  InjectDLL(PPid, 'Hades.dll') <> 0 then
       Halt(4);
    end;

    //Native Console Message Loop:
    repeat
      bRet := GetMessage(Msg, 0, 0, 0);

      if Int32(bRet) = -1 then
      begin
        // Error
        Break;
      end
      else
      Begin
        TranslateMessage(Msg);
        DispatchMessage(Msg);
      end;
   until not bRet;
 except
    on E: Exception do
    begin
      Writeln(E.Classname, ': ', E.Message);
    end;
  end;
end.

still looking about how my room window receive the RedDot message

any advice in here please