在 delphi中用ShellExecute启动一个PING命令,
怎样等它执行结束后再执行下一行脚本?谢谢!
怎样等它执行结束后再执行下一行脚本?谢谢!
解决方案 »
- Delphi7有没有自带报表控件呢?
- 求novell netware 6.0的250用户license
- 这个C语言DLL的Delphi声明怎么写?
- 为什么我写的ActiveX From 在网页中浏览只看到一片灰色,其它的控件都不知道跑哪去了。请高求解
- 如何才能让这个Panel显示在主窗体上?
- 那种下载来的带各种图片和ini的皮肤怎么支持?
- 为什么没有人回答?
- CGI Stand - alone executable 为何一闪而过 ? 结果没有出现在 Ie 中
- ribbon中Group的透明问题
- 如何制作splash窗体!!!!
- 问题5
- 【怎样读取.lnk中的图标并加载入ImageList中?】(在线等待)
我觉得应该用多线程解决你那个问题..
integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
WorkDir:String;
StartupInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
begin
StrPCopy(zAppName,FileName);
GetDir(0,WorkDir);
StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,Sizeof(StartupInfo),#0);
StartupInfo.cb := Sizeof(StartupInfo); StartupInfo.dwFlags := STARTF_USESHOWWINDOW;
StartupInfo.wShowWindow := Visibility;
if not CreateProcess(nil,
zAppName, { pointer to command line string }
nil, { pointer to process security
attributes }
nil, { pointer to thread security
attributes }
false, { handle inheritance flag }
CREATE_NEW_CONSOLE or { creation flags }
NORMAL_PRIORITY_CLASS,
nil, { pointer to new environment block }
nil, { pointer to current directory name }
StartupInfo, { pointer to STARTUPINFO }
ProcessInfo) then Result := -1 { pointer to PROCESS_INF } else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,Result);//不行的话可以注消此句.
end;
end;