红鱼儿

kbmMW功能#5 - kbmMWProcess单元

在新的kbmMW v.5.06.20版本中新加kbmMWProcess单元。通过TkbmMWProcess类的各种类方法,可以轻松地在Windows上对外部进程进行分组,启动和停止。
在即将发布的小修补程序中,它还通过实现两个ExecuteProcess方法进一步扩展TkbmMWProcess功能

  TkbmMWProcess = class
  public
     class function TerminateProcess(const AHandle:THandle; const AExitCode:integer; const AWaitUntilTerminated:boolean = false):boolean;
     class function CreateProcess(const AProcessFile:string; const AArgs:string; const AStartupDirectory:string = ''):THandle; overload;
     class function CreateProcess(const AJob:THandle; const AProcessFile:string; const AArgs:string; const AStartupDirectory:string = ''):THandle; overload;
     class function CreateProcess(const AJob:THandle; const AInput:THandle; const AOutput:THandle; const AErr:THandle; const AProcessFile:string; const AArgs:string; const AStartupDirectory:string = ''; const AShowWindow:boolean=false):THandle; overload;
     class function CreateJob:THandle;
     class function TerminateJob(const AHandle:THandle; const AExitCode:integer; const AWaitUntilTerminated:boolean = false):boolean;
     class function ExecuteProcess(const AProcessFile:string; const AArgs:string; const ATimeoutMS:integer=4000; const AStartupDirectory:string = ''; const AShowWindow:boolean = false):string; overload;
     class function ExecuteProcess(const AJob:THandle; const AProcessFile:string; const AArgs:string; const ATimeoutMS:integer=4000; const AStartupDirectory:string = ''; const AShowWindow:boolean = false):string; overload;
  end;

要简单地启动外部程序,可以执行以下操作:

TkbmMWProcess.CreateProcess('\somepath\some.exe','');

some.exe将被启动并一直运行,直到它自己停止,或者通过任务管理器停止它。如果可执行文件是控制台类型的应用程序,则将看不到任何可视窗口。

但是,如果您希望能够轻松地按照自己的意愿关闭已启动的进程,用下面的代码实现:

var 
  h:THandle; 
begin 
  h:=TkbmMWProcess.CreateProcess('\somepath\some.exe',''); 
....
  TkbmMWProcess.TerminateProcess(h);
end;

TerminateProcess将强制关闭外部可执行文件,但不会等待它停止。如果要阻塞直到它已停止,请为TerminateProcess调用添加一个true参数。

TkbmMWProcess.TerminateProcess(h,true);

但是,如果您想要保证主进程与启动的所有外部进程一起终止,那么该怎么办?可以定义一个Job,通过这个Job来管理外部进程:

var 
  j:THandle; 
begin 
  j:=TkbmMWProcess.CreateJob;
  try
    TkbmMWProcess.CreateProcess(j,'\somepath\some1.exe',''); 
    TkbmMWProcess.CreateProcess(j,'\somepath\some2.exe',''); 
....
  finally
     TkbmMWProcess.TerminateJob(j,1);
  end;
end;

作业将自动定义,如果您的主可执行文件(包含CreateJob调用)终止,则所有使用CreateProcess(AJob ...)启动的外部进程将自动终止。

如果您想启动外部控制台应用程序,但想要查看其控制台视图,该怎么办?然后我们使用更复杂的CreateProcess版本,并为前4个参数提供0值

TkbmMWProcess.CreateProcess(0,0,0,0,'\somepath\some1.exe','','',true);

也许您想要接收控制台应用程序的输出。例如,我们想取得一个目录列表(这可以通过许多更原生的方式完成,在这里只是作为示例):

var
  s:string;
begin
  s:=TkbmMWProcess.ExecuteProcess('c:\windows\system32\cmd.exe','/C DIR'); 
end;

将会发生的是它会运行带有参数的 /C DIR的cmd.exe,来生成当前目录列表(c:\windows\system32)。在4秒内ExecuteProcess将读取所有输出(stdout和stderr)将其作为字符串返回。在4秒(4000毫秒)之后,如果启动的外部可执行文件尚未终止,则它将自动终止。您可以通过添加不同的ATimeoutMS来更改等待的最长时间如果将该值设置为0,它将无限期地等待,直到外部进程终止。ATimeoutMS的分辨率为100 毫秒

ExecuteProcess也可以参与与上面所示相同的作业,以保证在主可执行文件终止时终止。

最后,通过用户建议,可以使用ExecuteProcess的其他高级变体,它提供对接收数据的实时访问。

var 
  s:string; 
begin
     s:=TkbmMWProcess.ExecuteProcess(0,'C:\Windows\System32\cmd.exe','/C dir',
        function(var ABuf:PByte; const ABufSize:cardinal; var ASize:cardinal):boolean
        begin
             OutputDebugString(PChar('Received '+inttostr(ASize)+' bytes'));
             Result:=true;
        end,
        0,'',false);
end;

此变体调用提供的匿名函数,带有3个参数:

  • ABuf是指向包含数据的内部缓冲区的指针
  • ABufSize是一个包含缓冲区容量的常量
  • ASize这是一个告诉实际使用的缓冲区大小的值(为您扫描的实际数据量)。

如果您的匿名函数返回false,您将强制终止外部进程。

如果ABuf为零,则外部进程已终止或终止。

您可以通过ABuf直接在缓冲区指针中修改数据内容并返回一个新的ASize但请记住这样做,你必须永远不要超过ABufSize大小。如果要从字符串中完全跳过数据,可以设置ABuf:= nil,或者如果要返回的数据多于ABufSize中存储的数据,可以在ABuf中返回指向自己缓冲区的指针和返回的大小在ASize

任何更改/返回的数据都将是ExecuteProcess返回的最终字符串的一部分

目前,TkbmMWProcess的功能仅适用于Windows平台。

如果您喜欢kbmMW并希望支持我们的工作,请点击推荐并分享此文。

 

posted on 2018-12-19 20:08  红鱼儿  阅读(464)  评论(0编辑  收藏  举报