lesen, setzen etc kein problem, aber: <br>
Der Key wird gefunden<br>
Die Datei wird angelegt<br>
und ist leer!
kennt jemand das problem
<PRE>
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.KeyExists('\Software\Borland\Delphi\7.0\Selbst definierte Farben') then ShowMessage('Key ok');
// cave savekey öffnet mit Reg.Access:=KEY_ALL_ACCESS;
if Reg.SaveKey('\Software\Borland\Delphi\7.0\Selbst definierte Farben','E:\Entwicklung\Projekte\RegTest\d7RegT.re g') then ShowMessage('done');
finally
Reg.Free;
end;
end;
</PRE>
danke,bernhard
Der Key wird gefunden<br>
Die Datei wird angelegt<br>
und ist leer!
kennt jemand das problem
<PRE>
procedure TForm1.SpeedButton2Click(Sender: TObject);
var
Reg: TRegistry;
begin
Reg:=TRegistry.Create;
try
Reg.RootKey := HKEY_CURRENT_USER;
if Reg.KeyExists('\Software\Borland\Delphi\7.0\Selbst definierte Farben') then ShowMessage('Key ok');
// cave savekey öffnet mit Reg.Access:=KEY_ALL_ACCESS;
if Reg.SaveKey('\Software\Borland\Delphi\7.0\Selbst definierte Farben','E:\Entwicklung\Projekte\RegTest\d7RegT.re g') then ShowMessage('done');
finally
Reg.Free;
end;
end;
</PRE>
danke,bernhard
Comment