namen der exe datei herausfinden

[gangs-taas]

hey,
gibt es eine möglichkeite den namen der exe datei herauszufinden ?

also ich möchte nen programm machen was dies mach :

ShowMessage('der name ist' + name der exe datei (die ich ja gerade ausführe));

d.h. solang man die datei nicht umbenennt ist der name 'Projekt1' ect.

wisst ihr was ich mein ?

[mkinzler]

ParamStr(0) oder Application.ExeName

[gangs-taas]

vielen dank

[Oldy]

Der vollständigheit halber setze ich das noch untendrunter:
Mit

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)

Kannst du den Dateipfad herausfinden.
Ist das Programm im ordner C:\Programm und das programm heißt Prog.exe dann gibt die Zeile

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)+'\'+Application.ExeName

C:\Programm\Prog.exe

[himitsu]

Zitat:

Zitat von Oldy

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)+'\'+Application.ExeName

C:\Programm\Prog.exe

@Oldy: hast du es mal ausprobiert?

Delphi-Quellcode:

ExtractFilePath(Application.ExeName) + ExtractFileName(Application.ExeName)

ExtractFileDir(Application.ExeName) + '\' + ExtractFileName(Application.ExeName)

IncludeTrailingBackslash(ExtractFileDir(Application.ExeName)) + ExtractFileName(Application.ExeName)

[kroimon]

Und um es sauber zu machen, statt Backslash lieber den PathDelimiter verwenden:

Delphi-Quellcode:

ExtractFileDir(Application.ExeName) + PathDelim + ExtractFileName(Application.ExeName)

IncludeTrailingPathDelimiter(ExtractFileDir(Application.ExeName)) + ExtractFileName(Application.ExeName)

[SirThornberry]

Habt ihr lange Weile?

Delphi-Quellcode:

ExtractFileDir(Application.ExeName) + PathDelim + ExtractFileName(Application.ExeName)

ergibt das gleiche wie

Delphi-Quellcode:

Application.ExeName

Also warum erst den Pfad extrahieren, dann den Dateinamen extrahieren und das ganze am Ende wieder zusammensetzen anstelle gleich das zusammengesetzte zu nehmen?

[himitsu]

*voll gelangweilt sei*

nja, eigentlich ging es nur darum:

Zitat:

Zitat von Oldy

Ist das Programm im ordner C:\Programm und das programm heißt Prog.exe dann gibt die Zeile

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)+'\'+Application.ExeName

C:\Programm\Prog.exe

was ja nun garnicht stimmt ... beim Nachfolgenden kam zumindestens das richtige Ergenis raus, auch wenn etwas umständlicher :roll:

[Muetze1]

ExtractFilePath() gibt immer ein abschliessenden PathDelimiter mit zurück, ExtractFileDir() hingegen immer keinen.

[Luckie]

Zitat:

Zitat von Muetze1

ExtractFilePath() gibt immer ein abschliessenden PathDelimiter mit zurück, ExtractFileDir() hingegen immer keinen.

IOrgendwie ist das nicht so ganz konsistent in der VCL. Deswegen habe ich mir angewöhnt sicher zustellen, dass der eventuell vorhandene abschliessende backslash abgeschnitten wird mit den entsprechenden Funktionen.