Описание:
Данный компонент получает хэндл(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;