Bin leider jetzt erst dazu gekommen weiter zu probieren. Dabei ist mir aufgefallen, dass meine folgende Try-Catch Anweisung nicht richtig funktioniert. Anstatt bei fehlendem Wert mit Catch einen Standard DBPfad zu hinterlegen bleibt die Variable DBPfad leer.
Delphi-Quellcode:
try
dbpfad:=reg.ReadString('DBPath');
except
dbpfad:='c:\ProgramData\';
end;
Wenn ich die Variable DBPfad manuell danach auf ProgramData ändere funktioniert das erstellen des Ordners und kopieren der Datenbank.
Der Schlüssel DBPath besteht nicht in der Registry. Weiß jemand wo hier mein Fehler liegt?