function GetCompName: string;
var
lsComputerName: PChar;
liSize: Cardinal;
begin
liSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(lsComputerName, liSize);
GetComputerName(lsComputerName, liSize); // 获得计算机名称
Result := lsComputerName;
end;
var
lsComputerName: PChar;
liSize: Cardinal;
begin
liSize := MAX_COMPUTERNAME_LENGTH + 1;
GetMem(lsComputerName, liSize);
GetComputerName(lsComputerName, liSize); // 获得计算机名称
Result := lsComputerName;
end;