怎样实现机器名称------救助

Question

用代码怎样实现出机器名称

Answer 1

function GetComputerName: string;var  buffer: array[0..MAX_COMPUTERNAME_LENGTH + 1] of Char;  Size: Cardinal;begin  Size := MAX_COMPUTERNAME_LENGTH + 1;  Windows.GetComputerName(@buffer, Size);  Result := StrPas(buffer);end;

Answer 2

function GetComputerName: AnsiString;
var lpBuffer: array[0..MAX_PATH] of char;
dwSize: DWORD;
begin
dwSize:= MAX_PATH;if not Windows.GetComputerName(lpBuffer, dwSize) then
raise
Exception.Create(SysErrorMessage(GetLastError()));
Result:= StrPas(lpBuffer);
end;
function GetUserName: AnsiString;
var lpBuffer: array[0..MAX_PATH] of char;
dwSize: DWORD;
begin
dwSize:= MAX_PATH;if not Windows.GetUserName(lpBuffer, dwSize) then
raise
Exception.Create(SysErrorMessage(GetLastError()));
Result:= StrPas(lpBuffer);end;