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

dm · Beiträge: 83

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 · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

Kurz und knapp:

markieren

Delphi-Quelltext

1:	Str := ExtractFilePath (ParamStr (0));

oder

markieren

Delphi-Quelltext

1:	Str := ExtractFilePath (Application.ExeName);

Gruß
Tino

smiegel · Verfasst: Do 15.01.04 09:52

Hallo,

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

_________________
Gruß Smiegel
Ich weiß, daß ich nichts weiß, aber ich weiß mehr als die, die nicht wissen, daß sie nichts wissen. (Sokrates)

dm · Beiträge: 83

Das geht ja schnell...
Danke ihr beiden !

Gruß Dennis

dm · Beiträge: 83

Leider bekomme ich folgende Fehlermeldung bei diesem Code :

markieren

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 Tino: Delphi- & Quote-Tags hinzugefügt.

Ehemaliges Mitglied Erhaltene Danke: 1

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

raven_22 · Beiträge: 95 Win XP pro D7 Enterprise

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

Gruß raven

Tino · Beiträge: 9839 Erhaltene Danke: 45 Windows 8.1 Delphi XE4

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

	Mitgliederliste
	Gruppen
	Das Team
	Richtlinien
	Synonyme