Club Delphi  
    FTP   CCD     Buscar   Trucos   Trabajo   Foros

Retroceder   Foros Club Delphi > Principal > Varios
Registrarse FAQ Miembros Calendario Guía de estilo Buscar Temas de Hoy Marcar Foros Como Leídos

Grupo de Teaming del ClubDelphi

Respuesta
 
Herramientas Buscar en Tema Desplegado
  #1  
Antiguo 04-12-2010
maxinitto maxinitto is offline
Miembro
 
Registrado: may 2010
Posts: 45
Poder: 0
maxinitto Va por buen camino
Registro de windows con delphi

Hola:

El caso es que llevo ya 2 semanas buscando por google la manera de guardar en el registro, un valor el cual no se me guarda como yo quiero, bueno...
Tengo este valor "1C 00 00 00 41 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 00 00 00" y el tipo de clave es "REG_BINARY" y su nombre es "ShellState", ubicada en "HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer", ¿por que diablos al introducir ese valor los numeros "00" me los elimina delphi? uso este codigo sacado de una pagina para guardar valores en el registro.

Código Delphi [-]
procedure SetRegistryData(RootKey: HKEY; Key, Value: string;
  RegDataType: TRegDataType; Data: variant);
var
  Reg: TRegistry;
  s: string;
begin
  Reg := TRegistry.Create(KEY_WRITE);
  try
    Reg.RootKey := RootKey;
    if Reg.OpenKey(Key, True) then begin
      try
        if RegDataType = rdUnknown then
          RegDataType := Reg.GetDataType(Value);
        if RegDataType = rdString then
          Reg.WriteString(Value, Data)
        else if RegDataType = rdExpandString then
          Reg.WriteExpandString(Value, Data)
        else if RegDataType = rdInteger then
          Reg.WriteInteger(Value, Data)
        else if RegDataType = rdBinary then begin
          s := Data;
          Reg.WriteBinaryData(Value + hola, PChar(s)^, Length(s));
        end else
          raise Exception.Create(SysErrorMessage(ERROR_CANTWRITE));
      except
        Reg.CloseKey;
        raise;
      end;
      Reg.CloseKey;
    end else
      raise Exception.Create(SysErrorMessage(GetLastError));
  finally
    Reg.Free;
  end;
end;

Y yo hago esto:

Código Delphi [-]
SetRegistryData(HKEY_CURRENT_USER, 'Software\Microsoft\Windows\CurrentVersion\Explorer\', 'ShellState 2', rdBinary, ConvertirHexToString('1C 00 00 00 41 08 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 00 09 00 00 00'));

y no queda ni una maldito cero y al no quedar ninguna no funciona lo que quiero hacer (algo simple modificar la forma de abrir los archivos en windows, si con 1 click o 2 clicks) xdddd aver si alguien me echa un cable llevo ya 2 semanas erre que te erre xd

Gracias de antemano
Responder Con Cita
  #2  
Antiguo 04-12-2010
maxinitto maxinitto is offline
Miembro
 
Registrado: may 2010
Posts: 45
Poder: 0
maxinitto Va por buen camino
me respondo yo solo xd ya encontre la manera:

Código Delphi [-]
SetRegistryData(HKEY_CURRENT_USER,'Software\Microsoft\Windows\CurrentVersion\Explorer\','ShellState'  ,rdBinary,#$1C#$00#$00#$00#$41#$08#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$00#$  00#$00#$09#$00#$00#$00);

habia que añadir los caracteres
Código:
#$
para que te guarde el valor tal y como tu lo metes lo posteo por si a alguien le sucede algo similar, saludos
Responder Con Cita
  #3  
Antiguo 11-01-2011
Avatar de casacham
casacham casacham is offline
Miembro
 
Registrado: abr 2006
Ubicación: Cordoba->Argentina. Arboleas->Almeria->España
Posts: 184
Poder: 18
casacham Va por buen camino
Buen Aporte

Es un buen aporte. Gracias!!
__________________
La vida no trata de encontrarse a uno mismo, sino de crearse a uno mismo.
Tanto si piensas que puedes como si no, estarás en lo cierto
Responder Con Cita
Respuesta


Herramientas Buscar en Tema
Buscar en Tema:

Búsqueda Avanzada
Desplegado

Normas de Publicación
no Puedes crear nuevos temas
no Puedes responder a temas
no Puedes adjuntar archivos
no Puedes editar tus mensajes

El código vB está habilitado
Las caritas están habilitado
Código [IMG] está habilitado
Código HTML está deshabilitado
Saltar a Foro

Temas Similares
Tema Autor Foro Respuestas Último mensaje
Registro de Windows Khronos Varios 2 08-12-2008 00:23:28
Como modificar el registro de windows xp mediante delphi 7 kurono Varios 11 05-11-2007 16:24:24
registro de windows JULIPO Varios 4 26-07-2007 09:17:01
Uso de registro de Windows Alcolea Windows 3 05-06-2006 22:47:35
Registro de Windows Periyo Varios 3 08-05-2003 18:51:51


La franja horaria es GMT +2. Ahora son las 14:09:11.


Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi
Copyright 1996-2007 Club Delphi