Hi Christian
ich wäre ja froh wenn ich so weit wäre
ich hab hier mal angefangen
Delphi-Quellcode:
Function Reg_Lesen_RYU(input_r : reg1_r) : reg_wert_r;
var
key_hk : HKEY;
begin
try
if (RegOpenKeyEx(input_r.s1, PChar(input_r.s2), 0, KEY_READ, key_hk) = ERROR_SUCCESS) then
begin
Result.s1 := 'offen';
Result.s2 := '';
end
else
begin
Result.s1 := 'zu';
Result.s2 := '';
end;
finally
RegCloseKey(key_hk);
end;
end;
er zeigt mir von 65 Werten 6 nur 'offen' an obwohl die Key vorhanden sind
ich lese nochnicht mal werte
oder hab ich hier was vergessen ?