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 的源码里面有很多非常有用的功能,希望大家认真读代码,经常会有一些意外的惊喜。
原文地址:https://www.cnblogs.com/xalion/p/9309229.html
时间: 2024-10-09 10:26:41