Zitat von
thomas2009:
Hallo
ich beantrage Schlüsseln und Werte folgendes :
Delphi-Quellcode:
var regist: TRegistry;
begin
regist:=TRegistry.Create;
regist.RootKey:=HKEY_CURRENT_USER;
regist.openkey('SOFTWARE\myprogram\test',true);
regist.writestring('information','My name');
regist.free;
end;
Ich hoffe das ist nur Demo-Code und wird in keiner Produktivumgebung verwendet. Dort fehlt jegliche Fehlerbehandlungen und der Ressourcenschutzblock:
Delphi-Quellcode:
var
regist: TRegistry;
begin
regist:=TRegistry.Create;
try
regist.RootKey:=HKEY_CURRENT_USER;
if regist.openkey('
SOFTWARE\myprogram\test',true)
then // Fehlerbehandlung
begin
try // WriteString wirft eine Exception, wenn die Methode fehlschlägt, deswegen try-except
regist.writestring('
information','
My name');
regist.CloseKey;
// Schlüssel schliessen
except
regist.CloseKey;
// Sicherstellen, dass der Schlüssel auch im Fehlerfall geschlossen wird
raise;
// Exception nach oben weiterreichen
end;
end;
finaly
// Ressourcenschutzblock
regist.free;
end;
end;