Показать сообщение отдельно
  #7  
Старый 31.07.2011, 10:40
Аватар для AND_REY
AND_REY AND_REY вне форума
Активный
 
Регистрация: 31.03.2009
Адрес: Украина, г.Днепропетровск
Сообщения: 324
Версия Delphi: Delphi7
Репутация: 3877
По умолчанию

Код:
procedure TForm1.Button1Click(Sender: TObject);
begin
Sleep(3000);// 3 сек чтоб открыть игру или др. прогу и смотреть результат
keybd_event(Ord('T'), 0, 0, 0);                              // нажали Т
keybd_event(Ord('T'), 0, KEYEVENTF_KEYUP, 0);      // отпустили Т
keybd_event(VK_RETURN, 0, 0, 0);                        // нажали Enter 
keybd_event(VK_RETURN, 0, KEYEVENTF_KEYUP, 0); // отпустили Enter
end;
__________________
If end Then begin;
Ответить с цитированием