Programmpfad ermitteln

[robinWie]

Hallo,

wenn ich in einer Anwendung ein Shelltreeview, FileListbox usw. habe und ich eine Datei aus dem Ordner laden will in der sich das Programm befindet, erscheint immer die Meldung "Datei nicht gefunden". Also wird der Pfad vom z.B. Shelltreeview verwendet.

Meine Frage: Gibt es eine Funktion oder eine Procedure die den Pfad ausgibt wo sich das Programm befindet?

Danke im Voraus
Robin :cheers:

[ichbins]

Delphi-Quellcode:

extractfilepath(paramstr(0));

oder

Delphi-Quellcode:

extractfilepath(application.exename);

[Dj_Base]

Hi!

Oder du rufst im OnCreate deiner MainForm einfach:

Delphi-Quellcode:

var Dir: string;
begin
  Dir := GetCurrentDir;
end;

auf.

Das funktioniert auch! :-D

Also dann, Gruß & Tschüss...
Dj_Base

EDIT: von Dj_Base: "immer" entfernt ;)

[Flocke]

Zitat:

Zitat von Dj_Base

Das funktioniert auch immer! :-D

Diese Aussage ist falsch!

Wenn ich eine Startmenü-Verknüpfung auf dein Programm anlege und dort ein anderes Arbeitsverzeichnis eintrage, dann bekommst du das (und nicht das Programmverzeichnis).

[Helmi]

Hallo,

wenn ich den Pfad meiner Anwendung brauche mach ich das im OnCreate so:

Delphi-Quellcode:

  //Ordner auslesen
  drive := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));

  //Variablen beschreiben
  drive_FileUpdateIni   := drive + 'FileUpdate.ini';
  drive_FileListXML     := drive + 'FileList.xml';

die Variable "drive" beinhaltet also den Pfad der Anwendung mit einem Backslash am Ende.

[Neutral General]

Ich glaube die Methode ist ehh etwas übertrieben -.-

[Helmi]

inwiefern übertrieben?

[Neutral General]

Warum nicht einfach nur

Delphi-Quellcode:

ExtractFilePath(Application.ExeName);

Ich weiß nicht wofür der andere Kram da noch hinsollte.. Vielleicht auch weil ich keine Ahnung hab was der Rest bewirkt aber mit dem Code oben hat man den Pfad doch...

[himitsu]

Zitat:

Zitat von Helmi

Delphi-Quellcode:

  //Ordner auslesen
  drive := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName));

  //Variablen beschreiben
  drive_FileUpdateIni   := drive + 'FileUpdate.ini';
  drive_FileListXML     := drive + 'FileList.xml';

IncludeTrailingPathDelimiter ist unnötig, da ExtractFilePath direkt auf einen Pfad angewendet wird, der auf jeden Fall alle nötigen Backslashs enthält ;)

Und das mit dem drive, welches gleich beim Programmstart überall mit ingebaut wird ... wozu willst du denn unbendingt Arbeitsspeicher verschwenden? (OK, wann man das für nur eine einzige Variable/Datei macht ist es besser so, aber sonst ...)

[add]
Ja ExtractFilePath(ParamStr(0)) ist ausreichend ^^

[Dj_Base]

Zitat:

Zitat von Flocke

Diese Aussage ist falsch!

Wenn ich eine Startmenü-Verknüpfung auf dein Programm anlege und dort ein anderes Arbeitsverzeichnis eintrage, dann bekommst du das (und nicht das Programmverzeichnis).

Jawohl!

Da hast du Recht!
Deswegen, ist das "immer" jetzt auch weg...
:stupid:

mfg,
Dj_Base