Entwickler-Ecke

Dateizugriff - den Pfad der EXE Datei ermitteln, die man gerade aufgeruf...


dm - Do 15.01.04 09:48
Titel: den Pfad der EXE Datei ermitteln, die man gerade aufgeruf...
Hallo!

Ich habe ein Programm geschrieben. Der Anwender soll später entscheiden können, wohin er das Programm installieren will (laufwerk,ordner..).

Wie kann ich jetzt schon eine procedure/function schreiben, die ausliest, von welchem platz/ordner/pfad aus die programmdatei aufgerufen wurde?

Jemand nen Tip für mich?

Viele Grüße

Dennis


Tino - Do 15.01.04 09:52

Kurz und knapp:

Delphi-Quelltext
1:
Str := ExtractFilePath (ParamStr (0));                    

oder

Delphi-Quelltext
1:
Str := ExtractFilePath (Application.ExeName);                    

Gruß
Tino


smiegel - Do 15.01.04 09:52

Hallo,

mit ExtractFilePath(Application.ExeName) oder ExtractFilePath(ParamStr(0)). Näheres dazu in der Delphi-Hilfe.


dm - Do 15.01.04 09:59

Das geht ja schnell...
Danke ihr beiden !

Gruß Dennis


dm - Do 15.01.04 10:41
Titel: Fehlermeldung
Leider bekomme ich folgende Fehlermeldung bei diesem Code :

Delphi-Quelltext
1:
2:
3:
4:
5:
6:
7:
procedure TForm1.FormCreate(Sender: TObject);
var        y : integer;
           lfw : string;

begin
lfw := ExtractFilePath(Application.ExeName);
...

Fehlermeldung:
Zitat:
Ungültiges Zeichen in Eingabedatei : ' ' ($A0)

Gruß Dennis

Moderiert von user profile iconTino: Delphi- & Quote-Tags hinzugefügt.


Delete - Do 15.01.04 11:07

Kann aber nicht an der von dir geposteten Zeile liegen. Die ist nämlich fehlerfrei.


raven_22 - Fr 16.01.04 12:46

:idea:

Welsches Betriebssystem verwendest du ?
Hast du Sonderzeichen oder so im Dateinamen ?
Ist der Dateiname länger als 8 Zeichen ?

Gruß raven 8)


Tino - Fr 16.01.04 12:59

Hast du den Sourcecode aus diesem Forum kopiert und eingefügt? Öffne mal deine PAS-Datei, markiere alle Zeilen im Delphi-Editor, kopiere diese in die Zwischenablage, öffne Notepad, füge die Zeilen aus der Zwischenablage dort rein, Kopiere diese wieder in die Zwischenablage und für das dann wiederum in den Delphi-Editor. Vielleicht klappt es dann.

Gruß
Tino