Ver Mensaje Individual
  #2  
Antiguo 21-12-2004
Avatar de defcon1_es
defcon1_es defcon1_es is offline
Miembro
 
Registrado: mar 2004
Ubicación: Cuenca - España
Posts: 533
Reputación: 21
defcon1_es Va por buen camino
Hola, para saber si un usuario puede escribir en el registro de windows,
prueba a escribir una clave en el registro y si salta una excepción, la capturas.

Por ejemplo:
Código Delphi [-]
procedure Comprobar_Acceso_Registro_Windows;
var Reg: TRegistry;
begin
  Reg := TRegistry.Create;
  try
    Reg.RootKey := HKEY_CURRENT_USER;
    try
      if Reg.OpenKey('\Software\Microsoft\Windows\PruebaEscritura', True) 
      then begin
        // No hay problema, el usuario puede escribir
        Reg.CloseKey;
      end;
    except
      // Ooops, el usuario no puede escribir...
    end;
  finally
    Reg.Free;
  end;
end;

Salu2.
__________________
Progress Openedge
https://abevoelker.com/progress_open...dered_harmful/


Delphi forever...
Responder Con Cita