想知道我的应用程序是否具有管理员权限？

Question

对于delphi我想知道我的应用程序是否具有管理员权限,您可能知道有解决方案吗？

相关问题:

如何启动具有管理员权限的应用程序？

Answer 1

只是尝试做一些需要管理权限的事情:

uses
  WinSvc;

function IsAdmin(Host : string = '') : Boolean;
var
  H: SC_HANDLE;
begin
  if Win32Platform <> VER_PLATFORM_WIN32_NT then
    Result := True
  else begin
    H := OpenSCManager(PChar(Host), nil, SC_MANAGER_ALL_ACCESS);
    Result := H <> 0;
    if Result then
      CloseServiceHandle(H);
  end;
end;