[serebrus]

Bargest, слава Богу, решение найдено, вот отрывок из библиотеки:

PHP код:

function SysMsgProc(code: integer; wParam: word; lParam: longint): longint; stdcall;
var buff : array[0.. 127] of Char;
    ts: String;
    //t: PChar;
begin
if code = HC_ACTION then
 begin
  if TMsg(Pointer (lParam)^).message = WM_RBUTTONDOWN then
   begin
    Wnd := TMsg(Pointer(lParam)^).hwnd;
    GetClassName(Wnd, buff, sizeof(buff));
    ts:=buff;
    if ts='ИМЯ КЛАССА (ИЗВЕСТНО)' then
     begin
      MessageBox(0,'Success','',MB_OK);
      TMsg(Pointer(lParam)^).message:=WM_NULL;
      Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
     end else
     begin
      Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
     end;
   end else
    Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
 end else
 begin
  Result:=CallNextHookEx(SysHook, Code, wParam, lParam);
 end;
end; 


Спасибо вам за внимание и за поддержку.