Ver Mensaje Individual
  #1  
Antiguo 06-06-2007
Ledian_Fdez Ledian_Fdez is offline
Miembro
 
Registrado: jun 2006
Ubicación: Ciudad Habana, Cuba
Posts: 242
Reputación: 18
Ledian_Fdez Va por buen camino
Angry Registro con valor BINARIO !!!

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject);
var  
 Registro : TRegistry;
begin 
 try
   Registro := TRegistry.Create;
   Registro.RootKey := HKEY_LOCAL_MACHINE;
   if Registro.OpenKey('SOFTWARE\Cedipad\Claves\Caper', False) then
     begin
      if not(Registro.ValueExists('reg')) then
         Registro.WriteBinaryData('reg', ?, ?);
     end
   CloseKey; 
 finally
   Registro.Free;
 end;
end;


Amigos la duda esta en los parametros de entrada de la funcion
WriteBinaryData(const Name: String; var Buffer; BufSize: Integer);

Suponga que abrimos el registro de Windows y buscamos en KEY_LOCAL_MACHINE\SOFTWARE\Cedipad\Claves\Caper y ahi creo un valor binario con el nombre de reg. ¿Que valores debo poner en tal funcion?

Grasias de antemano
y ruego que me ayuden.

De todas formas les reitero las grasias.

Salu2 Ledian
Responder Con Cita