Hallo zusammen,
Diese Lösung von TurboPascal erscheint mir sehr C-tricky, weil er sich das
reg:=TRegistry.Create;
gespart hat.
Delphi-Quellcode:
with TRegistry.Create do
try
RootKey := HKEY_LOCAL_USER;
OpenKey('Software\DeveloperName\AppName\', True);
WriteString('Firma', Firma);
WriteString('S/NR', Serial);
CloseKey;
Result := True;
finally
Free;
end;
Abgesehen davon, daß ich "with" genauso schätze wie "goto", wieso funktioniert das eigentlich?
Gruß
K-H