DELPHI怎样获得计算机名称？该如何解决

DELPHI怎样获得计算机名称？
怎样得到我这台计算机的名称？请教高手

[解决办法]
http://www.qqread.com/delphi/d435191002.html 有详细的解答.
主要是调用GetComputerName函数获取计算机名称.
function TfrmMain.GetHostName:String;
　var
　　ComputerName: array[0..MAX_COMPUTERNAME_LENGTH+1] of char;
　　Size: Cardinal;
　begin
　　result:= ' ';
　　Size := MAX_COMPUTERNAME_LENGTH+1;
　　GetComputerName(ComputerName, Size);
　　Result:=StrPas(ComputerName);
end;