如何写成 bcb 代码 ?(20分)

  • 主题发起人 主题发起人 mazheng
  • 开始时间 开始时间
M

mazheng

Unregistered / Unconfirmed
GUEST, unregistred user!
如何写成 bcb 代码 ?
const
MaxSavePoint=100;
type
TSavePoint=array[0..MaxSavePoint-1] of Byte;
 
const int MaxSavePoint= 100;
BYTE TSavePoint[MaxSavePoint];
 
那以下代码如何改啊? 3Q!!
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}']
 
typedef struct
{
unsigned int ProcessID;
CHAR ProcessName[19];
BYTE CpuUsage;
unsigned int Memory;
unsigned int VirtualMemory;
unsigned int ThreadCount;
unsigned int NonPageBuffer;
} TProcessInfo;
TProcessInfo *PProcessInfo;
const GUID ISystemFun= {0x06F7F758-0xACA2-0x4E4B-0x9037-0x89E626E39588};
 
随便我想要一份你这个的源码。jacktcx@163.com
 
to 鳄鱼先生
发了...
 
已收到。谢谢
 
这个如何改 function GetCpuPoints:TSavePoint;??
 
还有它 procedure GetProcessInfo(AprocessId:Cardinal;AProcessInfo:PProcessInfo);如何改??
 
看BCB里VCL中关于函数指针的定义就知道了,多看VCL的定义,里面都有
 
其实在BCB中可以编译delphi的源码的。
 
问题是现在我要写成vc代码啊
 
BCB怎么编译DELPHI的代码呀!
 
在工程文件中加入.pas文件即可
 

Similar threads

S
回复
0
查看
1K
SUNSTONE的Delphi笔记
S
后退
顶部