Ok habs in das hier geändert:
Delphi-Quellcode:
procedure TForm1.saveRegistryKey();
var regist: TRegistry;
begin
regist := TRegistry.Create;
try
regist.RootKey:=HKEY_CURRENT_USER;
if regist.KeyExists(lbledtpath.Text) then ShowMessage('Schlüssel existiert');
regist.OpenKey(lbledtpath.Text, False);
if regist.SaveKey(lbledtpath.Text,lbledtsavepath.Text+'\reg') then
ShowMessage('Key "' + lbledtpath.Text + '" wurde erfolgreich in "'+lbledtsavepath.Text+'" gespeichert!');
regist.CloseKey;
finally
regist.free;
end;
end;
Und es kommt zwar die Meldung das der Key existiert aber nicht die zweite Nachricht. Also save scheint irgendwie nicht zu gehen...kanns das irgendwelche Rechteprobleme geben?
Hab gerade mal noch das(KEY_ALL_ACCESS) angefügt... hilft nichts. Hab auch mal das openkey weg gelassen. Wird immer nur eine leere Datei erstellt.