Kann Pfad in Label.Caption nicht ausgeben

[Codix32]

Zitat von mkinzler:

Den Pafd zur Exe stehet in ParamStr(0) bzw. Application.Exename

Ok, dann könnte ich sowas machen...

Delphi-Quellcode:

if FileExists('Uebersicht.txt') then
begin
  if extractFileDir('Uebersicht.txt') <> ''
    then Label1.caption:= extractFileDir('Uebersicht.txt')
  else
    Label1.Caption:= Paramstr(0);

Hm, aber Paramstr(0) gibt mir auch den Dateinamen der Programm.exe aus und ich möchte nur den Pfad.