Editar Regedit de windows con Delphi 7.0

[BuRtOn]

Saludos, Ok delphius gracias tus aportes fueron de gran ayuda, repase bien el codigo y pude lograr lo que queria, aqui esta el codigo como lo hice:

Código Delphi [-]
unit ufrmAumentarVelocidadMenu;
interface
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Registry, StdCtrls;
type
  TForm1 = class(TForm)
    Button1: TButton;
    Label1: TLabel;
    Label2: TLabel;
    Button2: TButton;
    procedure Button1Click(Sender: TObject);
    procedure Button2Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;
var
  Form1: TForm1;
implementation
{$R *.dfm}
procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Control Panel\Desktop\', True);
  reg.WriteString('MenuShowDelay','0');
  reg.CloseKey;
  MessageDlg('Su Menu Ha Sido Optimizado',mtInformation,[mbOK],0);
 end;
procedure TForm1.Button2Click(Sender: TObject);
begin
Application.Terminate;
end;
end.

Espero que a alguien le sea util...Bueno delphius ahora va esta pregunta, como hago el condicional, para que me haga lo siguiente:

* Por ejemplo voy a ejecutar la aplicacion para que me aumente la velocidad de mi menu de inicio de windows, que es basicamente cambiar el valor de 400 a 0, como esta en mi codigo, pero si alguien ejecuta mi aplicacion y ya han modificado el registro, osea ya no esta en 400 si no en 0, en pocas palabras necesito que me determine si el menu ya ha sido optimizado oh no, osea al ejecutar mi aplicacion que me determine si el valor 400 ya ha sido modificado a 0, para enviar un mensaje que me diga: "su equipo ya habia sido optimizado", espero que me puedas colaborar, y grcias ante mano.

[[Delphius]]

Empezado por BuRtOn

Saludos, Ok delphius gracias tus aportes fueron de gran ayuda, repase bien el codigo y pude lograr lo que queria, aqui esta el codigo como lo hice:

