TreeResetNamedSecurityInfoW-Aufrufproblem

[Ghostwalker]

Hi,

Tja, also das setzten von Rechten unter XP ist nicht so ganz trivial, insbesondere wenn gleich ein ganzer Baum bearbeitet werden soll. Also warum nicht die API nutzen. Leider bekomme ich beim Aufruf immer "Falscher Parameter !". Hier mal ein bischen Code dazu:

Delphi-Quellcode:

procedure DoTreeProgress(
    pObjectName: LPWSTR;    // name of object just processed
    Status: DWORD;          // status of operation on object
    var pInvokeSetting: PPROG_INVOKE_SETTING; // Never, always,
    Args: PVOID;            // Caller specific data
    SecuritySet: BOOL  );Stdcall;
begin
  if (Args <> NIL) then
  begin
    if Assigned(TFileSecurityInformation(Args).fOnProgress) then
      TFileSecurityInformation(args).fOnProgress(PObjectName,SecuritySet);
  end;
end;


var
  NewSI : SECURITY_INFORMATION;
  NewOwner,NewGroup : PSID;
  NewDACL,NewSACL : PACL;
  CallBack : FN_PROGRESS;
 
  :
  
  CallBack := DoTreeProgress;

dErr := TreeResetNamedSecurityInfoW(PWidechar(ffilename),
       SE_FILE_OBJECT,
       NewSI,
       NewOwner,
       NewGroup,
       NewDACL,
       NewSACL,
       FALSE,
       CallBack,
       ProgressInvokeNever,NIL);
if (dErr <> ERROR_SUCCESS) then
        DoError(dErr);
  :

NewOwner,NewGroup,NewDACL,NewSACL werden vorher entsprechend befüllt, ein Aufruf von SetNamedSecurityInfoW mit den gleichen Variablen funktioniert ohne Probleme.

ProgressInvokeNever ist eine Konstante.

Der Link zur API-Funktion (MSDN): HIER


Da zwischen SetNamedSecurityInfoW und TreeResetNamedSecurityInfoW nur die letzten 4 Parameter unterschiedlich sind, nehme ich an das einer nicht passt.

Welcher ist nun falsch und wie müsste er richtig aussehen ?