hex wert aus der reg lesen...

[agm65]

guten abend leute....
also ich habe hier nen code der 1a strings aus der reg ließt, den wollte ich jetzt so modifizieren , daß er auch hex werte ließt:

Code:

function GetValueFromReg(Root: HKEY; Key, Name: string): string;
var
reg: TRegistry;
begin
result := '';
reg := TRegistry.Create(KEY_READ);
if Assigned(reg) then
begin
try
reg.RootKey := Root;
if reg.OpenKey(Key, False) then
begin
result := reg.ReadString(Name);
reg.CloseKey;
end;
finally
FreeAndNil(reg);
end;
end;
end;

hat jemand einen vorschlag wie mir diese funktion das auslesen von normalen strings und hex "strings" ermöglicht ?

danke cu agm65

[Bernhard Geyer]

Was meinst Du mit Hex-Wert?
Meinst Du einen Hex-Codierten String oder einen Binär-Wert?

Falls es ein Binär-Wert ist, so könntest Du die Funktion RegReadBinary aus der JclRegistry verwenden (Jedi Code Library)

[agm65]

beides wäre hilfreich !
denn das weiß ich selber nicht so genau !

[Christian Seehase]

Moin agm,

Zitat von agm65:

denn das weiß ich selber nicht so genau !

schau Dir doch dazu mal TRegistry.GetDataType an.

[agm65]

es ist mir nicht gelungen meinen oben angegebenen source so umzuschreiben , daß er hex einträge bzw binary werte ließt ...kann mir da mal einer helfen ?

[Christian Seehase]

Moin agm,

mal ein kleines Beispiel (nur der Kern):

Delphi-Quellcode:

      iSize := r.GetDataSize('filterdata');
      if iSize = -1 then exit;
      sResult := StringOfChar(#00,iSize);
      r.ReadBinaryData('filterdata',sResult[1],iSize);

wobei iSize ein integer, und sResult ein String ist.