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;

 

通过 为知笔记 发布

附件列表