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

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;

==================================

WINXP下编译通过-- genispan