Working Directory

[batrachian]

Hallo,

Ich hoffe mal dass ich das jetzt hier im richtigen Forum poste. :-)
Ich bin seit ein paar Tagen dabei in Delphi zu programmieren, bin jetzt momentan etwas ratlos.

Ich habe innerhalb einer grösseren Applikation einen OpenDialog eingebaut. Dieser scheint alledings das "Current Dir" zu ändern.
Wenn ich jetzt auf die Funktion ExpandFileName zugreife, wird dieses Dir genommen. Allerdings wollte ich den Pfad das aktuelle Arbeitsverzeichniss expanded haben.
Somit wird aus './relativerPfad/MeinFile.x' ->
'C:/Hier zeigt der Open Dialog hin/relativerPfad/MeinFile.x'
Ich wollte allerdings dies haben:
'C:/Hier liegt die Exe/relativerPfad/MeinFile.x'

Ich habe leider nichts dazu gefunden wie man das Arbeitsverzeichniss erhält.

Delphi-Quellcode:

str_CurrentDir := GetCurrentDir; // hier steht der Pfad aus dem Open Dialog drin
str_CompetePathToConfig := ExpandFileName(m_str_PathToConfig); // der expanded name ist falsch
if not FileExists(str_CompetePathToConfig) then
  exit; //

Ich hoffe ich konnte mein Problem einigermaßen klar darstellen.

[Apollonius]

GetCurrentDir liefert das Arbeitsverzeichnis.
Den vollen Namen der Programmdatei erhältst du mit ParamStr(0); mit ExtractFilePath kannst du daraus den Pfad extrahieren.

[batrachian]

Ah super,

das ParamStr(0) war genau das was ich gesucht habe.
Hier die etwas ... naja ... quick and dirty lösung:

Delphi-Quellcode:

str_TempDir := GetCurrentDir;
  str_CurrentWorkingDir := ExtractFilePath(ParamStr(0));
  SetCurrentDirectory(PChar(str_CurrentWorkingDir));
  str_CompetePathToConfig := ExpandFileName(m_str_PathToConfig);
  SetCurrentDirectory(PChar(GetCurrentDir));

Danke

[Apollonius]

Warum so kompliziert? Wenn du deine Datei in der Form RelativerPfad\Name angibst, reicht ExtractFilePath(ParamStr(0)) + DateiPfad aus.

[batrachian]

Ich wollte damit auch gleich konstrukte auflösen wie:
relativer Pfad := './../../irgendwas/Datei.x'

Soweit ich das gelesen hab nimmt mir das ExpandFileName auch gleich ab.

*winke*