用Delphi开发监控和管理系统的软件

用Delphi开发监控和管理系统的软件Ξ
徐智文1,延　青2
(11包头钢铁职业技术学院,内蒙古　包头　014010;
21包钢稀奥科镍氢动力电池有限公司,内蒙古　包头　014010)
摘　要:目前市场上已经有许多类似的程序,如常用的优化大师就是一个监控和管理系统的软件。

文中主要介绍了使用Delphi用于监控和管理系统程序的开发思路和方法。

关键词:Delphi;监控和管理系统;CPU
中图分类号:TP315 文献标识码:B 文章编号:1009-5438(2008)01-0054-02
The Development of Controlling and Management System Softw are
by Using Delphi
XU Zhi-wen1,Y AN Qing2
(1.Baotou Vocational Technical College o f Iron and Steel,Baotou014010,Nei Monggol,China;
2.Rare Earth Ovonic High-Power MH/NI Battery Co1Ltd.o f Baotou Steel(Group)
Corp.,Baotou014010,Nei Monggol,China)
Abstract:At present,there are many similar procedures on the market,such as the G reat Master which is a s oftware for con2 trolling and management1The paper mainly introduces the widen thinking and the method of controlling and management system by using delphi.
K ey w ords:Delphi,controlling and management,CPU
计算机的硬件系统是用来读入、处理和存储信息,对系统的监控和管理可以提高其工作效率。

自从有了操作系统后,人们便想方设法在工作过程中查看内存使用情况、CPU的工作速度及其效率,以便对目前的工作进行调整,如内存耗量过大就可关闭一些没用的程序(包括前台和后台运行程序)。

随着人们对软件的要求越来越高,软件的功能在原有的基础上越来越大.但对运行环境的要求也越来越高。

因此需要通过程序对系统进行监控与管理来提高CPU的运行速度和降低内存的耗用量。

1　开发思路
对系统监控和管理程序的开发重点是对用于管理系统的命令和函数的灵活应用,在开发时可参考下面的思路:①明确要监控或管理的系统部分;②查找要使用的命令或函数;③设计使用管理和应用的界面;④编辑功能实现的代码;⑤运行测试其监控或管理的效果。

如果要开发远程系统监控和管理的程序,则必须选用适当的网络组件,以便获取对方的IP地址,并通过该地址对其系统进行监控和管理。

2　系统程序开发的一般流程
系统监控和管理程序开发主要是对各种函数的灵活应用。

系统程序开发的一般流程见图1。

实现对系统物理内存、CPU速度、显示频率等进行测试。

第34卷第1期2008年2月
包　钢　科　技
Science&T echnology of Baotou S teel(G roup)C orporation
V ol.34,N o.1
February,2008
Ξ收稿日期:2007-11-08
作者简介:徐智文(1963-),男,内蒙古包头市人,高级讲师,现从事计算机应用专业教学工作。

图1　系统程序开发流程
3　开发方法
在Delphi中开发系统监控和管理程序.主要使用Windows API中的一些函数.且主要是对硬件中的磁盘、内存和CPU的监控。

对磁盘的监控可使用G etDriveT ype函数,并可获取该硬件的信息,对不同的磁盘有不同类型的设置,如DRI VE RE MOVABLE(获取软驱信息)、DRI VE -FIXE D(获取硬盘信息)、DRI VE RE MOTE《获取网络驱动信息)、DRI VE-C DROM(获取光盘驱动信息)和DRI VE RAMDISK(获取内存虚拟盘信息);对内存监控可使用G lobal MernoryStatus函数获取内存使用信息;对CPU的监控可使用G etSystemlnfo函数获取CPU信息。

下面为实现对系统物理内存、CPU速度、显示频率等进行测试的部分源代码。

3.1　定义G etMem oryT otaIPhys函数
该函数用于获取系统物理内存,其实现代码为[1]:
function G etmem oryT otalPhys:Dw ord;
var
memstatus:T mem oryStatus;
begin
memstatus.dw Length:=sizeof(memstatus);
globalmem orystatus(memstatus);
result:=memstatus.dwT otalPhys;
end;
3.2　定义G etCPUS peed函数
该函数用于获取CPU的频率,其功能实现代码如下[1]:
function　G etCPUS peed:D ouble;
constDelayT ime=500;//时间单位是毫秒(ms)
var
T imerHi,T imerLo:DW ORD;
PriorityClass,Priority:Integer;
begin
PriorityClass:=G etPriorityClass(G etCurrentPro2 cess);
Priority:=G etThreadPriority(G etCurrentThread);
SetPriorityClass(G etCurrentProcess,RE A LTI ME-PRI ORITY-C LASS);
SetThreadPriority(G etCurrentThread,THRE AD-PRI2 ORITY-TI MECRITIC A L);Sleep(10)//设置延迟幼asm
dw　310Fh
m ov　T imerLo,eax
m ov　T imerHi,edx
end;
Sleep(DelayT ime);
asm
dw　310Fh
sub　eax,T imerLo
sbb　edx,T imerHi
m ov　T imerLo,eax
m ov　T imerHi,edx
end;
SetThreadPriority(G etCurrentThread,Priority);Set2 PriorityClass(G etCurrentProcess”,’PriorityClass);
Result:=T imerLo/(1000.03DelyT ime);
end;
3.3　定义G etDisplayFrequency函数
该函数用于获取显示器的刷新频率,其功能实现的代码略[2]。

3.4　定义DisplayData过程
该过程用于显示测试的内存、CPU、显示器的数据,其功能实现的代码略。

4　结束语
对系统监控和管理程序的开发并不太难,重点是对用于管理系统的命令和函数的灵活应用。

如果要开发远程系统监控和管理的程序,则必须选用适当的网络组件,以便获取对方的IP地址,并通过该地址对其系统进行监控和管理。

参　考　文　献
[1]王静.Delphi程序开发[M].北京:机械工业出版
社,2005.
[2]张岭,宋坤,梁冰.Delphi程序开发范例宝典
[M].北京:人民邮电出版社,2006.
55
第1期 用Delphi开发监控和管理系统的软件。