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 decodeutf8str解决系统自带utf8解码缺陷

Delphi 批量给每个字符加括号

Delphi thttpclient posturl

Delphi 用ini记录combobox的itemindex

Delphi 使用int3进行hook处理

Delphi 10 seattle的android应用程序的主屏幕上创建快捷方式

Delphi xe10 给程序添加uac权限

Delphi unix时间转换成Delphi时间

monthdays：给出一个月的天数

Delphi string转为olevariant

更多相关阅读请进入《Delphi》频道 >>

转载请注明出处：木庄网络博客 » delphi GetComputerName() GetUserName() 获取本机当前用户名