Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Delphi Pfad eines gestarteten Programms ermitteln (https://www.delphipraxis.net/44436-pfad-eines-gestarteten-programms-ermitteln.html)

FBrust 19. Apr 2005 15:29


Pfad eines gestarteten Programms ermitteln
 
Hallo,

wie kann ich denn ohne Registry-Eintrag den Pfad zu einem gestarteten Programm ermitteln?

Ein Beispiel: Wenn mein Programm C:\Programme\Test\test.EXE heisst, erhalte ich, wenn ich es z. B. von der Kommandozeile von Laufwerk H:\ aus starte, mit GetDir 'H:\' als Ergebnis (ebenso mit ExpandFileName, da kommt 'H:\Test.exe' raus).

Ich möchte aber erreichen, dass ich immer das korrekte Verzeichnis erhalte, in dem die Datei Test.exe gespeichert ist (in diesem Fall 'C:\Programme\Test').


Kann man das irgendwie realisieren?



Gruß

Frank

Luckie 19. Apr 2005 15:32

Re: Pfad eines gestarteten Programms ermitteln
 
GHuck mal in der Hilfe unter Delphi-Referenz durchsuchenParamStr nach, ich gehe mal davon aus, dass du dein eigenes Programm meinst.

arbu man 19. Apr 2005 15:34

Re: Pfad eines gestarteten Programms ermitteln
 
extractfilepath(application.exename); liefert den pfad zurück

Stevie 19. Apr 2005 15:36

Re: Pfad eines gestarteten Programms ermitteln
 
Zitat:

Zitat von arbu man
extractfilepath(application.exename); liefert den pfad zurück

Aber nur, wenn du ein VCL-Programm hast, wo die Unit Forms eingebunden ist!

Tyrael Y. 19. Apr 2005 15:37

Re: Pfad eines gestarteten Programms ermitteln
 
Delphi-Quellcode:
PfadZurExeDateiDeinerAnwendung = IncludeTrailingPathDelimiter(ExtractFilePath(ParamStr(0)));

FBrust 19. Apr 2005 15:47

Re: Pfad eines gestarteten Programms ermitteln
 
Hallo,

danke für Eure Antworten, ParamStr war die Lösung :thumb:



Gruß

Frank


Alle Zeitangaben in WEZ +1. Es ist jetzt 11:53 Uhr.

Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz