// 对 Windows 以及 MAC、Linux 等平台上的 gethostname 函数的封装,返回本机的计算机名称
Function GetLocalName: string;
var
S: array[0..256] of AnsiChar;
begin
{$IFDEF MSWINDOWS}
WinSock.gethostname(@S[0], SizeOf(S));
{$ELSE}
Posix.Unistd.gethostname(@S[0], SizeOf(S));
{$ENDIF}
Result := string(S);
end;
end.