Editar Regedit de windows con Delphi 7.0

[BuRtOn]

Saludos Delphius, mira modifique el codigo, con lo que me dijiste y aun me ejecuta ese error, y si tenias mucha razon, mire el regedit, y tenia creados unos registros, pero mira dime que erro vez:

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);
var reg: TRegistry;
var valor :integer;
begin
  valor := 3;
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\MemoryManagement\PrefetchParameters ', False);
  if reg.ReadInteger('EnablePrefetcher') = valor then
    Begin
      reg.WriteInteger('EnablePrefetcher',5);
      MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);
    end
  else   MessageDlg('Su Menu ya estaba optimizado',mtWarning,[mbOK],0);
         reg.CloseKey;
         reg.Free;
end;

Gracias por tu tiempo...

[BuRtOn]

Ok, estoy analizando bien, y pues no se que tipo de variable es valor, como tu lo colocas...yo coloque valor como Integer, para poder colocarlo en mi condicional, para que me determine si lo que hay en esa clave de registro es igual a 3 me ejecute mi aplicacion y la cambie a 5, de lo controraio emite el mensaje...pero estoy aun confundido con tu variable en el ReadInteger, por que si coloco esa variable como me quedaria el condicional??, Y de nuevo mil gracias delphius---

[BuRtOn]

Ha tengo en cuenta que habia dejado un espacio al final de :

Código Delphi [-]
 reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\MemoryManagement\PrefetchParameters ', False);

ya lo corregi y nada me sigue dando el mismo error....

[[Delphius]]

Pues en tu último código veo que te sobre un espacio al final y te falta en otra parte. Por lo demás debería funcionarte.

La variable valor tuya te sobra. Con hacer

if Reg.ReadInteger(...) = 3
then ....

Debería funcionarte, si notas. Valor no lo usas para nada más.

Lo que yo expongo es un ejemplo, y al igual que tu, mi variable valor es integer. El método ReadInteger devuelve un integer. Lo único que hago yo es guardar el resultado en la variable y lo muestro.

Es lo mismo hacer esto:

Código Delphi [-]
valor := Reg.ReadInteger(....); // guardar el valor leído
if valor = 3
   then ...

Que esto:

Código Delphi [-]
if Reg.ReadInteger(...) = 3
  then ....

En el primer caso lo único que hago es previamente guardar el valor. En el segundo directamente leo, no me interesa tener en una variable el valor leído.

¿Se entiende la diferencia?

Saludos,

[BuRtOn]

Jajajajaja, ya Delphius te entendi perfectamente, y ya me salio, sabes que me estaba pasando, jajajaja Dios casi me mato la cabeza por eso, mira el codigo que yo tenia antes.

Este codigo es el que esta mal.

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);var reg: TRegistry;var valor :integer; ---> Estas variables sobranbegin  valor := 3;  reg:= TRegistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\MemoryManagement\PrefetchParameters ', False);  if reg.ReadInteger('EnablePrefetcher') = valor then    Begin      reg.WriteInteger('EnablePrefetcher',5);      MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);    end  else   MessageDlg('Su Menu ya estaba optimizado',mtWarning,[mbOK],0);         reg.CloseKey;         reg.Free;end;

y ahora mira el que esta bien:

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);
var reg: TRegistry;
begin
  reg:= TRegistry.Create;
  reg.RootKey := HKEY_LOCAL_MACHINE;
  reg.OpenKey('SYSTEM\CurrentControlSet\Control\Session Manager\Memory Management\PrefetchParameters', False);
  if reg.ReadInteger('EnablePrefetcher') = 3 then
    Begin
      reg.WriteInteger('EnablePrefetcher',5);
      MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);
    end
  else   MessageDlg('Su Menu ya estaba optimizado',mtWarning,[mbOK],0);
         reg.CloseKey;
         reg.Free;
end;

compara el codigo Delphius, y trata de descubrir mi error, jajajaja, Dios...pero enserio que me ayudaste muchisimo....espero que notes cual fue el error, jejeje....Gracias delphius..

[[Delphius]]

Pues claro que lo vi. Duerme un poquito, y saca el dedo de la barra espaciadora de vez de cuando y presiona en otras

Te agradecería que antes de copiar aqui, leas de nuevo el código. Asi te evitas mas golpes ¿si?

Por cierto, ¡no escribas horizontal! Cuando copies el código desde Delphi hacia aquí haz esto:

1. Abre notepad, pégalo.
2. Borra todos los espacios demás
3. Usa enter para ir a la siguiente línea.
4. Copiar y pegar en post.

La verdad es que no se como haces para copiar o pegar código de esa manera. ¿usas algún editor en particular? ¿Identas tu código? No es crítica es que... hace más dificil la lectura.

Saludos,

[BuRtOn]

Saludos Delphius, no te entendi esa parte de:

Código PHP:

Te agradecería que antes de copiar aqui, leas de nuevo el código. Asi te evitas mas golpes ¿si? 


es que me quedo algo mal ???, por que ya lo ejecute y me salio correctamente.

y por otro lado, queria preguntarte que si es mejor dejar en False el Opnekey, pues tu me dijiste que si no existia el registro y el OpenKey estaba en True, lo creaba, en cambio si esta en False, lo deja tal como esta...si es asi, prefiero en False...por ahora....


Bueno Delphius Gracias...

[[Delphius]]

Te lo decía porque los pequeños errores que tienes son de despiste. Nada mas era que revisaras el código nuevamente antes de pegar.

Una segunda lectura puede ayudar a ver si no se nos escapa algo y evitar estar a los golpecitos despues de descubrir que el error fue por una coma, un espacio, un end... ¿se entiende?

Con respecto a si debe ser True o False, lo mejor que te puedo decir es un gran depende. En algunas ocasiones es deseable que sea True, y en otras no.

Si tienes la certeza de que el directorio que abres siempre estará un False y listo, pero si se desea disponer de una clave de registro determinada un True puede ser conveniente. De cualquier manera la clase TRegistry posee métodos para comprobar si existe una clave o no.

Saludos,