VPF::Блокировка правой кнопки мыши...

JohnnY

Дата 29.8.2005, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Подскажите please, код для блокировки кнопок мыши... Спасибо... smile

Pakshin A. S.

Дата 29.8.2005, 21:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

http://vingrad.ru/DELPHI-DLP-000489

Почитай... Но вообще я подозреваю, что тут имеем дело с хулиганом... так что не есть гуд ваш замысел...

Это сообщение отредактировал(а) Girder - 30.8.2005, 10:54

JohnnY

Дата 29.8.2005, 22:01 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Цитата(Pakshin @ 29.8.2005, 21:43)

Но вообще я подозреваю, что тут имеем дело с хулиганом...

Просто хочу создать "программу-шутку", для друга smile

Добавлено @ 22:02

Цитата(Pakshin @ 29.8.2005, 21:43)

http://vingrad.ru/DELPHI-DLP-000489

Эта тема не работает пытался...

FRAGNATIC

Дата 29.8.2005, 23:51 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

Эта тема не работает пытался...

это не тема а линк на FAQ ! там как отрубить клаву и мышку
а те я так понимаю надо ток правую кнопку)
мож хук заюзать

Код


library MouseTwoHook;
Uses Windows,Messages, Controls;

Var SysHook:HHook=0; 

Function SysMsgProc(Code:Integer; WParam:LongInt; LParam:LongInt):LongInt; stdcall; 
Var Msg:TMessage;
Begin
 IF Code=HC_ACTION then
  Case TMsg(Pointer(LParam)^).Message OF
   WM_RBUTTONDOWN,WM_RBUTTONUP,WM_RBUTTONDBLCLK:
   begin
     TMsg(Pointer(LParam)^).Message:=WM_NULL;
   end;
   else Result:=CallNextHookEx(SysHook,Code,WParam,LParam);
  End;
end;

procedure Hook(Flag:Boolean); export; stdcall;
Begin
 IF Flag then SysHook:=SetWindowsHookEx(WH_GETMESSAGE,@SysMsgProc,HInstance,0) Else
  Begin
   UnhookWindowsHookEx(SysHook);
  End;
End;

exports Hook;

{$R *.res}

begin
end.

JohnnY

Дата 30.8.2005, 00:28 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

А можно как-нить с отвязкой от длл?

JohnnY

Дата 30.8.2005, 00:40 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Или поподробнее как использовать этот хук, какие процедуры применять и т.д...

FRAGNATIC

Дата 30.8.2005, 00:53 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

А можно как-нить с отвязкой от длл?

можно точного примера сейчас дать не могу! позже тока если

Цитата

Или поподробнее как использовать этот хук, какие процедуры применять и т.д..

Код


type 
  MyProcType = procedure (Flag: Boolean); stdcall;
--------------------
var
    HDLL:HWND;
    started: boolean;
--------------------
procedure TForm1.OnOffClick(Sender: TObject);
Var Hook: MyProcType;
begin
 if started then
 begin
   @Hook:=nil;
   IF HDLL>HINSTANCE_ERROR then
   Begin
     @Hook:=GetProcAddress(HDLL,'Hook');
     Hook(False);
   End;
  started:=false;
 end
 else begin
   @Hook:=nil;
   HDLL:=LoadLibrary(PChar('Mouse2Hook.dll'));
   IF HDLL>HINSTANCE_ERROR then
   Begin
     @Hook:=GetProcAddress(HDLL,'Hook');
     Hook(True);
   End else MessageDlg('Ошибка загрузки DLL.',mtError,[mbIgnore],0);
  started:=true; 
 end
end;

Это сообщение отредактировал(а) FRAGNATIC - 30.8.2005, 00:54

JohnnY

Дата 30.8.2005, 01:11 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

FRAGNATIC, большое спасибо!!! с отвязкой от длл не надо... Ещё раз спасибо!!!

FRAGNATIC

Дата 30.8.2005, 01:17 (ссылка)

(нет голосов)

Загрузка ...

..::Свирепый Кодер::..

Профиль
Группа: Участник
Сообщений: 901
Регистрация: 17.10.2004
Где: ICQ

Репутация: 6
Всего: 11

Цитата

FRAGNATIC, большое спасибо!!! с отвязкой от длл не надо... Ещё раз спасибо!!!

да не за что!
Добавлено @ 01:21
скачай ДРКБ
этот код от туда!
не помню правда переделывал ли я его! проек писал больше чем пол года назад! сразу из проекта и взял!
В коде не чего сложно разобратся думаю сможешь потом и сам такое писать сможешь!!!

JohnnY

Дата 30.8.2005, 21:19 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Fragnatik, а где DRKB скачать? Дай ссылку, please...
Fragnatik, там много информации по програмированию?

Pakshin A. S.

Дата 30.8.2005, 21:24 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Участник Клуба
Сообщений: 5056
Регистрация: 16.2.2003

Репутация: 21
Всего: 61

Цитата(JohnnY @ 30.8.2005, 22:19)

Fragnatik, а где DRKB скачать? Дай ссылку, please...

http://drkb.ru/

JohnnY

Дата 30.8.2005, 21:41 (ссылка)

(нет голосов)

Загрузка ...

Шустрый

Профиль
Группа: Участник
Сообщений: 65
Регистрация: 20.8.2005
Где: Калининград

Репутация: нет
Всего: нет

Спасибо... Pakshin A. S.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: Общие вопросы \| Следующая тема »