运行和关闭外部程序的Delphi单元.docVIP

运行和关闭外部程序的Delphi单元 分类:默认栏目 2006.9.3 13:45 作者：快乐的流浪猫 | 评论：1 | 阅读：2441 unit RunAppUnit; //运行和关闭外部程序单元//作者:孙占伟 //使用时先引用此单元,然后就可以使用了. //关闭已经启动的程序的时候使用TerminateApp() //例子: //var //s:TRunApp; //begin //? s:=TRunApp.Create; //? 使用命令行 //? s.CommandLines=/s /m; //? s.RunApp(应用程序路径); //end; //关闭程序 //begin //? TerminateApp(s.GetProcessID,5000);//5000指的是关闭程序超时等待的时间 //end; interfaceuses? Windows,Messages;type? TRunApp=class? private??? AppStartInfo:TStartupInfo;??? ProcessInfo: TProcessInformation;??? CmdLines:string;//命令行 ? public? constructor Create();? function RunApp(AppName:string):Boolean