eigenen Programmpfad herausfinden?

[malo]

Wie kann mein Programm seinen eigenen Programmpfad herausfinden? Gibt's da irgendeine direkte Möglichkeit, oder geht das nur mit finfirst/findnext?

[Nikolas]

extractfilepath sollte da helfen

[Dax]

Es gibt zwei Möglichkeiten, sind aber im Prinzip identisch:

Delphi-Quellcode:

MyPath1 := ExtractFilePath(Application.ExeName);

function _ExtractFilePath(Path: string; IncludeDelimiter: boolean = true): PChar;
var i: Integer;
begin
  for i := Length(Path) downto 1 do
    if Path[i] in ['\', '/'] then Break;
  Dec(i, Integer(not IncludeDelimiter));
  GetMem(Result, i);
  Move(Path[1], Result^, i);
end;

MyPath2 := _ExtractFilePath(ParamStr(0));

Letztere Version ist vor allem bei nonVCL-Programmen nützlich. (Hi Luckie ;))

[omata]

Moin,

Delphi-Quellcode:

ExtractFilePath(Application.Exename)

das ist dann das Verzeichnis, indem deine ProgrammEXE liegt.

MfG
Thorsten

[Alexander_370]

Hi malo

Das ist meine erste Antwort! :angel:
und ich hoff sie kann dir helfen:

So viel ich weiss gibt es da zwi möglichkeiten:
1.

Code:

Application.ExeName

2.

Code:

ParamStr(0)

In beiden Fällen wird der Pfad+Exename angegeben
(C:\Pfad\File.name)
aber mit

Code:

ExtractFilePath()

kannst du den pfad herausbekommen
(C:\Pfad\)
und mit:

Code:

ExtractFileDir()

Nur Pfad ohne /
(C:\Pfad)

Ich hoff des hatt dir weiter geholfen

Alex

[malo]

Ah, danke Leute, klappt wunderbar :mrgreen:

edit: ääh, willkommen in der DP, @Alexander_370 :rolL: :zwinker: