Question

delphi7实现模拟键盘按键，比如按下v键，数字0，回车等

求全程序代码，我只是刚刚学会pascal，delphi还没有碰过
最好是带一个触发的（按下F11，才会按键）

感激不尽

Answer 1

var
hwndwindow:hwnd;
begin
hwndwindow:=findwindow(nil,'DELPHI技巧');//DELPHI技艺改成你要最大化的窗口标提.
if hwndwindow<>0 then//不等于0则是找到了这个窗体
postmessage(hwndwindow,WM_SYSCOMMAND,SC_MAXIMIZE,0);//用postmessage发送一条最大化消息(SC_MAXIMIZE)到这个窗体的句柄
//******************************************************
//另外postmessage(hwndwindow,wm_close,0,0);为关闭
//如果需要要自己的程序中使程序动态变最大化则用
form1.windowstate:=wsmaximized; //form1为你要最大化的窗口名！
//几个要用到的名词:
1.hwnd是句柄的意思,只有先得到了窗体的句柄才能控制它
2.findwindow是找窗体的意思
3.nil是空指针的意思
4.postmessage发送一条消息给一个已找到的窗口句柄.

对某一个窗口发送鼠标消息
SendMessage(Handle,WM_LBUTTONDBLCLK,0,0);
对系统发消息关闭程序
SendMessage(Handle, WM_CLOSE, 0, 0);
启动开始菜单
Sendmessage(Application.Handle,WM_SYSCOMMAND,SC_TASKLIST,0);

参考楼上说的使用 PostMessage 函数。PostMessage 函数确实可以模拟按键

参考资料：
http://gykthh.blog.163.com/blog/static/6453464201141211314831/

Answer 2

你好，delphi关于按键有三种事件，最常用的就是keypress和keydown两个事件了

keypress就是按键的意思，一次只能接收一个按键， 而keydown就按下键的意思，可以实现组合按键
这是退格的代码。
keybd_event(VK_BACK, MapVirtualKey(VK_BACK, 0), 0, 0); //退格

Answer 3

使用 PostMessage 函数

追问

unit Unit1;

interface

..............

end.
上面是form1窗口代码，哪里添加PostMessage 函数？