kbmmw 中的进程管理小工具

Posted 2020-12-04 xalion

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;

运行结果

使用jobobject 建立两个任务。

点击释放jobobject

可以看见我们打开的两个进程，同时关闭了。

以上的功能可以方便的让我们在kbmmw 后台自动运行和管理一些其他工具，例如备份、恢复，转换等功能，非常方便。

当然了，目前这个功能还比较

 

kbmmw 的源码里面有很多非常有用的功能，希望大家认真读代码，经常会有一些意外的惊喜。