Ver Mensaje Individual
  #23  
Antiguo 16-08-2008
Avatar de BuRtOn
BuRtOn BuRtOn is offline
Miembro
 
Registrado: ene 2008
Ubicación: Bucaramanga
Posts: 215
Reputación: 19
BuRtOn Va por buen camino
Saludos Delphius, haber si te entiendo, seria algo asi:

Código Delphi [-]
procedure TForm1.btnOptimizar3Click(Sender: TObject);var reg: TRegistry;var Valor : String;begin  reg:= TRegistry.Create;  reg.RootKey := HKEY_LOCAL_MACHINE;  reg.OpenKey('SYSTEM\CurrentControlSet\Control \SessionManager\MemoryManagement\', True);  if reg.ReadBinaryData('EnablePrefetcher'PChar('3')^,length('3')) = '3'then    Begin      reg.WriteBinaryData('EnablePrefetcher'PChar('5')^,length('5'));     MessageDlg('Su Menu ha sido optimizado',mtInformation,[mbOK],0);    end  else   MessageDlg('Su Menu ya estaba optimizado',mtWarning,[mbOK],0);         reg.CloseKey;end;Lo que esta en negrita azul son los valores que tiene por defecto el registro que es 3 y necesito cambiarlo a 5, si estara bien asi el procedimiento ?, teniendo en cuenta que en la linea de ReadBinaryData tengo que hacer un condicional If para verificar que ese registro no este modificado, para proceder a modificarlo....y de nuevo gracias Delphius, y te agradeceria saber de donde aprendiste tanto de registros en delphi....
Responder Con Cita