类型的实际和正式变种参数不同的错误
procedure TForm1.Button1Click(Sender: TObject);
var
i,x,y:integer;
ch:char;//驱动器字符'A'~'Z'
buffer:string;
cpuinfo:TSYSTEMINFO; //存放系统信息的记录类型,在Windows.pas中查到详细内容。
meminfo:TMemoryStatus;//存放系统内存信息的记录类型。
computername,username:pchar;//计算机名称、用户名
spc,bps,nofc,tnoc:longint;//用于存放磁盘容量的变量
myreg:Tregistry; //用于访问注册表的TRegistry变量
begin
memo1.Lines.Clear;
for ch:='A' to 'Z' do
begin
i:=getdrivetype(pchar(ch+':\'));
buffer:=' '+ch+': ';
case i of
DRIVE_UNKNOWN : buffer:=buffer+'未知类型';
DRIVE_REMOVABLE: buffer:=buffer+'软盘';
DRIVE_FIXED :
begin
buffer:=buffer+'硬盘';
if getdiskfreespace(pchar(ch+':\'),spc,bps,nofc,tnoc) then //提示出错
begin
buffer:=buffer+'总容量: '+inttostr((spc*bps*tnoc) div (1024*1024))+'MB';
buffer:=buffer+'剩余: '+inttostr((spc*bps*nofc) div (1024*1024))+'MB';
end;
end;
DRIVE_REMOTE : buffer:=buffer+'网络驱动器';
DRIVE_CDROM :buffer:=buffer+'CD-ROM驱动器';
DRIVE_RAMDISK:buffer:=buffer+'RAM虚拟驱动器';
end;
错误提示: [错误] Unit1.pas(48): Types of actual and formal var parameters must be identical
[错误] Unit1.pas(48): Types of actual and formal var parameters must be identical
请各位大师指点下