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 dbgrid上设置选择项

Delphi 程序运行提示 “database login”对话框，让输入adoconnection1 的username和password

Delphi unigui unicheckbox勾选

Delphi 验证guid的函数

Delphi 锁定系统解锁系统

Delphi debug和release区别

Delphi xe7检查android蓝牙权限

Delphi 处理之文本文件

Delphi string.create(char,count)

Delphi获取操作系统安装磁盘盘符

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

转载请注明出处：木庄网络博客 » delphi 获取计算机名和用户名