Текущий архив: 2008.04.27;
Скачать: CL | DM;
Вниз
Как скрыть контекстное меню TWebBrowser Найти похожие ветки
← →
XRMiPO (2008-04-03 18:05) [0]Нашел такой код:
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;
чего нехватает??При компоновке программы Delphi говорит об ошибке: Undeclared identifier "HookID"
← →
Сергей М. © (2008-04-03 18:08) [1]
> чего нехватает?
Не хватает знаний Паскаля в части понимания области видимости идентификаторов.
← →
XRMiPO (2008-04-03 18:12) [2]а можно подробнее объяснить?
← →
Сергей М. © (2008-04-03 18:22) [3]Можно.
HookID - это идентификатор.
Объявлен он у тебя черт-те где (ты не сподобился сказать где конкретно, видимо мы гадать тут должны), но только не там, где его "видит" компилятор при компиляции строчек текста, в которых происходит обращение к этому идентификатору, а именно
HookID := SetWindowsHookEx(WH_MOUSE, MouseProc, 0, GetCurrentThreadId());
if HookID <> 0 then
UnHookWindowsHookEx(HookID);
← →
XRMiPO (2008-04-03 23:44) [4]все, спасибо, невнимательно смотрел, теперь разобрался, все работает)
Страницы: 1 вся ветка
Текущий архив: 2008.04.27;
Скачать: CL | DM;
Память: 0.47 MB
Время: 0.02 c
