Super! Hat geklappt! Habe folgendes gemacht, da in der Registry der Programmpfad gespeichert ist:
Delphi-Quellcode:
begin
Reg := TRegistry.Create;
try
//Reg.RootKey := HKEY_LOCAL_MACHINE;
Reg.RootKey := HKEY_CURRENT_USER;
Reg.OpenKey('\Software\Gebietskartei',True);
with Reg do
begin
try
Mainroot:=ReadString('Path');
except end;
end;
finally
Reg.CloseKey;
Reg.Free;
end;
if Mainroot<>'' then SetCurrentDir(Mainroot);
Application.Initialize;
...
... und habe dann zuvor noch folgenden Code eingebaut:
Delphi-Quellcode:
function SetCurrentDir(const ADir: string): Boolean;
begin
Result := SetCurrentDirectory(PChar(ADir));
end;
Er liest nun den korrekten Pfad aus der Registry ein und setzt den Pfad vor der Erstellung aller Formulare. Klasse!
Danke und schönen Abend!
Das ging aber echt fix!