Verzeichnis in dem die exe ist rausfinden

[Pseudemys Nelsoni]

hoi,

in meinem programm befindet sich eine klasse, wie kann ich aus dieser klasse heraus rausfinden wo sich die exe befindet? dort habe ich ja keine instanz von TApplication?

[CalganX]

Hi,
wenn du die Unit Forms einbindest schon.
Ansonsten kan dir ParamStr(0) treue Dienste leisten.

Chris

[dizzy]

Das würde ich der Klasse dann aus dem Hauptprogramm mitgeben - vorzugsweise beim Create, oder nachher durch ne hübsche Zuweisung an ne Property .

[dizzy]

Zitat von Chakotay1308:

Hi,
wenn du die Unit Forms einbindest schon.
Ansonsten kan dir ParamStr(0) treue Dienste leisten.

Chris

Aber die Instanz seiner Application hat er dann immer noch nicht, sondern nur die Deklaration von TApplication.
Und ParamStr ist imho eine Variable einer TApplication-Instanz.

Entweder deine Klasse hat eine Property vom Typ TApplication der du deine eigentlich "Application"-Variable zuweist, oder du holst dir den Pfad aus'm Hauptprogramm raus, und schreibst dass in eine String-Property deiner Klasse.

[CalganX]

Hi,

Zitat von dizzy:

Aber die Instanz seiner Application hat er dann immer noch nicht, sondern nur die Deklaration von TApplication.

Nein, normalerweise steht da auch die Variable Application drin. Einen Thread zur Frage, wo die drin ist, hatten wir ja auch letztens erst.

Zitat von dizzy:

Und ParamStr ist imho eine Variable einer TApplication-Instanz.

Leider auch falsch. ParamStr ist eine eigene Funktion aus der ... *denk* Ich glaube ... SysUtils oder Windows.

Chris

[moritz]

Da wäre zum einen
Application.ExeName; und zum anderen
ParamStr ( 0 ); Mit
ExtractFileDir ( Filename ); bekommst du dann den Pfad raus.

Edit: Du müsstest auch in der Klasse deine Application haben

[Pseudemys Nelsoni]

danke leute

nein mein prog ist nicht in meiner klasse, meiner klasse ist nur in meinem programm.

[Golze]

Hollo zusammen,
ich finde alle bisherigen Antworten nicht so ganz passend. Wenn z.B. in einer DLL nach dem aktuellen Programm gesucht werden soll, ist das nicht so einfach. Die beste Lösung erscheint mir bisher immer noch ParamStr. Es geht aber auch mit

Delphi-Quellcode:

var
  ActualBufferLength: Cardinal;
  FilenameBuffer: array[0..260] of Char;
begin
  ...
  ActualBufferLength := GetModuleFileName(0, FilenameBuffer, SizeOf(FilenameBuffer));
  if ActualBufferLength > 0 then
  begin
    SetLength(aString, ActualBufferLength);
    aString := Copy(FilenameBuffer, 1, ActualBufferLength);
  end;
  ...

Das geht garantiert auch in einer DLL oder wo auch immer.

Grüße

[Luckie]

Das mit der DLL ist ja nun ein ganz anderer Fall. Es geht ja nur darum, dass er die Klasse TApplication nicht in seiner Klasse zur Verfügung hat.

ParamStr ist übrigens in der Unit System.pas drinne.