判断当前进程是否有管理员权限

转自：http://blog.csdn.net/genispan/article/details/4387764

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;
//win7下通过