Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС ВЗЛОМ
выпущен 8 мая!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО DELPHI



Отменить контекстное меню в WebBrowser

Вы хотите попасть в виртуальный мир, но у вас нет денег на покупку компьютера? Вы не любите Интернет-кафе? В таком случае мы предлагаем вам новое альтернативное средство доступа к виртуальному миру, цена всего 200 рублей за одну таблетку.


 var
   HookID: THandle;
 
 function MouseProc(nCode: Integer; wParam, lParam: Longint): Longint; stdcall;
 var
   szClassName: array[0..255] of Char;
 const
   ie_name = 'Internet Explorer_Server';
 begin
   case nCode < 0 of
     True:
       Result := CallNextHookEx(HookID, nCode, wParam, lParam)
       else
         case wParam of
           WM_RBUTTONDOWN,
           WM_RBUTTONUP:
             begin
               GetClassName(PMOUSEHOOKSTRUCT(lParam)^.HWND, szClassName, SizeOf(szClassName));
               if lstrcmp(@szClassName[0], @ie_name[1]) = 0 then
                 Result := HC_SKIP
               else
                 Result := CallNextHookEx(HookID, nCode, wParam, lParam);
             end
             else
               Result := CallNextHookEx(HookID, nCode, wParam, lParam);
         end;
   end;
 end;
 
 procedure TForm1.FormCreate(Sender: TObject);
 begin
   HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
 end;
 
 procedure TForm1.FormDestroy(Sender: TObject);
 begin
   if HookID <> 0 then
     UnHookWindowsHookEx(HookID);
 end;
 
 procedure TForm1.Button1Click(Sender: TObject);
 begin
   Webbrowser1.Navigate('http://www.google.com');
 end;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS