kbmmw 中的进程管理小工具

时间：2018-07-14 14:46:13 阅读：198 评论：0 收藏：0 [点我收藏+]

标签：进程操作关闭 ssh info 比较实现 api 使用

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;