kbmmw 中的进程管理小工具

最新推荐文章于 2018-09-08 12:06:00 发布

weixin_30455067

最新推荐文章于 2018-09-08 12:06:00 发布

阅读量88

点赞数

CC 4.0 BY-SA版权

原文链接：http://www.cnblogs.com/xalion/p/9309229.html

本文介绍kbmmw5.6.20版本新增的进程管理功能，可在应用内轻松创建和管理进程，利用jobobject对象进行多进程统一管理，适用于后台自动运行备份、恢复等任务。

kbmmw 5.6.20 发布了，本版本带来一个小功能，就是可以在kbmmw 应用里面建立和管理进程，

虽然你可以直接调用windows api 做类似的事情，但是kbmmw 里面简化了操作，也加强了管理。

下面简单的说一下这个功能。

首先建立一个新应用，加入单元 kbmMWProcess。

然后我们放置几个控件。

代码很简单。就一句话

procedure TForm1.Button1Click(Sender: TObject);
begin
    TkbmMWProcess.CreateProcess(edit1.Text,edit2.Text,'d:\');
end;

运行，就会发现，很顺利的打开记事本。

这个其实用windows api 很好实现。

为了更好地管理进程，windows 有了jobobject 对象，在kbmmw 中使用这个也很方便，来方便的管理一组进程。

继续添加一些功能和代码

var
  Form1: TForm1;
  FJobHandle: THandle;
implementation

{$R *.dfm}



procedure TForm1.Button2Click(Sender: TObject);
begin
    FJobHandle:=TkbmMWProcess.CreateJob;

   showmessage('创建成功!');
end;

procedure TForm1.Button3Click(Sender: TObject);
var
      FProcessHandle:THandle;
begin
   FProcessHandle:=TkbmMWProcess.CreateProcess(FJobHandle,edit1.Text,edit2.Text,'d:\');
   FProcessHandle:=TkbmMWProcess.CreateProcess(FJobHandle,edit1.Text,'test.xml','d:\');
end;




procedure TForm1.Button4Click(Sender: TObject);
begin
     TkbmMWProcess.TerminateJob(FJobHandle,1);
end;