Hallo ihr
,
hab gerade eben ein neues kleines Programm angefangen und wie üblich meine MyLibrary.pas
Unit eingebunden und bei Benutzung einer Funktion daraus festgestellt, dass diese eine ERangeError
Exception (Fehler bei Bereichsprüfung) auslöst. Das passiert in dieser Funktion:
Delphi-Quellcode:
function IsAdmin: Boolean;
const
SECURITY_NT_AUTHORITY: TSIDIdentifierAuthority =
(Value: (0, 0, 0, 0, 0, 5));
SECURITY_BUILTIN_DOMAIN_RID = $00000020;
DOMAIN_ALIAS_RID_ADMINS = $00000220;
SE_GROUP_USE_FOR_DENY_ONLY = $00000010;
var
hAccessToken : THandle;
ptgGroups : PTokenGroups;
dwInfoBufferSize : Cardinal;
psidAdministrators : PSID;
x : Integer;
begin
Result:= (Win32Platform <> VER_PLATFORM_WIN32_NT);
if Result then
Exit;
if not OpenThreadToken(GetCurrentThread, TOKEN_QUERY, TRUE, hAccessToken) then
begin
if GetLastError <> ERROR_NO_TOKEN then
Exit;
if not OpenProcessToken(GetCurrentProcess, TOKEN_QUERY, hAccessToken) then
Exit;
end;
try
GetTokenInformation(hAccessToken, TokenGroups, nil, 0, dwInfoBufferSize);
if (GetLastError <> ERROR_INSUFFICIENT_BUFFER) then
Exit;
GetMem(ptgGroups, dwInfoBufferSize);
try
if not GetTokenInformation(hAccessToken, TokenGroups, ptgGroups, dwInfoBufferSize, dwInfoBufferSize) then
Exit;
if not AllocateAndInitializeSid(SECURITY_NT_AUTHORITY, 2,
SECURITY_BUILTIN_DOMAIN_RID,
DOMAIN_ALIAS_RID_ADMINS, 0, 0, 0, 0, 0, 0,
psidAdministrators) then
Exit;
try
for x := 0 to ptgGroups^.GroupCount - 1 do
begin
if EqualSid(psidAdministrators, ptgGroups^.Groups[x].Sid) then
begin
//consider denied ACE with Administrator SID
Result:= ptgGroups^.Groups[x].Attributes and SE_GROUP_USE_FOR_DENY_ONLY <> SE_GROUP_USE_FOR_DENY_ONLY;
Break;
end;
end;
finally
FreeSid(psidAdministrators);
end;
finally
FreeMem(ptgGroups);
end;
finally
CloseHandle(hAccessToken);
end;
end; {Michael Winter}
Die ursprüngliche Funktion habe ich aus der
Delphi Fundgrube, habe aber die Sache mit dem SE_GROUP_USE_FOR_DENY_ONLY mithilfe der JclSecurity ergänzt, damit die Funktion auch mit der
UAC ab Vista klarkommt.
Was ich bisher sagen kann: die for-Schleife läuft einmal sauber durch und beim zweiten Mal kommt es zur
Exception. Ich hatte das Problem in irgendeinem anderen Programm schonmal, aber das gab sich dann von alleine, was diesmal nicht der Fall ist. Ich hab aber keine Ahnung, wo ich suchen soll, um dem Problem auf die Spur zu kommen. Hat jemand einen Tip für mich?
PS: Bitte keine Hinweise zur Funktion IsUserAnAdmin der shell32.dll - ich weiß um deren Existenz, aber ich brauche die Prüfung auch auf Win2k.
MfG Dalai