Програмная эмуляция нажатия клавиш

Code:

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;