Chave irrestrita regedit

function SetRegistryPerm : Boolean;
var
  eia: TSIDIdentifierAuthority;
  pEveryoneSID : PSID;
  sd: Windows.TSecurityDescriptor;
  pDacl: PACL;
  dwAclSize: DWORD;
  aHKey: HKEY;
  lRetCode: LongInt;
begin
  eia.Value[0] := 0;
  eia.Value[1] := 0;
  eia.Value[2] := 0;
  eia.Value[3] := 0;
  eia.Value[4] := 0;
  eia.Value[5] := SECURITY_WORLD_SID_AUTHORITY;
  pEveryoneSID := 0;

  pDacl := nil;

  lRetCode := RegOpenKeyEx(HKEY_LOCAL_MACHINE, ´SOFTWARE\xxxxx\´, 0, WRITE_DAC, aHKey);

  AllocateAndInitializeSID(eia, 1, SECURITY_WORLD_RID, 0, 0, 0, 0, 0, 0, 0, pEveryoneSid);

  dwAclSize := sizeof(TACL) + 2 * ( sizeof(TAccess_Allowed_ACE) - sizeof(DWORD) ) + GetLengthSid(pEveryoneSid);

  pDacl := PACL(HeapAlloc(GetProcessHeap(), 0, dwAclSize));

  InitializeAcl(pDacl^, dwAclSize,ACL_REVISION);

  AddAccessAllowedAce(pDacl^, ACL_REVISION, KEY_ALL_ACCESS, pEveryoneSid);

  InitializeSecurityDescriptor(@sd, SECURITY_DESCRIPTOR_REVISION);

  SetSecurityDescriptorDacl(@sd, TRUE, pDacl, FALSE);

  lRetCode := RegSetKeySecurity(aHKey, SECURITY_INFORMATION(DACL_SECURITY_INFORMATION), @sd);

  if (lRetCode <> ERROR_SUCCESS) then
    ShowMessage(´Falha ao atribuir permissão a chave de registro!´)
  else
    ShowMessage(´Permissão a chave de registro concluida com exito!´);
end;