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

Code:

procedure TForm1.Button1Click(Sender: TObject);

var

  wnd: HWND;

  i: Integer;

  s: string;

begin

  wnd := FindWindow('notepad', nil);

  if wnd <> 0 then

  begin

    wnd := FindWindowEx(wnd, 0, 'Edit', nil);

    // Write Text in Notepad.

   // Text ins Notepad schreiben.

   s := 'Hello';

    for i := 1 to Length(s) do

      SendMessage(wnd, WM_CHAR, Word(s[i]), 0);

    // Simulate Return Key.

   PostMessage(wnd, WM_KEYDOWN, VK_RETURN, 0);

    // Simulate Space.

   PostMessage(wnd, WM_KEYDOWN, VK_SPACE, 0);

  end;

end;

// To send keys to Wordpad:

{...}

  wnd := FindWindow('WordPadClass', nil);

  if wnd <> 0 then

  begin

    wnd := FindWindowEx(wnd, 0, 'RICHEDIT', nil);

  {...}