delphi 获取计算机名和用户名


本文整理自网络,侵删。

 
function CurrentUserName: String;
var
  nSize: DWord;
begin
  nSize := 1024;
  SetLength(Result, nSize);
  if GetUserName(PChar(Result), nSize) then
    SetLength(Result, nSize - 1)
  else
    RaiseLastOSError;
end;

function CurrentDomain: String;
const
  DNLEN = 255;
var
  sid: PSID;
  sidSize: DWord;
  sidNameUse: DWord;
  domainNameSize: DWord;
  domainName: array [0 .. DNLEN] of Char;
begin
  Result := '';

  sidSize := 65536;
  GetMem(sid, sidSize);
  domainNameSize := DNLEN + 1;
  sidNameUse := SidTypeUser;
  try
    if LookupAccountName(nil, PChar(CurrentUserName), sid, sidSize, domainName,
      domainNameSize, sidNameUse) then
      Result := strpas(domainName);
  finally
    FreeMem(sid);
  end;
end;

 EdtUsername.Text := CurrentUserName();
  EdtDomain.Text := CurrentDomain();

相关阅读 >>

Delphi在64位系统下读写注册表

Delphi中关键字inherited

Delphi基于prewitte算子的图像边缘检测

一些最基本的函数 单元

Delphi 10.3版本获取windows系统版本和cpu信息

程序人生 : 30岁,我的程序员梦想

Delphi-获取毫秒-计算代码运行的时间

Delphi中二进制文件数据存文件方法

Delphi禁用、启用usb

Delphi idhttp用法详解

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



打赏

取消

感谢您的支持,我会继续努力的!

扫码支持
扫码打赏,您说多少就多少

打开支付宝扫一扫,即可进行扫码打赏哦

分享从这里开始,精彩与您同在

评论

管理员已关闭评论功能...