请问wise怎么执行外部程序啊?
解决方案 »
- 使用dxdbgrid的高手有没有遇到过这样的问题???????
- 请问 如何通过遍历所有进程,找到某一个进程(比如QQ.exe)
- 开发数据库系统时的,管控某些字段让某些人可以看,或不可以看的灵活设置,大家是怎么做的?
- IdHTTP组件的代码小改~~~在线等
- 请问使用ADO连接SQL数据库如何写入日期字段
- 救命!急寻高手解决Intraweb问题
- 过年了,升级了,女朋友也找到了,散分啦!
- D7+Videocap控件开发程序对摄像头进行操作的问题
- 如何让菜单的某一项的下拉中的某一项前面有一个对号???
- 请问:ListView和TreeView问题?
- 有没有指定列名的可见或不可见
- 帮忙优化一下这个代码,怎么把Tstrings释放掉 我老是报错
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;
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;