Programm Pfad ermitteln

[ssach]

hy, ich bins wieder!:)

hab eine Frage zum Pfad eines Programms:

wie kan ich herausfinden wo mein Delphi Programm gespeichert ist und den vollen Pfad in einem String speichern?
kann ich den Pfad dann auch ausserhalb von nur EDITBoxen nützen, zb. in einem Open,Save,... Dialog?

danke

cu :coder:

[Marco Haffner]

Den Programmpfad liefert ParamStr(0) zurück, enthält aber auch den Dateinamen. Den Pfad kannst Du aber mit ExtractFilePath extrahieren.

Delphi-Quellcode:

ExtractFilePath(ParamStr(0))

[1PM]

Könnte auch mit GetCurrentDir gehen!

Gruß 1PM

[Duffy]

Hallo 1PM,
aber nur wenn das Programmverzeichnis = Arbeitsverzeichnis ist.
bye

[Luckie]

Zitat:

Zitat von 1PM

Könnte auch mit GetCurrentDir gehen!

NEEEEIIIIIN! Nicht schon wieder. Mit GetCurrentDir ermittelt man nie nicht den Programmpfad.

[1PM]

Richtig, Damit ermittelt man das Arbeitsverzeichnis!

[Luckie]

Auch das nicht. Die Funktion macht genau das, was auch ihr Name ausdrückt: Sie ermittel das momentane aktuelle Verzeichnis für den Prozess. Und auch das muß nicht das Arbeitsverzeich sein, welches ich bei einer Verknüpfung angeben kann.

[negaH]

GetCurrentDir = SetCurDir('C:\) <> ParamStr(0) = 'D:\'

[Duffy]

Hallo,
falsch

Zitat:

Zitat von negaH

GetCurrentDir = SetCurDir('C:\) <> ParamStr(0) = 'D:\'

richtig

Delphi-Quellcode:

GetCurrentDir = SetCurDir('C:\') <> ParamStr(0) = 'D:\';

vermutlich die Hitze
bye

[negaH]

Jo, das Plaste meiner Keyboardtasten wird langsam flüssig und klebt :)