Показать сообщение отдельно
  #1  
Старый 27.05.2011, 11:19
HunteRus HunteRus вне форума
Прохожий
 
Регистрация: 02.10.2010
Адрес: В Питере
Сообщения: 14
Версия Delphi: Delphi5
Репутация: 10
По умолчанию CS нажатие на кнопки клавы

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

Не работающие в контре методы:
1) Контра не реагирует на такие нажатия
Код:
procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
    keybd_event(Key,extra,0,0);
    keybd_event(Key,extra,KEYEVENTF_KEYUP,0);
end;

procedure SimulateKeyDown(Key : byte; extra : DWORD);
begin
    keybd_event(Key,0,0,0);
end;

procedure SimulateKeyUp(Key : byte; extra : DWORD);
begin
    keybd_event(Key,0,KEYEVENTF_KEYUP,0);
end;

2) И на отправку месаджа тоже
Код:
  sendMessage(handle, WM_KEYDOWN, 65, 0); //На это не реагирует
  sendMessage(handle, WM_CLOSE, 65, 0); //А тут реагирует(закрывается)
__________________
Код:
procedure UnleassFor(i: int64) UnleassFor(i + 1);

...

UnleassFor(0);
Бесконечный For
Ответить с цитированием