Zitat von
Luckie:
Debug deinen Code doch mal bzw. bau eine ordentliche Fehlerbehandlung ein:
Delphi-Quellcode:
uses
Registry;
procedure Foobar;
var
reg: Tregistry;
sl: TStringList;
begin
reg := TRegistry.Create(KEY_READ);
try // try-finally Registry
reg.rootkey:= HKEY_LOCAL_MACHINE;
if reg.OpenKey('
Software\Borland', False)
then
begin
sl := TStringlist.Create;
try // try-finally Stringlist
try // try-except Registry + Stringlist
reg.GetKeyNames(sl);
sl.SaveToFile('
D:\test.txt');
except // try-except Registry + Stringlist
raise Exception.Create(SysErrorMessage(GetLastError));
end;
finally // try-finally Stringlist
sl.Free;
end;
reg.CloseKey;
end
else // raise exception if reg.OpenKey fails
raise Exception.Create(SysErrorMessage(GetLastError));
finally // try-finally reg
reg.Free;
end;
end;
procedure TForm1.Button1Click(Sender: TObject);
begin
try
Foobar;
except
on E:
Exception do
ShowMessage(E.
Message);
end;
end;
Fehler korrigiert. Dummer
DP Debugger/Compiler.
genau so hatte ich das auch schonmal, es werden einfach nur die Unterdinger in .txt gespeichert, aber ich mmöchte ja den Wert eines einzelnen Wertes
versteht ihr ?
schonmal vielen dank für di zahlreichen Hilfen und Antworten
mfg
counter
[edit=Luckie]Zitat-Tags korrigiert. Mfg, Luckie[/edit]