Hallo
ersmal ein gesundes neues Jahr
komme hier nicht weiter
hier mein code
Delphi-Quellcode:
var
i: Integer;
sl: TStringlist;
begin
sl := TStringlist.Create;
With TRegistry.Create do begin
RootKey := HKEY_LOCAL_MACHINE;
If OpenKey('\SOFTWARE\COMPANY\EXAMPLE\', false) then begin
GetValueNames(sl);
For i := 0 to sl.count -1 do begin
Application.ProcessMessages;
memo1.Lines.add(sl[i]);
end;
CloseKey;
end;
free;
end;
sl.free;
end;
soweit funzt es auch... bekomme aber ReadRegBinary mit schleife nicht hin
am ende sollte es so im memo oder richedit stehen
example
"10:C75CE85EFD893B746627F867B2A21B12"=hex:01,0C,26 ,59,F6,5C,58,E6,05,63,06,C9,18,97,8F,E0
"10:4EA104BDDF325A93A56916603B790C40"=hex:01,1F,A3 ,B9,83,BD,1C,BD,82,32,EF,B1,99,5D,4E,D8
"10:EA9416075295DAEE39CF8CD30AE5DFA4"=hex:01,3F,C4 ,AB,C2,5A,0E,4F,C6,89,8F,CE,BC,
DF,FA,6C
"10:159A58962044AF3D04BDEC2E7813EFFC"=hex:01,AF,38 ,FD,
EC,3F,AE,CF,71,41,D3,85,7E,62,A3,26
"10:5437760C404D1327BC920C698E482CFB"=hex:01,F5,39 ,A8,8C,AF,C8,83,A1,3C,82,23,12,24,4F,41
"10:623DE6D6AC2798E3C606C2F80A3AA1BA"=hex:02,1B,7F ,0E,A5,07,C4,6F,5B,4B,7F,13,71,38,CD,8C
"10:A07A5DB20D75F1268758D9B88E9DA3F8"=hex:02,20,3C ,F2,7F,8B,AA,8D,9D,36,04,C3,D7,26,85,F6
jemand von euch ne idee ?