VPF::Отловить нажатие клавиши - Форум программистов

<Spawn>

Дата 11.2.2004, 21:53 (ссылка)

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

Загрузка ...

Око кары:)

Профиль
Группа: Экс. модератор
Сообщений: 2776
Регистрация: 29.1.2003
Где: Екатеринбург

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

Цитата(Tamerlann @ 11.2.2004, 13:45)

Только-что попробовал то, что предложил <Spawn> - всё просто великолепно работает!!!! Большое! спасибо, <Spawn>.

Но всё же, что это за Result?

Вот и хорошо))) Result - это результат выполнения функции(иначе говоря это переменная ассоциированная с результатом выполнения функции и имеющая тип указаный при определении функции, например function a: Boolean;), в данном случае функции KeyBoardProc. Можно было бы воспользоваться паскалевским способом и написать KeyBoardProc := 1, но так более наглядно))

Это сообщение отредактировал(а) <Spawn> - 11.2.2004, 21:57

--------------------

"Для некоторых людей программирование является такой же внутренней потребностью, подобно тому, как коровы дают молоко, или писатели стремятся писать" - Николай Безруков.

BLACK_KOT

Дата 3.11.2007, 00:10 (ссылка)

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

Загрузка ...

Опытный

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

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

Цитата(<Spawn> @ 11.2.2004, 21:51)

Я не помню как обстоят дела с WH_KEYBOARD, но для WH_CBT хука, в зависимости от результата выполнения функции хука, разрешается или запрещается операция. Так что попробуй что то типа этого:

Код

function KeyBoardProc(Code: integer; _wParam: WPARAM; _lParam: LPARAM): LongInt; stdcall;
begin
  ...
  //Если нужно отменить нажатие, то 
  Result := 1;
  //...Передать управление следующему хуку в цепочке хуков
  CallNextHookEx(...);
end;

а если у меня нет цепочки хуков- а тока 1 хук? куда управление передавать?

вот мой код:

Код


unit Unit1;

interface

uses
  Windows, Messages, Forms;


type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

function HookProc(Code: integer; WParam: word; LParam: Longint):longint stdcall;
var
msg: PEVENTMSG;
begin
msg := Pointer(LParam);
if msg.message=WM_KEYDOWN then keybd_event(79, MapvirtualKey(79,0),0,0)
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
SetWindowsHookEx(WH_JOURNALRECORD, @HookProc, HInstance, 0);
end;


end.

прога имитирует нажатие буквы О, а как отменить нажатие реальной клавиши?

--------------------

.. я - демо версия Бога от Microsoft..

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