در يافت خطا 87 در هنگام استفاده از تابع SetEntriesInAcl

[pad_kay]

با سلام
فكر كنم سوال گويا باشد ولي بيشتر توضيح مي دم
من در هنگام استفاده از تابع SetEntriesInAcl كد خطا 87 رو مي گيرم
كد خود و ساير كد هاي مشابه رو بررسي كردم
لازم به ذكر است كه اگر كد هاي ذكر شده را در دلفي 2010 استفاده كنم خطا نمي دهد
ولي در دلفي 7 مي دهد

pDacl := nil;

  pSD := nil;

  pNewDacl := nil;

  dwRes := GetSecurityInfo(hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, pDacl, nil, pSD);

  if ERROR_SUCCESS <> dwRes then

  begin

    if Assigned(pSD) then

      LocalFree(Hlocal(pSD^));

    if Assigned(pNewDacl) then

      LocalFree(HLocal(pNewDacl));

  end;

  User:='CURRENT_USER';

  ZeroMemory(@ea, sizeof(EXPLICIT_ACCESS));

  ea.grfAccessPermissions :=SECTION_MAP_WRITE;

  ea.grfAccessMode := GRANT_ACCESS;

  ea.grfInheritance := NO_INHERITANCE;

  ea.Trustee.TrusteeForm := TRUSTEE_IS_NAME;

  ea.Trustee.TrusteeType := TRUSTEE_IS_USER;

  ea.Trustee.ptstrName := PAnsiChar(user[1]);

 

  dwRes := SetEntriesInAcl(1, @ea, pDacl, pNewDacl);

  if ERROR_SUCCESS <> dwRes then

  begin

    if Assigned(pSD) then

      LocalFree(Hlocal(pSD^));

    if Assigned(pNewDacl) then

      LocalFree(HLocal(pNewDacl));

      raise Exception.Create(Format('Error ? %u', [dwRes]))

  end;

  dwRes := SetSecurityInfo

  (hSection, SE_KERNEL_OBJECT, DACL_SECURITY_INFORMATION, nil, nil, pNewDacl, nil);

  if ERROR_SUCCESS <> dwRes then

  begin

    if Assigned(pSD) then

      LocalFree(Hlocal(pSD^));

    if Assigned(pNewDacl) then

      LocalFree(HLocal(pNewDacl));

  end;

[vcldeveloper]

من در هنگام استفاده از تابع SetEntriesInAcl كد خطا 87 رو مي گيرم

خطا داره بهتون میگه که یکی از پارامترهای ورودی تابع نامعتبر هست. من بررسی نکردم که کدوم پارامتر رو اشتباه استفاده کردید، ولی اون خطا بهتون کمک میکنه که متوجه بشید مشکل در یکی از پارامترهاتون هست، و بررسی خودتون رو محدود به اونها بکنید.

[pad_kay]

خطا داره بهتون میگه که یکی از پارامترهای ورودی تابع نامعتبر هست.

با تشكر از شما من كليه پارامترها را چك كردم و به مورد خاصي نرسيدم.
در صورت امكان من را بيشتر راهنمايي كنيد.