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