我有像CTRL S或CTRL SHIFT C或CTRL˚F发送击键它来控制其他应用程序。
我已经尝试了很多东西，但我无法得到它的工作。 所以我试图让一个简单的情况下，这种权利。
这成功地将Hey到记事本：
procedure TForm1.Button1Click(Sender: TObject);
var notepad, edit: HWND;
begin
notepad := FindWindow('notepad', nil);
edit := FindWindowEx(notepad, FindWindow('Edit', nil), nil, nil);
SendMessage(edit, WM_CHAR, dword('H'), 0);
SendMessage(edit, WM_CHAR, dword('e'), 0);
SendMessage(edit, WM_CHAR, dword('y'), 0);
end;
而这种成功发送F5键在记事本中，还与F3坡平了查找对话框。
notepad := FindWindow('notepad', nil);
PostMessage(notepad, WM_KEYDOWN, VK_F5, 0);
PostMessage(notepad, WM_KEYUP, VK_F5, 0);
但我不知道为什么使用SendMessage不会对工作为例以上。
我能想出的最好的事情是这样的，它什么都不做。
notepad := FindWindow('notepad', nil);
PostMessage(notepad, WM_KEYDOWN, VK_CONTROL, 0);
PostMessage(notepad, WM_KEYDOWN, VkKeyScan('F'), 0);
PostMessage(notepad, WM_KEYUP, VkKeyScan('F'), 0);
PostMessage(notepad, WM_KEYUP, VK_CONTROL, 0);
我发现这里的某个地方这有点模仿VBScript的发送键函数库，但只是在寻找的代码，它似乎只是播放键，在当前的应用程序或所有应用程序，因为没有句柄参数。
警告：该方法依赖于实施细节，如果你需要保证你的程序的正确性不应该使用。 （在另一方面，你已经是这条道路上。例如，IIRC，在Windows 95中竟然没有一个Go to对话。）
我打开notepad.exe在我最喜欢的资源编辑器，并调查了菜单栏。 我注意到的ID Save菜单项是3 。 因此，下面的代码执行Save在记事本菜单命令：
var
notepad: HWND;
begin
notepad := FindWindow('notepad', nil);
SendMessage(notepad, WM_COMMAND, 3, 0);
同样， Find是21 ，我的版本notepad.exe 。 Go to是24 。
更新，根据注释：如果您需要发送按Ctrl + 键 ，你可以使用SendInput ：
var
notepad: HWND;
inputArray: array[0..3] of TInput;
begin
notepad := FindWindow('notepad', nil);
// TODO: Either exit if notepad isn't focused, or set focus to notepad
FillChar(inputArray, length(inputArray) * sizeof(TInput), 0);
inputArray[0].Itype := INPUT_KEYBOARD;
inputArray[0].ki.wVk := VK_LCONTROL;
inputArray[1].Itype := INPUT_KEYBOARD;
inputArray[1].ki.wVk := VkKeyScan('S');
inputArray[2].Itype := INPUT_KEYBOARD;
inputArray[2].ki.wVk := VkKeyScan('S');
inputArray[2].ki.dwFlags := KEYEVENTF_KEYUP;
inputArray[3].Itype := INPUT_KEYBOARD;
inputArray[3].ki.wVk := VK_LCONTROL;
inputArray[3].ki.dwFlags := KEYEVENTF_KEYUP;
SendInput(length(inputArray), inputArray[0], sizeof(TInput));
我一直在使用keybd_event的年龄。 如果因为它直接馈送输入到键盘驱动程序和Windows之间的界面一切都失败了，它会永远甚至工作。 这确实手动键入，并使用下面的函数生成密钥没有区别。 唯一的缺点是目标窗口必须始终保持在前台。
procedure SendKey(Wnd,VK : Cardinal; Ctrl,Alt,Shift : Boolean);
var
MC,MA,MS : Boolean;
begin
// Try to bring target window to foreground
ShowWindow(Wnd,SW_SHOW);
SetForegroundWindow(Wnd);
// Get current state of modifier keys
MC:=Hi(GetAsyncKeyState(VK_CONTROL))>127;
MA:=Hi(GetAsyncKeyState(VK_MENU))>127;
MS:=Hi(GetAsyncKeyState(VK_SHIFT))>127;
// Press modifier keys if necessary (unless already pressed by real user)
if Ctrl<>MC then keybd_event(VK_CONTROL,0,Byte(MC)*KEYEVENTF_KEYUP,0);
if Alt<>MA then keybd_event(VK_MENU,0,Byte(MA)*KEYEVENTF_KEYUP,0);
if Shift<>MS then keybd_event(VK_SHIFT,0,Byte(MS)*KEYEVENTF_KEYUP,0);
// Press key
keybd_event(VK,0,0,0);
keybd_event(VK,0,KEYEVENTF_KEYUP,0);
// Release modifier keys if necessary
if Ctrl<>MC then keybd_event(VK_CONTROL,0,Byte(Ctrl)*KEYEVENTF_KEYUP,0);
if Alt<>MA then keybd_event(VK_MENU,0,Byte(Alt)*KEYEVENTF_KEYUP,0);
if Shift<>MS then keybd_event(VK_SHIFT,0,Byte(Shift)*KEYEVENTF_KEYUP,0);
end;
