Einzelnen Beitrag anzeigen

Chaoten-Joe

Registriert seit: 11. Mär 2007
Ort: Werl
41 Beiträge
 
Turbo Delphi für Win32
 
#6

Re: Problem beim Starten des Programms via Datenverknüpfung

  Alt 30. Mai 2010, 22:52
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!
Christian Becker
  Mit Zitat antworten Zitat