Bis jetzt habe ich das schon so:
Delphi-Quellcode:
procedure TDataModule2.Create(Sender: TObject);
begin
ExtractFilePath(ParamStr(0));
ADOConnection1.ConnectionString:=ExtractFilePath(ParamStr(0));
end;
Ich glaube so in der Art müsste es gehen. Aber jetzt öffnet sich die Anwendung nicht mehr.