 |
|
Модераторы: Snowy, MetalFan, bems, Poseidon |
 
|
|
Keylog 
| andreibtzt |
|
|||
|
Новичок Профиль Группа: Участник Сообщений: 4 Регистрация: 31.3.2009 Репутация: нет Всего: нет |
Привет всем, у меня такая проблема, я зделал этот код, и он у меня сахраняет в фаиле, типа не Esc, a EscEscEscEsc, и на все клавиши так зделает, код вот такои, в чиом проблема???
извините за транслит. if getasynckeystate($1b)<>0 then AppendOrWriteTextToFile('c:\file.txt', 'Esc'); он работает на Timer, с интервалом 1sec Это сообщение отредактировал(а) andreibtzt - 17.4.2009, 11:54 |
|||
|
||||
Дата 17.4.2009, 11:53 (
Загрузка ...
| bems |
|
|||
 Эксперт  Профиль Группа: Комодератор Сообщений: 3400 Регистрация: 5.1.2006 Репутация: 18 Всего: 88 |
нужно проверять только старший бит. Например так: getasynckeystate($1b) < 0
Ну и замени черную магию на константу -------------------- Обижено школьников: 8 |
|||
|
||||
|
|
| Правила форума "Delphi: Для новичков" | |
|
|
Запрещается! 1. Публиковать ссылки на вскрытые компоненты 2. Обсуждать взлом компонентов и делиться вскрытыми компонентами
Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, MetalFan, bems, Poseidon, Rrader. |
| 0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей) | |
| 0 Пользователей: | |
| « Предыдущая тема | Delphi: Для новичков | Следующая тема » |
[ Время генерации скрипта: 0.0377 ] [ Использовано запросов: 22 ] [ GZIP включён ]
Реклама на сайте Информационное спонсорство
|
|
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности Powered by Invision Power Board(R) 1.3 © 2003 IPS, Inc. |