//向IE发送 Ctrl + S
//向"计算器"发送 ALT+E
procedure TForm1.Button7Click(Sender: TObject);
Var
hwnd_Calc, hwnd_btn_CE : HWND;
begin
hwnd_Calc := FindWindow(nil, '计算器');
if hwnd_Calc<> 0 then
begin
setforegroundwindow(hwnd_Calc);
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), 0, 0);
keybd_event(ord('E'), MapVirtualKey(ord('E'), 0), 0, 0);
keybd_event(ord('E'), MapVirtualKey(ord('E'), 0), KEYEVENTF_KEYUP, 0);
keybd_event(VK_MENU, MapVirtualKey(VK_MENU, 0), KEYEVENTF_KEYUP, 0);
end;
end;
