一、设置edge中截图的快捷键。
二、代码:
const
VK_CONTROL = $11;
VK_4 = $34;
procedure SendCtrl4ToDesktopVirtualKeyboard;
begin
// 模拟Ctrl键按下
keybd_event(VK_CONTROL, 0, 0, 0);
// 模拟4键按下
keybd_event(VK_4, 0, 0, 0);
// 模拟4键释放
keybd_event(VK_4, 0, KEYEVENTF_KEYUP, 0);
// 模拟Ctrl键释放
keybd_event(VK_CONTROL, 0, KEYEVENTF_KEYUP, 0);
end;
三、调用。
Application.Minimize;
SendCtrl4ToDesktopVirtualKeyboard;
四、结果。