Wo ist Programm gespeichert

[violinenspieler1000]

Hallo,

wie kann ich mittels Delphi herausfinden, wo das ausgeführte Delphi-Programm gespeichert ist?

Danke,
Thomas

[Meflin]

Moin und herzlich wilkommen,

das geht mit

Delphi-Quellcode:

ExtractFilePath(Application.ExeName)

:dp:

[Klaus01]

Hallo,

Du willst wissen von welchem Ordner Dein Programm gestarte wurde?
Wenn dem so sein sollte, dann schau Dir einmal Paramstr(0) an.

Grüße
Klaus

[MSSSSM]

oder mit:

Delphi-Quellcode:

ExtractFilePath(ParamStr(0))

der erste parameter ist immer der pfad+exename

mfg

[smallsmoker]

[ot]
lol 3 mal die selbe antwort xD
[/ot]

[Luckie]

Zitat:

Zitat von smallsmoker

[ot]
lol 3 mal die selbe antwort xD
[/ot]

Nein. Die erste Antwort benutzt die Eigenschaft Exename der Klasse TApplication und das ist was anderes, als ParamStr(0).

[edit=SirThornberry]"ist was anderes, wie" geändert zu "ist was anderes, als" - Mfg, SirThornberry[/edit]

[Bernhard Geyer]

Zitat:

Zitat von Luckie

Nein. Die erste Antwort benutzt die Eigenschaft Exename der Klasse TApplication und das ist was anderes, wie ParamStr(0).

Auszug Delphi-Quelltext:

Delphi-Quellcode:

function TApplication.GetExeName: string;
begin
  Result := ParamStr(0);
end;

[taaktaak]

Na ja, Luckie! Aber der Unterschied ist marginal. Im Forms wird dabei auch auf ParamStr(0) zurückgegriffen... :stupid:

[Luckie]

Das ist mir bewusst, aber ein Anfänger wird sich wundern, wenn es in einer Konsolenanwendung nicht funktioniert.

[taaktaak]

:thumb:

[Bernhard Geyer]

Zitat:

Zitat von Luckie

Das ist mir bewusst, aber ein Anfänger wird sich wundern, wenn es in einer Konsolenanwendung nicht funktioniert.

Widerspruch:

Und wie soll er die Unit Forms verwenden ohne das in der Unit Controls (wird in Forms geused) der initalization-Abschnitt ausgeführt wird :gruebel:

Was stimmt ist das er mit ParamStr(0) sich nicht den Weg zu einer Non-VCL-Anwendung verbaut.
Außerdem könnte Codegear dieses Property als Class-Property umbauen um auch ohne erzeugte TApplication-Instanz das Property verwendbar zu machen.

[Luckie]

Zitat:

Zitat von Bernhard Geyer

Zitat:

Zitat von Luckie

Das ist mir bewusst, aber ein Anfänger wird sich wundern, wenn es in einer Konsolenanwendung nicht funktioniert.

Widerspruch:

Und wie soll er die Unit Forms verwenden ohne das in der Unit Controls (wird in Forms geused) der initalization-Abschnitt ausgeführt wird :gruebel:

Ich sagte doch, deswegen wird er sich in einer Konsolenanwendung wundern, weil es dort kein TApplication Objekt gibt.

[Bernhard Geyer]

Zitat:

Zitat von Luckie

Ich sagte doch, deswegen wird er sich in einer Konsolenanwendung wundern, weil es dort kein TApplication Objekt gibt.

Ok. Du meintest weil keine "Forms" in der uses-Anweisung steht.

[PMM]

Was ist eigentlich, wenn der Pfad in dem die EXE liegt nicht der Pfad ist, in dem das Programm ausgeführt wird?
PMM

[FAlter]

Hi,

dann gibt ParamStr(0) trotzdem den Pfad zur EXE zurück.

Mit GetCurrentDir sieht es dann eben anders aus.

Mfg
FAlter

[DeddyH]

Außerdem kann man das sehr schnell durch Ausprobieren herausfinden :zwinker:

[Meflin]

Jungs... die Frage wäre dann langsam beantwortet :roll: