
31.07.2011, 10:40
|
 |
Активный
|
|
Регистрация: 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;
|