[Delphi]/[Pascal] Задай вопрос, получи ответ

ANTICHAT — форум по информационной безопасности, OSINT и технологиям

ANTICHAT — русскоязычное сообщество по безопасности, OSINT и программированию. Форум ранее работал на доменах antichat.ru, antichat.com и antichat.club, и теперь снова доступен на новом адресе — forum.antichat.xyz.

Форум восстановлен и продолжает развитие: доступны архивные темы, добавляются новые обсуждения и материалы.

⚠️ Старые аккаунты восстановить невозможно — необходимо зарегистрироваться заново.

#11

30.12.2009, 19:49

slesh

Познавший АНТИЧАТ

Регистрация: 05.03.2007

Сообщений: 1,985

Провел на форуме:
3288241

Репутация: 3349

Отправить сообщение для slesh с помощью ICQ

в твоем случае нужно коды переводить данные из обычного кода в виртуальный.
для этого есть функция VkKeyScan. Но при её юзанье ты потеряеш регистр букв. т.е. все будет маленькими или большими, взависимости от шифта.

В твоем случае это так:
keybd_event(VkKeyScan(edit1.Text[x]), 0, 0, 0);

VkKeyScan возвращает в младшей части - код.
А в старшей - инфу о кнопках

Цитата:

If the function succeeds, the low-order byte of the return value contains the virtual-key code and the high-order byte contains the shift state, which can be a combination of the following flag bits.

If the function finds no key that translates to the passed character code, both the low-order and high-order bytes contain –1.

Bit Meaning
1 Either SHIFT key is pressed.
2 Either CTRL key is pressed.
4 Either ALT key is pressed.
8 The Hankaku key is pressed
16 Reserved (defined by the keyboard layout driver).
32 Reserved (defined by the keyboard layout driver).

-------------------
d делфи числа в шестнадчатиричной системе пишутся через $ типа
$A1

Последний раз редактировалось slesh; 30.12.2009 в 19:53..