Standardpfad Variable ?

[Smokey]

Hu, bin neu hier und hoffe ich hab das richtige forum erwischt.

Ich habe folgendes Problem :

Ich habe auf meiner Form Pictureboxen (TPicture), in die ich, aus immer dem selben Ordner, Bilder lade mit:

image_4.Picture.LoadFromFile('pic/' + edit_image4.Text); der Ordner "Pic" ist also ein Unterordner in meinem Programmfolder.

Problem ist nun, wenn ich über einen Öffnendialog eine Datei aus einem beliebigen anderen Ordner auswähle, funktioniert der obenstehende Aufruf nicht mehr, weil der Pfad der ausgewählten Datei als neuer Standardpfad genommen wird.

Meine Frage ist nun : in welcher Variable steht in Delphi der aktuelle Ordner ?

P.S: ich weiss, dass ich den Code in sofern ändern kann, dass ich über eine Variable mit ExtractFilePath(ParamStr(0)) den Ordner festlegen kann. Es geht mir aber interessehalber darum zu erfahren in welcher Variable der aktuelle Standardpfad in Delphi abgelegt wird

[rebugger]

Was ist bei dir der "StandardPfad" ???
ExtractFilePath(ParamStr(0)) <= gibt dir das Verzeichnis zurück, in dem dein Programm liegt !

[choose]

Hallo Smokey,

Willkommen bei Delphi Praxis! Wenn ich Dich richtig verstehe, interessiert Dich das Arbeitsverzeichnis und die Dinge "'drum herum". Nutze die Suche des Forums und probiere mal [df]Arbeitsverzeichnis[/df].

Zitat von rebugger:

ExtractFilePath(ParamStr(0)) <= gibt dir das Verzeichnis zurück, in dem dein Programm liegt !

Das stimmt nicht ganz: Es wird das Arbeitsverzeichnis zurückgegeben. Wann immer Du aus der Shell ein Programm "von einem anderen Ort aus" ausführst, verweist dieses Konstrukt nicht länger auf der Binary, das ausgeführt wird.

[XeRo]

Zitat von rebugger:

ExtractFilePath(ParamStr(0)) <= gibt dir das Verzeichnis zurück, in dem dein Programm liegt !

Aber auch:
image_4.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'pic/' + edit_image4.Text);

[choose]

Zitat von XeRo:

Aber auch:
image_4.Picture.LoadFromFile(ExtractFilePath(Application.ExeName)+'pic/' + edit_image4.Text);

Stimmt

Delphi-Quellcode:

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

[MathiasSimmack]

Zitat von choose:

Zitat von rebugger:

ExtractFilePath(ParamStr(0)) <= gibt dir das Verzeichnis zurück, in dem dein Programm liegt !

Das stimmt nicht ganz: Es wird das Arbeitsverzeichnis zurückgegeben.

Natürlich hat rebugger recht! Mit "ExtractFilePath(paramstr(0))" wird das Verzeichnis des Programms zurückgegeben. Egal von wo. Was du, @choose, mit "Arbeitsverzeichnis" meinst, erhält man bspw. mit
ShowMessage(GetCurrentDir); Das muss nicht zwangsläufig mit dem Ordner der Exe übereinstimmen. Und warum das so ist, hat Smokey ja selbst schon geschrieben:

Zitat:

Problem ist nun, wenn ich über einen Öffnendialog eine Datei aus einem beliebigen anderen Ordner auswähle, funktioniert der obenstehende Aufruf nicht mehr, weil der Pfad der ausgewählten Datei als neuer Standardpfad genommen wird.

[choose]

Zitat von MathiasSimmack:

Natürlich hat rebugger recht! Mit "ExtractFilePath(paramstr(0))" wird das Verzeichnis des Programms zurückgegeben. Egal von wo.

Du hast Recht, Mathias. GetParamStr(0) wird auf GetModuleFileName gemappt und gibt folglich den "full path and filename for the executable file" zurück.

Entschuldige bitte, rebugger.

[Smokey]

Jo danke schonmal!

ShowMessage(GetCurrentDir); war schonmal das, was ich haben wollte.
Kann man den Currentdir in Delphi auch irgendwie selber setzen/verändern?
Wenn nicht, auch net schlimm, hauptsache ich weiss schonmal wie ich drankomme.

Delphi ist noch etwas neu für mich

[Smokey]

okidoki

Delphi-Quellcode:

SetCurrentDir(ExtractFilePath(paramstr(0))); 
ChDir('..'); 
szDummy := GetCurrentDir;

damit sind alle meine fragen beantwortet... bin noch zu englischfixiert und auf suchwörter wie Arbeitsverzeichnis nicht gekommen

[Christian Seehase]

Moin Smokey,

aber denk dran:
Sich auf das Arbeitsverzeichnis zu verlassen, ist eine der "schönsten" Fehlerquellen, die man sich einhandeln kann.