如何在Delphi上生成唯一的计算机ID？

function GetHardwareID: string;
var
  hwInfo: TWindowsHardwareInfo;
begin
  hwInfo := TWindowsHardwareInfo.Create;
  try
    Result := hwInfo.CpuSerialNumber + hwInfo.DiskSerialNumber + hwInfo.BaseBoardSerialNumber;
  finally
    hwInfo.Free;
  end;
end;

function GetOSGUID: string;
var
  guid: TGUID;
begin
  if Succeeded(CoCreateGuid(guid)) then
    Result := GUIDToString(guid);
end;

function GetMACAddress: string;
var
  adapterInfo: PIP_ADAPTER_INFO;
  adapterInfoSize: ULONG;
begin
  adapterInfoSize := 0;
  adapterInfo := nil;
  if GetAdaptersInfo(nil, @adapterInfoSize) = ERROR_BUFFER_OVERFLOW then
  begin
    adapterInfo := AllocMem(adapterInfoSize);
    if GetAdaptersInfo(adapterInfo, @adapterInfoSize) = NO_ERROR then
      Result := adapterInfo.Address;
    FreeMem(adapterInfo);
  end;
end;

function GetComputerUserName: string;
var
  computerName, userName: array[0..MAX_COMPUTERNAME_LENGTH] of Char;
  computerNameLength, userNameLength: DWORD;
begin
  computerNameLength := MAX_COMPUTERNAME_LENGTH;
  GetComputerName(computerName, @computerNameLength);
  userNameLength := MAX_COMPUTERNAME_LENGTH;
  GetUserName(userName, @userNameLength);
  Result := computerName + userName;
end;