[martonbarbosa]

nlsgarcia! disculpame...

es que me olvide de incluir la funcion GetKeyValue...

Código Delphi [-]
function GetKeyValue(const aRootKey: HKEY; const aKey, aName: string): string;
var
   rd: TRegDataInfo;
   size: Cardinal;
   st: string;

begin
   with TRegistry.Create do
   try

      RootKey:= aRootKey;

      st := '';

      if OpenKey(aKey, False) then
      begin
         if GetDataInfo(aName, rd) then
         case rd.RegData of
            rdUnknown : Result := '';
            rdInteger : Result := IntToStr(ReadInteger(aName));
            rdString , rdExpandString : Result := ReadString(aName);
            rdBinary : begin
                          size:= GetDataSize(aName);
                          SetLength(st, size);
                          ReadBinaryData(aName, PChar(st)^, size);
                          Result:= st;
                       end;
         end;
         CloseKey;
      end

   finally
      Free;
   end;
end;

ahora si anda... jajaja bueno muchisimas gracias!

ahora solo me queda adaptarlo a mis necesidades!

Desde ya muchisimas gracias.
los mantengo al tanto!

Salu2
M@rton