delphi调用edge的截图功能

一、设置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;

四、结果。