GetComputerName() GetUserName() 获取本机当前用户名

 

 

{获取本机当前用户名}

//调用 返回值:= GetUser();
function GetUserName(): string;
var
 Buffer: array[0..255] of Char;
 Size: cardinal;
begin
 Size := 256;
 if GetUserName(Buffer, Size) then
  begin
    Result := Buffer
  end
 else
   begin
    Result := 'Unknown'
   end;
end;

{获取计算机名}

//调用 返回值:= GetComputerName();
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;

 

通过 为知笔记 发布

附件列表