Kann Pfad in Label.Caption nicht ausgeben

[Codix32]

Ok, ich sagte ja, daß die Funktionen einen Leerstring ausgeben, das habe ich schon verstanden.

Aber das Programm und die Datei liegen im Ordner c:\borland\myProggis\Test und ich suche eine Möglichkeit diesen Pfad in einem Label anzuzeigen.

Muss ich da die WinApi durchstöbern?

[mkinzler]

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

[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.

[Bummi]

lies nochmals #2 und #3 durch ...

[Codix32]

Ok, ich habs:

Delphi-Quellcode:

var
 str:string;
....
begin
if FileExists('Uebersicht.txt') then
begin
str:=Paramstr(0);
Label1.caption:=('Datei existiert')+'    '+ ExtractFileDir(str);
Listbox1.items.LoadFromFile('Uebersicht.txt');
end
else Label1.caption:='Datei existiert nicht';
end;

[Bummi]

Delphi-Quellcode:

var
  str: string;
begin
  str := ExtractFilePath(ParamStr(0)) + 'Uebersicht.txt';
  if FileExists(str) then
  begin
    Label1.caption := ('Datei existiert') + ' ' + str)
    Listbox1.items.LoadFromFile(str);
  end
  else Label1.caption := 'Datei existiert nicht';
end;

[cookie22]

str := ExtractFilePath(ParamStr(0)) + 'Uebersicht.txt';

[himitsu]

Zitat von Codix32:

Ok, ich habs

Falsch.

Wie bereits genannt, solltest du unbedingt von relativen Pfaden Abstand nehmen, das bereitet eh nur Probleme.



Tipp:
Lege mal probehalber einen TOpenDialog auf deine Form und dann schreib OpenDialog1.Execute; an den Anfang deiner Prozedur. (vor das if FileExists... ).
Nun startest du dein Programm und wählst in diesem Dialog z.B. irgendeine Datei in C:\Windows aus.
Und jetzt freu dich darüber, daß dein FileExist nichts mehr findet.

Oder statt des Opendialog, erstellst du einen Link zu deinem Programm (auf'm Desktop rechtklick > Neu > Verknüpfung).
Wenn diese Existierst, gehst du davon in die Dateieigenschaften und schreibst bei "Ausführen in" das "C:\Windows" rein.
Nach dem Starten des Programms kannst du dich ebenfalls über das Nichtauffinden freuen.