我想向一个一个程序发送一个按键例如向记事本发送一个F1键请问如何办!@(100分)

我想向一个一个程序发送一个按键例如向记事本发送一个F1键请问如何办!@<br>我在论坛找了很久也看见很多的办法可是我不能实现 我奉送100请帮助我给个源码示范.谢谢<br>在98下和XP下发送是否一样????我是一个新手请帮助我.

procedure TForm1.Button1Click(Sender: TObject);<br>var<br>&nbsp; wnd: Hwnd;<br>&nbsp; s: string;<br>&nbsp; i: integer;<br>begin<br>&nbsp; wnd := FindWindow('notepad', nil);<br>&nbsp; if wnd&lt;&gt;0 then<br>&nbsp; begin<br>&nbsp; &nbsp; wnd := FindWindowEx(wnd,0,'Edit',nil);<br>&nbsp; &nbsp; PostMessage(wnd, WM_KEYDOWN, VK_F1, 0);<br>&nbsp; &nbsp; PostMessage(wnd, WM_KEYUP, VK_F1, 0);<br>&nbsp; end<br>&nbsp; else ShowMessage('notepad not find');<br>end;<br><br>没装XP，你可以试一下。

难，UP

谢谢您zw84611运行可以给您100[][]