Zitat von
HomerGER:
versuche es mal so [...]
Nein, versuche es lieber so:
Delphi-Quellcode:
regist := TRegistry.Create;
// was soll der Quark mit ()?
if(regist <>
nil)
then
try
regist.RootKey := HKEY_CURRENT_USER
// "OpenKey" ist eine Funktion!
// Niemand garantiert, dass der Schlüssel geöffnet oder
// erzeugt werden kann. Darum wäre es zweckmäßig, den
// Code davon abhängig zu machen, das "OpenKey"
// erfolgreich war (= true)
if(regist.OpenKey('
bla bla',true))
then
try
// im Fehlerfall löst "WriteString" eine Exception
// aus (s. Delphi-Hilfe)
regist.WriteString('
bla','
bla');
// durch diesen try/finally-Block wird wenigstens
// der Reg-Schlüssel zugemacht
finally
regist.CloseKey;
end;
finally
regist.Free;
end;