Имитация нажатий клавиш клавиатуры

keybd_event(bVk: Byte; bScan: Byte; dwFlags, dwExtraInfo: DWORD);

  //Пять нажатий (нажатие + отпускание) клавиши F7
  for i := 1 to 5 do begin
    keybd_event(VK_F7, 0, 0, 0); //Нажатие F7.
    keybd_event(VK_F7, 0, KEYEVENTF_KEYUP, 0); //Отпускание F7.
  end;

  keybd_event(VK_LCONTROL, 0, 0, 0); //Нажатие левого Ctrl.
  keybd_event(VK_LSHIFT, 0, 0, 0); //Нажатие левого Shift.
  keybd_event(Ord('Z'), 0, 0, 0); //Нажатие 'z'.
 
  keybd_event(Ord('Z'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'z'.
  keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Shift.
  keybd_event(VK_LCONTROL, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Ctrl.

  //Устанавливаем фокус ввода на Мемо1.
  Memo1.SetFocus;
  //Ввод 'S'.
  keybd_event(VK_LSHIFT, 0, 0, 0); //Нажатие левого Shift.
  keybd_event(Ord('S'), 0, 0, 0); //Нажатие 's'.
  keybd_event(Ord('S'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 's'.
  keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Shift.
  //Ввод 't'
  keybd_event(Ord('T'), 0, 0, 0); //Нажатие 't'.
  keybd_event(Ord('T'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 't'.
  //Ввод 'a'
  keybd_event(Ord('A'), 0, 0, 0); //Нажатие 'a'.
  keybd_event(Ord('A'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'a'.
  //Ввод 'r'
  keybd_event(Ord('R'), 0, 0, 0); //Нажатие 'r'.
  keybd_event(Ord('R'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'r'.
  //Ввод 't'
  keybd_event(Ord('T'), 0, 0, 0); //Нажатие 't'.
  keybd_event(Ord('T'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 't'.

const
  {$EXTERNALSYM MOUSEEVENTF_MOVE}
  MOUSEEVENTF_MOVE            = $0001; { mouse move }
  {$EXTERNALSYM MOUSEEVENTF_LEFTDOWN}
  MOUSEEVENTF_LEFTDOWN        = $0002; { left button down }
  {$EXTERNALSYM MOUSEEVENTF_LEFTUP}
  MOUSEEVENTF_LEFTUP          = $0004; { left button up }
  {$EXTERNALSYM MOUSEEVENTF_RIGHTDOWN}
  MOUSEEVENTF_RIGHTDOWN       = $0008; { right button down }
  {$EXTERNALSYM MOUSEEVENTF_RIGHTUP}
  MOUSEEVENTF_RIGHTUP         = $0010; { right button up }
  {$EXTERNALSYM MOUSEEVENTF_MIDDLEDOWN}
  MOUSEEVENTF_MIDDLEDOWN      = $0020; { middle button down }
  {$EXTERNALSYM MOUSEEVENTF_MIDDLEUP}
  MOUSEEVENTF_MIDDLEUP        = $0040; { middle button up }
  {$EXTERNALSYM MOUSEEVENTF_WHEEL}
  MOUSEEVENTF_WHEEL           = $0800; { wheel button rolled }
  {$EXTERNALSYM MOUSEEVENTF_ABSOLUTE}
  MOUSEEVENTF_ABSOLUTE        = $8000; { absolute move }

procedure TForm1.Button1Click(Sender: TObject);
begin
  //Устанавливаем фокус ввода на Мемо1.
  Memo1.SetFocus;
 
  //Ввод 'S'.
  keybd_event(VK_LSHIFT, 0, 0, 0); //Нажатие левого Shift.
  keybd_event(Ord('S'), 0, 0, 0); //Нажатие 's'.
  keybd_event(Ord('S'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 's'.
  keybd_event(VK_LSHIFT, 0, KEYEVENTF_KEYUP, 0); //Отпускание левого Shift.
 
  //Позволяем нашему приложению обработать сообщения, отправленные через keybd_event().
  Application.ProcessMessages;
  //Пауза 1000 мсек = 1 сек.
  Sleep(1000);
 
  //Ввод 't'
  keybd_event(Ord('T'), 0, 0, 0); //Нажатие 't'.
  keybd_event(Ord('T'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 't'.
 
  Application.ProcessMessages;
  Sleep(1000);
 
  //Ввод 'a'
  keybd_event(Ord('A'), 0, 0, 0); //Нажатие 'a'.
  keybd_event(Ord('A'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'a'.
 
  Application.ProcessMessages;
  Sleep(1000);
 
  //Ввод 'r'
  keybd_event(Ord('R'), 0, 0, 0); //Нажатие 'r'.
  keybd_event(Ord('R'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 'r'.
 
  Application.ProcessMessages;
  Sleep(1000);
 
  //Ввод 't'
  keybd_event(Ord('T'), 0, 0, 0); //Нажатие 't'.
  keybd_event(Ord('T'), 0, KEYEVENTF_KEYUP, 0); //Отпускание 't'.
end;

var
  Str:string; 
 
begin
 //переключаюсь на нужное поле с текстом, имтируя ALT+TAB
 keybd_event(VK_MENU,0,0,0);  
 keybd_event(VK_TAB,0,0,0);
 keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0); 
 keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
  
 //Ctrl+A Ctrl+C
 keybd_event(VK_LCONTROL,0,0,0);            
 keybd_event(Ord('A'),0,0,0);
 keybd_event(Ord('A'),0,KEYEVENTF_KEYUP,0); 
 keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
 keybd_event(VK_LCONTROL,0,0,0);            
 keybd_event(Ord('C'),0,0,0);
 keybd_event(Ord('C'),0,KEYEVENTF_KEYUP,0); 
 keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
 
 //открываю файл и пишу в него содержимое буфера обмена, если в нем соответствующий формат
 assign(fl,'log.txt'); append(fl);
 if clipboard.hasformat(cf_text) then begin
  str:=Clipboard.astext;  writeln(fl,str) end
 else writeln(fl,'NO TEXT!!!'); 
 closefile(fl);
 
end.

procedure TForm1.Button2Click(Sender: TObject);
const
  FileName = 'log.txt';
var
  F : TextFile;
  S : string;
begin
  //переключаюсь на нужное поле с текстом, имтируя ALT+TAB
  keybd_event(VK_MENU,0,0,0);
  keybd_event(VK_TAB,0,0,0);
  keybd_event(VK_TAB,0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_MENU,0,KEYEVENTF_KEYUP,0);
 
  //Ctrl+A Ctrl+C
  keybd_event(VK_LCONTROL,0,0,0);
  keybd_event(Ord('A'),0,0,0);
  keybd_event(Ord('A'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_LCONTROL,0,0,0);
  keybd_event(Ord('C'),0,0,0);
  keybd_event(Ord('C'),0,KEYEVENTF_KEYUP,0);
  keybd_event(VK_LCONTROL,0,KEYEVENTF_KEYUP,0);
 
  //Чтобы сообщения, посланные выше заданными командами, были
  //обработаны компонентами, необходимо выполнить:
  Application.ProcessMessages;
 
  //открываю файл и пишу в него содержимое буфера обмена, если в нем соответствующий формат
  AssignFile(F, FileName);
  if FileExists(FileName) then
    Append(F)
  else
    Rewrite(F)
  ;
  if clipboard.hasformat(cf_text) then begin
    S := Clipboard.astext;
    Writeln(F, S);
  end else
    Writeln(F, 'NO TEXT!!!')
  ;
 
  CloseFile(F);
end;

  //Чтобы сообщения, посланные выше заданными командами, были
  //обработаны компонентами, необходимо выполнить:
  Application.ProcessMessages;