posts - 211,  comments - 518,  trackbacks - 0

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 的源码里面有很多非常有用的功能,希望大家认真读代码,经常会有一些意外的惊喜。

posted on 2018-07-14 13:00 xalion 阅读(...) 评论(...) 编辑 收藏