一段Delphi代码,求解释
var
ProcessInfo:TProcessInformation;
StartUp:TStartupInfo;
FillChar(StartUp,SizeOf(StartUp),$00);
StartUp.wShowWindow:=SW_HIDE;
if CreateProcess(nil,PChar(BatFileName),nil,nil,False,IDLE_PRIORITY_CLASS,nil,nil
,StartUp,ProcessInfo) then
begin
CloseHandle(ProcessInfo.hProcess);
CloseHandle(ProcessInfo.hThread);
end;
Application.Terminate;
麻烦了。详细点谢谢。
答案:var //定义
ProcessInfo:TProcessInformation; //进程类
StartUp:TStartupInfo;
FillChar(StartUp,SizeOf(StartUp),$00); //初始化字符数据
StartUp.wShowWindow:=SW_HIDE; //窗体隐藏
if CreateProcess(nil,PChar(BatFileName),nil,nil,False,IDLE_PRIORITY_CLASS,nil,nil
,StartUp,ProcessInfo) then //判断进程是否已经被创建,如已创建则
begin
CloseHandle(ProcessInfo.hProcess); //关闭进程
CloseHandle(ProcessInfo.hThread); //关闭线程
end;
Application.Terminate; //结束程序
不知道有没有达到要求
判断进程是否创建,如果创建了就关闭这个进程
上一个:谁能帮我解决这个问题Delphi7 ?
下一个:求用Delphi做的考勤统计窗口的代码