Pfad wo die exe liegt aus lesen

[Christian18]

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???

[S2B]

ExtractFilePath('Pfadname');

[phlux]

So ;)

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 :hi:

[Matze]

Oder

Delphi-Quellcode:

Extractfilepath(ParamStr(0));

[Christian18]

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

[alcaeus]

Zitat:

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

[r_kerber]

Zitat:

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!

[MathiasSimmack]

Zitat:

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:

Delphi-Quellcode:

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.

[heiopei]

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]

[MathiasSimmack]

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

[S2B]

Zitat:

Zitat von Christian18

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

Ich glaube, dass einfach nur das "+" fehlt! Mehrere Strings werden mit "+" zu einem String zusammengefügt! :wink:

Delphi-Quellcode:

Label1.Caption:='Ziel: ' + ExtractFilePath(Application.ExeName);

Das muss gehen! :zwinker:

[Nicodius]

Delphi-Quellcode:

Extractfilepath(ParamStr(0));

[S2B]

Zitat:

Zitat von Matze

Delphi-Quellcode:

Extractfilepath(ParamStr(0));

Zitat:

Zitat von Nicodius

Delphi-Quellcode:

Extractfilepath(ParamStr(0));

:roll:

[Muetze1]

Moin!

Zitat:

Zitat von MathiasSimmack

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

Bei alten Delphi Versionen (5 z.B.) gibt es die ExtractFileDir() noch nicht und dort passiert es bei Rootpfaden, das er das Backslash am Ende weglässt.

MfG
Muetze1

[Christian Seehase]

Moin Muetze,

D5 kennt ExtractFileDir, und hierbei soll ja gerade der Backslash am Ende weggelassen werden.
Bei ExtractFilePath hingegen ist er immer vorhanden, so denn einer im Parameter enthalten ist.