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

[ichbins]

extractfilepath(paramstr(0)); oder

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!

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

EDIT: von Dj_Base: "immer" entfernt

[Flocke]

Zitat von Dj_Base:

Das funktioniert auch immer!

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

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


mfg,
Dj_Base