Question

Delphi鼠标点击button写入键盘字母

procedure TForm1.Button2Click(Sender: TObject);
begin
Edit2.SetFocus ;
keybd_event(ord('R'), MapVirtualKey(ord('R'), 0), 0, 0);
keybd_event(ord('R'), MapVirtualKey(ord('R'), 0), KEYEVENTF_KEYUP, 0);

end;

如上请问keybd_event(ord('R'), MapVirtualKey(ord('R'), 0), 0, 0);
keybd_event(ord('R'), MapVirtualKey(ord('R'), 0), 这两行末尾为什么加0，还加了三个，可以分别说明最好，O(∩_∩)O谢谢

Answer 1

0是需要传递的参数值。百度一下很容易查到的。

MapVirtualKey 函数功能：该函数将一虚拟键码翻译（映射）成一扫描码或一字符值，或者将一扫描码翻译成一虚拟键码。
函数原型：UINT MapVirtualKey（UINT uCode，UINT uMapType）；
参数：
uCode：定义一个键的扫描码或虚拟键码。该值如何解释依赖于uMapType参数的值。
uMapType：定义将要执行的翻译。该参数的值依赖于uCode参数的值。取值如下：
0：代表uCodee是一虚拟键码且被翻译为一扫描码。若一虚拟键码不区分左右，则返回左键的扫描码。若未进行翻译，则函数返回O。

keybd_event 函数功能：该函数合成一次击键事件。系统可使用这种合成的击键事件来产生WM_KEYUP或WM_KEYDOWN消息，键盘驱动程序的中断处理程序调用keybd_event函数。在Windows NT中该函数己被使用Sendlhput来替代它。
函数原型；VOID keybd_event（BYTE bVk，BYTE bScan，DWORD dwFlags，DWORD dwExtralnfo）；
参数：
bVk：定义一个虚据拟键码。键码值必须在1～254之间。
bScan:定义该键的硬件扫描码。
dwFlags:定义函数操作的名个方面的一个标志位集。应用程序可使用如下一些预定义常数的组合设置标志位。
KEYEVENTF_EXETENDEDKEY：若指定该值，则扫描码前一个值为OXEO（224）的前缀字节。DEYEVENTF_KEYUP：若指定该值，该键将被释放；若未指定该值，该键交被接下。dwExtralnfo：定义与击键相关的附加的32位值。
返回值：该函数无返回值。
备注：尽管keybd_event传递一个与OEM相关的硬件扫描码给系统，但应用程序不能用此扫描码。系统在内部将扫描码转换成虚拟键码，并且在传送给应用程序前清除键码的UP/down位。应用程序可以摸拟PRINTSCREEN键的按下来获得一个屏幕快照，并把它存放到剪切板中。若要做到这一点，则要将keybd_event的bVk参数置为VK_SNAPSHOT,bScan参数置为0（用以获得全屏快照）或hScan置为1（仅获得活动窗口的快照）。Windows CE：WindowsCE支持dwFlags参数附加的标志位。即使用KEYEVENTF_SILENT标志模拟击键，而不产生敲击的声音。Windows CE不支持KEYEVENTF_EXTENDEDKEY标志。