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 idsmtp控件发送邮件

Delphi 网卡工作状态检测

Delphi实现dbgrid全选和反选功能

Delphi 如何让scrollbox的内容与滚动条一起实时滚动

Delphi fastreport 直接列印

Delphi如何过xp的防火墙而不被拦截

Delphi在combobox下拉框里显示图片

Delphi中如何用image控件显示网络图片

Delphi unigui确认对话框

Delphi 返回整数的四种情况

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

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