用DELPHI如何发送按键给其他程序?

Question

如:
打开记事本,编写程序在程序中给记事本发送按键,就象在记事本中按键一样
在如:
打开小游戏,比如自带的弹珠台.编写程序,在程序中发送按键给弹珠台,呵呵这样的程序如何编写啊,详细解释

Answer 1

向弹珠游戏发送一个Z按键：var h:HWND;
begin
  h:=FindWindow(nil,'Windows 三维弹球 - 太空军校生');
  if h>0 then
    begin
      SetForegroundWindow(h);
      keybd_event(Ord('Z'),0,0,0);
      sleep(300);
      keybd_event(Ord('Z'),0,KEYEVENTF_KEYUP,0);
    end;
end;

Answer 2

有个方法叫shellexcute吧，要搜一下

Answer 3

liangqingzhi(老之)  正解

Answer 4

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝
VB有个sendkeys lz知道吧
其实delphi也有个sendkeys 只是一个单元,Delphi光盘上有Sendkeys.pas放到相应目录下，引用即可比键盘事件好
不用一个一个传  ，功能同VB
比如sendkeys{"tab"}－－－vb

Answer 5

procedure TForm1.Button1Click(Sender: TObject);
begin
ShellExecute(Handle, nil,'notepad.exe',nil,'C:\winnt', SW_SHOW);
end;