Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Вниз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]Мне надо!:(
← →
Song (2002-12-09 14:43) [13]Того что есть в примерах и статьях достаточно чтобы написать почти любой хук даже для начинающего. Просто не надо лениться, а сесть и разобраться, пускай это займёт даже продолжительное время. На будущее зато польза. Все когда так делали, я ни у кого помощи не просил и разобрался сам, со скрипом вроде (не помню уже). Все смогли а Вы не можете?
← →
Microsoft Leks (2002-12-09 15:12) [14]Сам хук я понял как делать как подключать и т.д а вот с колличеством букв не врубился....может Дадите мне кусок кода :(?
← →
delpher_gray (2002-12-10 15:30) [15]2 Microsoft Leks
А зачем в хуке нужно использовать GlobalData ?? Я так и непонял... Статья уж сильно трудная для новичка :-))
← →
Romkin (2002-12-10 15:48) [16]
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;
и так далее...
← →
delpher_gray (2002-12-12 17:26) [17]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;
Страницы: 1 вся ветка
Форум: "Основная";
Текущий архив: 2002.12.23;
Скачать: [xml.tar.bz2];
Память: 0.47 MB
Время: 0.009 c