эмуляция нажатия клавиши F

[Vitek_DeadlyHunter]

есть код:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Button1: TButton;
Button2: TButton;
Button3: TButton;
Label1: TLabel;
procedure Button1Click(Sender: TObject);
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
procedure Button3Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
i:longint;

implementation

{$R *.dfm}


procedure SimulateKeystroke(Key : byte; extra : DWORD);
begin
keybd_event(Key,extra,0,0);
keybd_event(Key,extra,KEYEVENTF_KEY UP,0);
end;

procedure TForm1.Button1Click(Sender: TObject);
begin
timer1.Enabled:=true;
end;

procedure TForm1.Timer1Timer(Sender: TObject);
begin
i:=i+1;
if i<=11 then label1.Caption:=inttostr(i-11) else
begin
label1.Caption:='';
SimulateKeystroke(70, 0);

end;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
i:=0;
end;

procedure TForm1.Button3Click(Sender: TObject);
begin
close;
end;

procedure TForm1.Button2Click(Sender: TObject);
begin
timer1.Enabled:=false;
i:=0;
label1.Caption:='stop';
end;

end.

всё работает(проверял на блокноте, Word'e) он как бы эмулирует событие нажатия 70 клавиши(f) и она печатается...
проблема вот в чем: я это делал для игрульки(7 элемент) ну что-то типо бота, НО! окно игры никак не реагирует, чем можете помочь?

[mihali4]

Пример. Как послать сообщение из одного окна в другое о нажатии клавиши

PostMessage(hWnd, WM_KEYDOWN, VK_RETURN, 0);

hWnd - нужное окно, посылаем нажатие клавиши ENTER (RETURN).

Еще пример. Как послать текст в Блокнот:

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);
    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;

Настоятельно рекомендую :
Тема наверху. Дабы избежать набивших оскомину вопросов.

Перед тем, как создавать тему, скачайте себе...
http://programmersforum.ru/showthread.php?t=120429

[Пепел Феникса]

игра может и вообще игнорировать сообщения о клавишах, если примеряет DirectInput

Пусть ТС экспериментирует

[Vitek_DeadlyHunter]

в общем игра использует nProtect Game Guard
может, абсолютно случайно, кто-нибудь имел дело с такой вещью?