调用QQ截图

weixin_34404393

于 2019-07-05 01:48:35 发布

阅读量821

点赞数

原文链接：http://www.cnblogs.com/rogee/archive/2010/09/14/1827247.html

版权

本文详细解析了使用Delphi进行截图的代码实现过程，通过隐藏主程序窗口，调用ShellExecuteEx函数执行外部命令，利用Rundll32.exe调用CameraDll.dll中的CameraSubArea函数来完成截图操作，最后重新显示主程序窗口。代码中展示了如何设置SHELLEXECUTEINFO结构体的各项参数以确保截图操作的顺利进行。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

var
  SHExecInfo: SHELLEXECUTEINFO;
begin
  //截图前隐藏主程序窗口
  Form1.Hide;
  //等待截图执行完成
  SHExecInfo.cbSize := sizeof(SHELLEXECUTEINFO);
  SHExecInfo.fMask := SEE_MASK_NOCLOSEPROCESS;
  SHExecInfo.Wnd := Handle;
  SHExecInfo.lpVerb := 'open';
  SHExecInfo.lpFile := 'Rundll32.exe';
  SHExecInfo.lpParameters := 'CameraDll.dll,CameraSubArea';
  SHExecInfo.lpDirectory := 'CameraDll.dll';
  SHExecInfo.nShow := SW_SHOW;
  SHExecInfo.hInstApp := Handle;
  ShellExecuteEx(@SHExecInfo);
  WaitForSingleObject(SHExecInfo.hProcess, INFINITE);
  CloseHandle(SHExecInfo.hProcess);

  //截图完成后显示主程序窗口
  Form1.Show;
end;

转载于:https://www.cnblogs.com/rogee/archive/2010/09/14/1827247.html