判断当前用户是否为管理员组

最新推荐文章于 2022-05-07 18:08:02 发布

原创最新推荐文章于 2022-05-07 18:08:02 发布 · 1.6k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#shell #function

本文介绍了一个检测当前用户是否具有管理员权限的方法。通过调用shell32.dll中的IsUserAnAdmin函数，并使用Delphi语言实现跨平台兼容性。该方法首先加载指定的动态链接库文件，然后获取函数指针并调用它来判断用户的权限状态。

function IsUserAnAdmin(): boolean;
const
  SHELL32 = 'shell32.dll';
  PROCNAME = 'IsUserAnAdmin';
var
  hDll: HMODULE;
  func: function(): bool; stdcall;
begin
  result := false;
  hDll := LoadLibrary(PChar(SHELL32));
  if (hDll <> 0) then begin
    try
      func := GetProcAddress(hDll, PChar(PROCNAME));
      if Assigned(func) then
        result := func();
    finally
      FreeLibrary(hDll);
    end;
  end;
end;