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

http://www.cnblogs.com/rogee/archive/2010/09/14/1827247.html

調用QQ