: slfh(丝路飞鸿)
还不知道吗?
还不知道吗?
解决方案 »
- listview怎么插入数据库
- 向您请教两个问题(如何自绘控件)
- delphi中如何将一个dll静态链接到exe中?
- IntraWeb Component Pack Pro中TIWHTMLEdit组件html编辑框宽度的问题
- 定义一个DWord数据类型的变量a,三十二byte位,如何判断变量a的第五个byte位的值是不是一?
- 怎样知道用户修改了数据?是关于ADO的、
- 新装系统显卡(太阳花鐳2000)驱动找不到了,不知道为什么,网上down的都没有用?急啊!!谁能给点提示啊~~~~~~ SOS
- 打印报表时,在页脚实现“当前页/总页数”?
- delphi 编程方面
- 请问Winexec的用法
- 如何分割一个字符串,例如s:=s1+s2+s3+s4+s5+...将s分割并定义足够多的string来负值?急!!
- 如何替换SQL语句中的引号问题???
function WinExecAndWait32(FileName:string;visibility:Integer):integer;
var
zAppName:array[0..512] of char;
zCurDir:array[0..255] of char;
workDir:string;
startUpInfo:TStartupInfo;
ProcessInfo:TProcessInformation;
i:DWord;
begin
StrPCopy(zAppName,FileName);
// GetDir(0,WorkDir);
// showmessage(workdir);
// StrPCopy(zCurDir,WorkDir);
FillChar(StartupInfo,sizeof(StartUpInfo),#0);
StartupInfo.cb:=sizeOf(StartUpInfo); StartUpInfo.dwFlags:=STARTF_USESHOWWINDOW;
StartUpInfo.wShowWindow:=Visibility;// winExec(zAppName,Visibility); if not CreateProcess(nil,zAppName,nil,nil,false,
CREATE_NEW_CONSOLE or NORMAL_PRIORITY_CLASS,
nil,nil,StartupInfo,ProcessInfo ) then
Result:=-1
else begin
WaitforSingleObject(ProcessInfo.hProcess,INFINITE);
GetExitCodeProcess(ProcessInfo.hProcess,i);
Result:=i;
end;
end;
function WinExecWait(Path:String;Visibility:word):Word;
var
InstanceID:Thandle;
Pchar_Path;//将路径转换成PChar型
begin
Pchar_Path:=PChar(Path);
InstanceId:=WinExec(Pchar_Path,Visibility);//开始执行外部程序
if InstanceId < 32 then //小于32说明执行错误
WinExecWait:=InstanceId
else begin
Repeat
Application.ProcessMessage;
Until Application.Terminated or (GetModuleUsage(InstanceId)=0);//直到外部程序结束
WinExecWait:=32;
end;
end;