Ok, ya te voy entendiendo, pero aqui va esto:
1.) "algo" que tipo de variable es ?
no se si quede algo asi :
Código Delphi
[-]
var algo : Integer;algo := Reg.ReadInteger('EnablePrefetcher');Reg.WriteInteger('EnablePrefetcher',5);
pero igual se generaria un error por que estoy manejando un condiconal en el ReadInteger , para saber que esa clave no se ha movido para proceder con la aplicacion y si ya se modifico que me envie el mensaje de information diciendo esta clave ya fue modificada...
bueno hice esto, pero me salio un error:
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 \SessionManager\MemoryManagement\', True);
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;
end;
El error me dice lo siguiente:
Failed to get data for 'EnablePrefetcher'
no se en donde estoy fallando, y no se como ubicar la variable algo que tu me dijiste...en fin gracias Delphius y perdon por las molestias...