procedure TFrmitem.FormShow(Sender: TObject);
var
Len: ^DWORD;//改为:Len:DWORD;
pbuf:PChar;//不要
buf:Array[0..30] of Char;
ComputerName:CString;//改为:ComputerName:string;
begin
Len^:=SizeOf(buf);//不要
GetComputerName(@buf,Len^);//改为:GetComputerName(Buf,Len);
ComputerName:=buf;
end;
var
Len: ^DWORD;//改为:Len:DWORD;
pbuf:PChar;//不要
buf:Array[0..30] of Char;
ComputerName:CString;//改为:ComputerName:string;
begin
Len^:=SizeOf(buf);//不要
GetComputerName(@buf,Len^);//改为:GetComputerName(Buf,Len);
ComputerName:=buf;
end;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货