delphi 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;

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

相关推荐

评论