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

Darkmaster

Дата 6.7.2006, 23:06 (ссылка)

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

Загрузка ...

Шустрый

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

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

как можно поймать нажатие клавиши в системе.. причем при условии что программа запущена скрыто...Пожалуйста помогиге! Очень интересно, а сам я незнаю решения...

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

GeekTV - интернет-телевидение для гиков

Mr.Floppy

Дата 6.7.2006, 23:49 (ссылка)

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

Загрузка ...

Шустрый

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

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

Кейлоггер пишешь? smile

В таком случае тебе надо с хуками разбираться... hooks

Добавлено @ 23:51
И на форуме поищи, обсуждалось уже

Poseidon

Дата 7.7.2006, 00:02 (ссылка)

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

Загрузка ...

Delphi developer

Профиль
Группа: Комодератор
Сообщений: 5273
Регистрация: 4.2.2005
Где: Гомель, Беларусь

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

C помощью GlobalHook

http://vingrad.ru/DELPHI-DLP-002503
http://vingrad.ru/DELPHI-DLP-000553
http://vingrad.ru/DELPHI-DLP-000556

Но, думаю, для твоей задачи пойдет и так:

Код

var
  hHook: THandle;


function LowLevelKeyboardProc(nCode: Integer;
  WParam: WPARAM; LParam: LPARAM): LRESULT stdcall;
type
  PKbdDllHookStrukt = ^TKbdDllHookStrukt;
  _KBDLLHOOKSTRUCT = record
    vkCode: DWORD;
    scanCode: DWORD;
    flags: DWORD;
    time: DWORD;
    dwExtraInfo: PDWORD;
  end;
  TKbdDllHookStrukt = _KBDLLHOOKSTRUCT;

begin
  if nCode = HC_ACTION
  then Result := CallNextHookEx(hHook, nCode, WParam, LParam);

  if WParam = WM_KEYDOWN
  then Application.MessageBox(
       Pchar('Нажата клавиша '+ Chr(PKbdDllHookStrukt(LParam)^.vkCode)),
       'Внимание',
       MB_SYSTEMMODAL);
end;


procedure TForm1.FormCreate(Sender: TObject);
const
  WH_KEYBOARD_LL = 13;
begin
  hHook := SetWindowsHookEx(WH_KEYBOARD_LL, LowLevelKeyboardProc, hInstance, 0);
  if hHook = 0 then RaiseLastOSError;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  if not UnhookWindowsHookEx(hHook) then RaiseLastOSError;
end;

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

Если хочешь, что бы что-то работало - используй написанное,
если хочешь что-то понять - пиши сам...

Sunvas

Дата 8.7.2006, 05:50 (ссылка)

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

Загрузка ...

Соль и сахар

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

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

Лучше всего создать библиотеку со своими кодами и подцепить ее к процессу csrss. Так перехватываться клавиши будут активнее. smile

http://yanis.front.ru/files/a/cad.zip токо переделать под себя.

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

Воспитывая детей по своему образу и подобию, родители почему-то надеются, что они будут лучше их.

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