Código Delphi [-]unit ufrmAumentarVelocidadMenu; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, Registry, StdCtrls; type TForm1 = class(TForm) Button1: TButton; Label1: TLabel; Label2: TLabel; Button2: TButton; procedure Button1Click(Sender: TObject); procedure Button2Click(Sender: TObject); private { Private declarations } public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.Button1Click(Sender: TObject); var reg: TRegistry; begin reg:= TRegistry.Create; reg.RootKey := HKEY_CURRENT_USER; reg.OpenKey('Control Panel\Desktop\', True); reg.WriteString('MenuShowDelay','0'); reg.CloseKey; MessageDlg('Su Menu Ha Sido Optimizado',mtInformation,[mbOK],0); end; procedure TForm1.Button2Click(Sender: TObject); begin Application.Terminate; end; end.


Espero que a alguien le sea util...Bueno delphius ahora va esta pregunta, como hago el condicional, para que me haga lo siguiente:

* Por ejemplo voy a ejecutar la aplicacion para que me aumente la velocidad de mi menu de inicio de windows, que es basicamente cambiar el valor de 400 a 0, como esta en mi codigo, pero si alguien ejecuta mi aplicacion y ya han modificado el registro, osea ya no esta en 400 si no en 0, en pocas palabras necesito que me determine si el menu ya ha sido optimizado oh no, osea al ejecutar mi aplicacion que me determine si el valor 400 ya ha sido modificado a 0, para enviar un mensaje que me diga: "su equipo ya habia sido optimizado", espero que me puedas colaborar, y grcias ante mano.

Una manera de hacerlo es leyendo dicha clave. Para eso en vez de WriteString, debes emplear ReadString. Tu aplición entonces, lo que puede hacer es el OnCreate de tu forma principal, leer el valor del registro y si no es igual a 400, lo cambia.

TRegistry cuenta con los métodos necesarios para leer, guardar, eliminar claves, para saber si existe alguna clave en particular o no... En estos momentos no tengo Delphi a mano, pero estoy seguro de que para leer el valor es ReadString.

El procedimiento es el mismo:
1. Establecer el root
2. Abrir directorios
3. Leer clave
4. Si el valor de clave leida es distinto a '0'
4.1. escribir en clave el valor '0'

Una vez que el TRegistry se ubica en una clave, se puede trabajar con ella. De modo que con solo abrir los directorios para leerlos ya no te haría falta volver a abrirlos para modificarlo. ¿Se entiende?

Sugiero que leas la ayuda sobre TRegistry. En serio, es preferible tomarse unos minutos para leer un poco y comprender mejor que intentar a ciegas.
Recuerda que el registro de Windows es un tanto sencible, una metedita de pata y ¡PUM! estallan pantallitas azules.

Saludos,

[[egostar]]

Tendrias que preguntar por el valor de la clave,

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_CURRENT_USER;
  reg.OpenKey('Control Panel\Desktop\', True);
  if reg.ReadString('MenuShowDelay') = '400' then begin
     reg.WriteString('MenuShowDelay','0');
     MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);
  end
  else MessageDlg('Su Menu ya estaba optimizado',mtInformation,[mbOK],0);
  reg.CloseKey;
end;

Salud OS

[BuRtOn]

Saludos, ok entendi, pero ahora tengo un problema, jejeje, como se si mi registro es string o binary, o lo que sea es que no puedo editar esta clave:

[FONT='Book Antiqua','serif']HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control \SessionManager\MemoryManagement\PrefetchParameters[/font][FONT='Book Antiqua','serif'].
Una vez alli aumentaremos el contenido del valor EnablePrefetcher del predeterminado "3" al recomendado "5".[/font]


[FONT='Book Antiqua','serif']Gracias por su ayuda...muy amables.[/font]

[[Delphius]]

Si te fijas, al costado izquierdo muestra una pequeña imagen que dependiendo del tipo de dato muestra ab, numero binario, etc. Si vez binario es que el valor que se guarda es hexadecimal, binario o decimal; si vez un ab es un string, etc...

La tercera columna, muestra el tipo... es mejor mirar alli

Esto dice la ayuda:

REG_BINARY
Datos binarios sin procesar. La mayor parte de la información de los componentes de hardware se almacena en forma de datos binarios y se presenta en el Editor del Registro en formato hexadecimal.
REG_DWORD
Datos representados por un número de 4 bytes de longitud. Muchos parámetros de controladores de dispositivo y de servicios son de este tipo, y se presentan en el Editor del Registro en formato binario, hexadecimal o decimal.
REG_EXPAND_SZ
Cadena de datos de longitud variable. Este tipo de datos incluye variables que se resuelven cuando un programa o un servicio utiliza los datos.
REG_MULTI_SZ
Una cadena múltiple. Los valores que contienen listas o valores múltiples legibles suelen ser de este tipo. Las entradas están separadas mediante espacios, comas u otras marcas.
REG_SZ
Cadena de texto de longitud fija.
REG_FULL_RESOURCE_DESCRIPTOR
Serie de tablas anidadas, diseñadas para almacenar una lista de recursos para un componente de hardware o un controlador.

Un poquito de F1 no hace mal a nadie. Sino fíjate, ¿porque crees que Schumacher se retiró? ¿Porqué me estaba metiendo demasiado en la F1?

Saludos,

[BuRtOn]

Ok, pero donde consigo ejemplos de como editar cada uno, pues fijate el ejemplo que te di, la clave que no pude editar....Gracias delphius....es que no se como van los parametros paa editar un Integer, o un Boolean o Binary...el string ya lo se...Gracias de nuevo...

[[egostar]]

Hola

Empezado por Delphius

Un poquito de F1 no hace mal a nadie.

Salud OS

[BuRtOn]

OK Ok, solo que no soy bueno para el ingles....pero enserio les agradezco ejemplos, o un hilo donde esten los ejemplos, gracias...

Posdata: Conste que no estoy pidiendo que me hagan lo que quiero...gracias de nuevo..