hallo,

ich würde gerne den Pfad wo die *.exe liegt auslesen und zwar nicht den ganzen pfad sondern nur das verzeichnis

bsp.:

die application liegt local auf c:\

c:\test.exe

und wenn ich

Application.ExeName;

mache, dann wird bei mir ausgegeben:

c:\test.exe

aber ich möchte ausgegeben haben

c:\

Wie mache ich das???

ExtractFilePath('Pfadname');

So

markieren

Delphi-Quellcode:

var
  s: String;

begin
  s := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));
end;

Alternativ auch ohne IncludeTrailingPathDelimiter() dann musst du aber selbst gucken ob bereits ein \ ans ende gestellt wurde oder nicht

mfg phlux

Oder
Extractfilepath(ParamStr(0));

hallo,

diese eigenschaft oder diesen befehl gibt es bei mir nicht, ich habe Delhpi6 Professional, kann es daran liegen.

ich wollte das tun:

Label1.Caption:='Ziel: ' Application.ExeName;

bloß die exe soll weg

Zitat von phlux:

Alternativ auch ohne IncludeTrailingPathDelimiter() dann musst du aber selbst gucken ob bereits ein \ ans ende gestellt wurde oder nicht

ExtractFilePath enthält das \ am Ende.

Greetz
alcaeus

Zitat von Christian18:

diese eigenschaft oder diesen befehl gibt es bei mir nicht, ich habe Delhpi6 Professional, kann es daran liegen.

Kann ich mir nicht vorstellen. Suche noch mal genau!

Zitat von Christian18:

diese eigenschaft oder diesen befehl gibt es bei mir nicht, ich habe Delhpi6 Professional, kann es daran liegen.

Eher im Gegenteil: Meist besitzen die Pro-Versionen einen größeren Befehls- bzw. anderweitigen Umfang als kleinere. Da es die Funktion aber auch in meinem D5 Pro gibt, ist sie in D6 definitiv enthalten.

Zitat:

ich wollte das tun:

Label1.Caption:='Ziel: ' Application.ExeName;

bloß die exe soll weg

Wie gesagt:
Label1.Caption := 'Ziel: ' + ExtractFilePath(Application.ExeName); Evtl. die Units beachten. Unter D5 muss die Unit "SysUtils" eingebunden sein. Es wäre denkbar, dass sich dies (wie so vieles) ab D6 geändert hat. Aber normalerweise gibt die Hilfe darüber Auskunft und zeigt dir an, in welcher Unit sich der Befehl befindet.

abend,
also so dürfte es gehen, is aber umständlich(des mit dem paramstr... muss gehen, da es bei mir mit delphi 6 personal auch geht!)

var
temp: string;
...
temp := extractfilepath(application.exename);
delete(temp, length(temp) - 1, length(temp));
labelx.caption := temp;
...

tschüss,
heiopei

[Edit] wahr wohl jemand schnell als ich (zumindest mit der ersten behauptung) [/Edit]

Neben "ExtractFilePath" gibt es auch noch "ExtractFileDir", bei dem IMHO der Backslash weggelassen wird. So gesehen ist deine Lösung, @heiopei, ebenfalls umständlich.