M
mazheng
Unregistered / Unconfirmed
GUEST, unregistred user!
如何把下面一段pas代码写成一个h文件??
unit uISystemFun;
interface
const
MaxSavePoint=100;
type
TSavePoint=array[0..MaxSavePoint-1] of Byte;
PProcessInfo=^TProcessInfo;
TProcessInfo=record
ProcessId:Cardinal;
//进程id
ProcessName:array[0..19] of char;//进程名称
CpuUsage:Byte;//cpu占有率
Memory:Cardinal;//内存占用
VirtualMemory:Cardinal;//虚拟内存占用
ThreadCount:Cardinal;//线程数
NonPageBuffer:Cardinal;//非页面缓冲池
end;
type
ISystemFun= interface
['{06F7F758-ACA2-4E4B-9037-89E626E39588}']
{brief
* 得到cpu使用率,返回整数,如返回21,代表cpu占有率为21%
}
function GetCpuUsage: integer;
{brief
* 得到内存使用率,返回整数,如返回21,代表内存占有率为21%
}
function GetMemoryUsage: integer;
{brief
内部可用定时器实现
* 得到100秒内的cpu占有率
}
function GetCpuPoints:TSavePoint;
{brief
*得到100秒内的内存占用率
}
function GetMemoryPoints:TSavePoint;
{brief
* 根据输入进程ID,得到进程信息,存储在AProcessInfo指针所指内存中
}
procedure GetProcessInfo(AprocessId:Cardinal;AProcessInfoProcessInfo);
{brief
*加入监视进程Id
}
function AddMonitorProcess(AProcessId:Cardinal):integer;
//procedure AddMonitorProcess(AProcessId:Cardinal);
end;
implementation
end.
unit uISystemFun;
interface
const
MaxSavePoint=100;
type
TSavePoint=array[0..MaxSavePoint-1] of Byte;
PProcessInfo=^TProcessInfo;
TProcessInfo=record
ProcessId:Cardinal;
//进程id
ProcessName:array[0..19] of char;//进程名称
CpuUsage:Byte;//cpu占有率
Memory:Cardinal;//内存占用
VirtualMemory:Cardinal;//虚拟内存占用
ThreadCount:Cardinal;//线程数
NonPageBuffer:Cardinal;//非页面缓冲池
end;
type
ISystemFun= interface
['{06F7F758-ACA2-4E4B-9037-89E626E39588}']
{brief
* 得到cpu使用率,返回整数,如返回21,代表cpu占有率为21%
}
function GetCpuUsage: integer;
{brief
* 得到内存使用率,返回整数,如返回21,代表内存占有率为21%
}
function GetMemoryUsage: integer;
{brief
内部可用定时器实现
* 得到100秒内的cpu占有率
}
function GetCpuPoints:TSavePoint;
{brief
*得到100秒内的内存占用率
}
function GetMemoryPoints:TSavePoint;
{brief
* 根据输入进程ID,得到进程信息,存储在AProcessInfo指针所指内存中
}
procedure GetProcessInfo(AprocessId:Cardinal;AProcessInfoProcessInfo);
{brief
*加入监视进程Id
}
function AddMonitorProcess(AProcessId:Cardinal):integer;
//procedure AddMonitorProcess(AProcessId:Cardinal);
end;
implementation
end.