Посылаем нажатия клавиш другому приложению.

Автор: Gert v.d. Venis

Скачайте компонент Sendkeys

Описание:
Данный компонент получает хэндл(handle) любого запущенного окна и даёт возможность отправить по указанному хэндлу любые комбинации нажатия клавиш.

Совместимость: Все версии Delphi

Собственно сам исходничек:

После того, как проинсталируете этот компонент, создайте новое приложение и поместите на форму кнопку и сам компонент SendKeys. Добавьте следующий код в обработчик события OnClick кнопки:

procedure TForm1.Button1Click(Sender: TObject);
begin
// Запускаем Notepad, и ему мы будем посылать нажатия клавиш
WinExec(‘NotePad.exe’, SW_SHOW);
// В параметре процедуры GetWindowHandle помещаем
// текст заголовка окна Notepad’а.
SendKeys1.GetWindowHandle(‘Untitled — Notepad’);
// Если хэндл окна получен успешно, то отправляем ему текст
if SendKeys1.WindowHandle 0 then
SendKeys1.SendKeys(‘This is a test’);
// Так же можно отправить код любой кнопки типа
// RETURN, используя следующий код:
// SendKeys1.SendKeys(Chr(13));
end;

———————————

Неправда ли весело 🙂