AccessCheck liefert False wenn Exception ausgelöst wird

[Luckie]

Ich habe folgenden Code (Ausschnitt):

Delphi-Quellcode:

if AccessCheck(psdAdmin, hImpersonationToken, dwAccessDesired, gm, ps, dwStructureSize,
                          dwStatus, bReturn) then
                        begin
                          Result := bReturn;
                        end
                        else
                          Writeln('Test');
                          //raise Exception.Create(SysErrorMessage(GetLastError));

Werfe ich eine Exception, liefert die Funktion False zurück und die Exception wird geworfen. Lasse ich stattdessen Text in der Konsole ausgeben liefert AccessCheck True zurück und alles funktioniert. Irgendwas scheint da mit dem Speicher nicht zu stimmen. Im Anhang mal das ganze Programm, für diejenigen, die es debuggen wollen.

[Dezipaitor]

Es wurde vergessen zu definieren:

dwStructureSize := sizeof(ps); HA, was das schnell oder was?


Und noch was in Eigenwerbung. So sieht das ganze mit der JEDI Windows Security Code Library aus

Delphi-Quellcode:

function JwCheckAdministratorAccess : Boolean;
var
    SD : TJwSecurityDescriptor;
begin
  if not Assigned(JwAdministratorsSID) then
    JwInitWellKnownSIDs;

  SD := TJwSecurityDescriptor.Create;
  try
    SD.PrimaryGroup := JwNullSID;
    SD.Owner := JwAdministratorsSID;
    SD.OwnDACL := true;

    SD.DACL.Add(TJwDiscretionaryAccessControlEntryAllow.Create(nil,[],
      STANDARD_RIGHTS_ALL,JwAdministratorsSID,false));

    result := TJwSecureGeneralObject.AccessCheck(SD,nil,STANDARD_RIGHTS_ALL,
      TJwSecurityGenericMapping);
  finally
    FreeAndNil(SD);
  end;
end;