如何获取计算机的名称（该小的地方变大了）
用下面的函数可以获取都市，全部都是大写：
如计算机名称是：ABc或aBc得到的都是：ABC，我想得到的计算机名称大小写保持不变该如何实现？
function getname: string;
var
ComputerName: PChar;
size: DWord;
begin
result := ' ';
GetMem(ComputerName, 255);
size := 255;
if GetComputerName(ComputerName, size) = False then
begin
FreeMem(ComputerName);
exit;
end;
result := computerName;
Freemem(ComputerName);
end;

[解决办法]
读注册表项: \HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Services\Tcpip\Parameters\NV Hostname