Ver Mensaje Individual
  #6  
Antiguo 04-11-2007
Avatar de dec
dec dec is offline
Moderador
 
Registrado: dic 2004
Ubicación: Alcobendas, Madrid, España
Posts: 13.107
Reputación: 34
dec Tiene un aura espectaculardec Tiene un aura espectacular
Hola,

El problema está en el método "WriteInteger()", que requiere dos parámetros, el primero el nombre del valor a escribir, en este caso "ShowUpdates".

El asunto puede quedar más o menos así:

Código Delphi [-]
uses
  Registry;

function ChangeShowUpdatesRegistryValue(value: integer): boolean;
const
  REGISTRY_VALUE = 'ShowUpdates';
  REGISTRY_KEY = 'Software\Microsoft\Windows\CurrentVersion\App Management\';
begin
  with TRegistry.Create() do
  try
    // For readability purpose
    RootKey := HKEY_CURRENT_USER;
    if OpenKey(REGISTRY_KEY, true) then
    begin
      if (ReadInteger(REGISTRY_VALUE) <> value) then
        WriteInteger(REGISTRY_VALUE, value);
      result := true;
    end
    else
     result := false;
  finally
    Free();
  end;
end;
__________________
David Esperalta
www.decsoftutils.com

Última edición por dec fecha: 04-11-2007 a las 03:01:52.
Responder Con Cita