调用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;