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.