Как послать в систему сообщение о нажатии клавиши?

[Gerzs]

Добрый день.
Как послать в систему сообщение о нажатии клавиши?

[TwiX]

http://programmersforum.ru/showthread.php?t=22193

[Gerzs]

Не, мне надо не на форму, а в определенное окно послать сообщение.

[ОДИНОЧЕСТВО В СЕТИ]

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;

вот пример для блокнота!

[russian-stalker]

Сообщение от Gerzs

Не, мне надо не на форму, а в определенное окно послать сообщение.

sendmessage(Хэндл_окна,WM_CHAR,номе р_кнопки,0);

Upd:
Опаздал

[Gerzs]

ОДИНОЧЕСТВО В СЕТИ, спасибо, то что надо. Только как передать сообщение консольной программе?

[Alex Cones]

Дайте догадаюсь: Counter Strike?

http://www.programmersforum.ru/showt...wnd%3A+HWND%3B

[Gerzs]

Alex Cones, нет не Counter Strike. А иных вариантов нет?