调用外部程序并等待其运行结束/实例为调用QQ截图

weixin_30321709

于 2010-06-05 12:58:00 发布

阅读量114

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/swlove/archive/2010/06/05/1752206.html

本文介绍了一段使用Delphi进行截图并调用DLL文件的代码实现过程。该过程包括隐藏主窗口、调用外部DLL进行截图操作，并在完成后重新显示主窗口。通过设置SHELLEXECUTEINFO结构体来指定截图所需参数。

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/swlove/archive/2010/06/05/1752206.html