网
网络无限
Unregistered / Unconfirmed
GUEST, unregistred user!
我另外一个程序的标题是 aaa,进程名为nnn.exe
我的代码为
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: HWND;
begin
Wnd := FindWindow(nil,'aaa');
if Wnd <> 0 then
begin
postMessage(Wnd, WM_KEYDOWN, VK_F1, 0);
end;
end;
但没反映(这是一个游戏程序，我手动按F1有魔法出现)，是不是我没将焦点转移到需要按键的窗体上，请问应该怎么实现？谢谢！
我的代码为
procedure TForm1.Button1Click(Sender: TObject);
var
Wnd: HWND;
begin
Wnd := FindWindow(nil,'aaa');
if Wnd <> 0 then
begin
postMessage(Wnd, WM_KEYDOWN, VK_F1, 0);
end;
end;
但没反映(这是一个游戏程序，我手动按F1有魔法出现)，是不是我没将焦点转移到需要按键的窗体上，请问应该怎么实现？谢谢！
]