Hook s

← →
Microsoft Leks © (2002-12-05 15:48) [0]

Здраствуйте Уважаемые Мастера! У мня возник вопрос по использованию Keyboard Hook! Приведите пожалуста полный пример
hook.dll ( Та dll"ка которую я скачал отсюда - при нажатии клавиши в Memo появляется 2 символа...)..и можно ли чтобы русские буквы тож отображались!

MasTerra ( www.masterra.ru )
E-Mail (LeksKinder@nadey.com)

← →
Song © (2002-12-05 15:58) [1]

WH_GETMESSAGE+WM_CHAR

← →
Microsoft Leks © (2002-12-05 16:12) [2]

А скачать полностью hook"у можно????! тока нормальную =)

← →
FreeLancer © (2002-12-05 16:15) [3]

http://www.delphikingdom.com/mastering/hook.htm

← →
Microsoft Leks © (2002-12-05 16:39) [4]

Тогда такой вопрос!

Вот маленький кусочек программы

hwndHandle:=FindWindow(nil, "My Computer");
if(hwndHandle <> 0) then ...

Итак вопрос! Можно ли загрузить ВЫДЕЛЕННЫЙ текст из ini файла
например!

← →
Identifikator Borna (2002-12-05 17:12) [5]

Можно

← →
Microsoft Leks © (2002-12-05 17:28) [6]

Как?:(

← →
Identifikator Borna (2002-12-05 17:52) [7]

Попробуй так что ли:
xxx:= Ini.ReadString("Proga","Caption",""My Computer");
hwndHandle:=FindWindow(nil,"xxx");
if(hwndHandle <> 0) then ...

только при чем тут хуки?

← →
Microsoft Leks © (2002-12-09 13:49) [8]

Насчет хуков!

http://www.delphikingdom.com/mastering/hook.htm

Скачал готовый хук...запустил....
всё равно он записывает в MEMO по 2 символа :(!

Можно ли чтобы Memo1 выводил русские буквы?

← →
Song © (2002-12-09 13:58) [9]

по два символа потому что срабатывает на WM_KEYUP и на WM_KEYDOWN. Чтобы русские выводились надо ещё определять текущую раскладку и конвертировать в зависимости от результата.

← →
Microsoft Leks © (2002-12-09 14:20) [10]

Рабочий вариант ( FULL VERSION ) хука есть?

← →
Song © (2002-12-09 14:22) [11]

Нет, мне это не надо.

← →
Microsoft Leks © (2002-12-09 14:41) [12]

Мне надо!:(

Того что есть в примерах и статьях достаточно чтобы написать почти любой хук даже для начинающего. Просто не надо лениться, а сесть и разобраться, пускай это займёт даже продолжительное время. На будущее зато польза. Все когда так делали, я ни у кого помощи не просил и разобрался сам, со скрипом вроде (не помню уже). Все смогли а Вы не можете?

Сам хук я понял как делать как подключать и т.д а вот с колличеством букв не врубился....может Дадите мне кусок кода :(?

2 Microsoft Leks
А зачем в хуке нужно использовать GlobalData ?? Я так и непонял... Статья уж сильно трудная для новичка :-))

function KeybdProc(code: Integer; VirtualKey: wParam; Flags: LPARAM): LRESULT; stdcall; var chars: array [0 .. 1] of char; ascRes: Integer; if (Flags and $80000000) > 0 then //Только нажатие begin //GetKeyboardState(KeybState); chars := #0#0; ascRes := ToAscii(VirtualKey, Flags, KeybState, @chars, 0); //по текущей раскладке KeybString := KeybString + chars; end;
и так далее...

function KeybProc(code : integer; wParam : word; lParam : longint) : longint; stdcall;
var
AppWnd: HWND; // Дескриптор приложения, в котором произошло нажатие клавиши
begin
if (code = HC_ACTION) and (lParam <> lParam or $8000 shl 16) and (lParam <> lParam or $8000 shl 15) then // Незнаю как, но это работает :-))
begin
AppWnd := GetForegroundWindow();
SendMessage(GlobalData^.MyAppWnd, WM_MYKEYHOOK, wParam, AppWnd);
end;
Result := CallNextHookEx(GlobalData^.SysHook, Code, wParam, lParam);
end;

Hook s Найти похожие ветки