调用QQ截图

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