Programmname ermitteln

[Andromeda]

Hallo,

ich möchte den Programmnamen ermitteln, also wenn der Pfad meines Programms beispielsweise so lautet:
C:\Programme\MeineAnwendungen\Test.exe
möchte ich als Ergebnis "Test" erhalten.

Ich mache das jetzt so:
Programmname := Copy(ExtractFileName(Application.ExeName),1,length(ExtractFileName(Application.ExeName))-4);

Das funktioniert zwar, aber ich habe das Gefühle, das geht viel einfacher.

Ich wäre sehr dankbar, wenn mir jemand sagen könnte, wie

Danke
Andromeda

[Mathias]

Das sollte dir weiterhelfen:

http://www.delphibasics.co.uk/RTL.asp?N ... ctFileName

Anstelle von -4 Length(ExtractFileExt(xxx));

[marcov]

changefileext(name,'');