调用外部程序并等待其运行结束/实例为调用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;