Position der Exe bestimmen

[gordon freeman]

Hi Leute,
ich hab eine Exe-Datei in einem beliebigen Ordner. In diesem Ordner befindet sich auch ein anderer Ordner mit der Bezeichnung 'Texte'. Nun soll die Exe auf die Dateien im Ordner 'Texte' zugreifen können. Wie finde ich aber raus, wo sich die Exe momentan befindet, damit der User das Prog überall abspeichern kann, ohne das Fehler auftreten wie '

Zitat:

Datei ?!%=) konnten nicht geöffnet werden!'

Ich weiss, das es da einen Befehl gibt, er fällt mir nur nicht ein...
Vieleicht liegt es daran:

Danke für die Hilfe! cu

[Matze]

Pfad := ExtractFilePath(paramstr(0)); Pfad ist ein string.

[fkerber]

Hi!

Extractfilepath(Application.Exename); Ciao fkerber

[braingrenade]

Moin !

Delphi-Quellcode:

var s : string;
begin
s := extractfilepath(application.exename);
end;

So ausm Kopf heraus.(Weiß nicht ob's genau so funktioniert)

[himitsu]

Delphi-Quellcode:

Verzeichnis := ExtractFilePath(Application.ExeName);
{oder}
Verzeichnis := ExtractFilePath(ParamStr(0));

oder du arbeitest mit Relativen Pfaden

"Texte\Datein.ame"
"C:\Verzeichnis\Anwendung.exe" >> "C:\Verzeichnis\Texte\Datein.ame"

"..\Texte\Datein.ame"
"C:\Verzeichnis\Anwendung.exe" >> "C:\Texte\Datein.ame"

...

[gordon freeman]

Danke! Bin doch echt nicht drauf gekommen!

[Luckie]

Zitat von himitsu:

oder du arbeitest mit Relativen Pfaden

Argh blos das nicht. Relative Pfade beziehen sich immer auf das aktuelle Verzeichnis. Einmal eine datei aus einem anderen Verzeichnis mit einem Dateiöffnen-Dialog geöffnet und das war es dann. So loangsam sollte man das aber verstanden haben, das predige ich doch in so einem Fall jedesmal.

[himitsu]

Das ersparrt aber viel arbeit, da man dann keine Pfade mehr berechnen brauch.

Zum anderen Kann es manschmal auch vorteile haben.

Aber wenn's dennoch vom Programmverzeichnis ausgehn soll, dann behebt man das mit einer ganz kleinen Zeile, nach welcher man ganz einfach mit relativen Phafen weiterarbeiten kann

Code:

Program Project1;

Uses [color=red]SysUtils, [/color]Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

Begin
  [color=red]SetCurrentDir(ExtractFileDir(ParamStr(0)));[/color]
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
End.

[Luckie]

Zitat von himitsu:

Das ersparrt aber viel arbeit, da man dann keine Pfade mehr berechnen brauch.

Ja, aber die Arbeit kommt dann, wenn der Kunde dir sagt, dass dein Programm seine eigenen Dateien nicht findet.

Zitat:

Zum anderen Kann es manschmal auch vorteile haben.

Ich wüßte jetzt nicht aus welchen Gründen man Roulette mit den Pfaden spielen sollte.

Zitat:

Aber wenn's dennoch vom Programmverzeichnis ausgehn soll, dann behebt man das mit einer ganz kleinen Zeile, nach welcher man ganz einfach mit relativen Phafen weiterarbeiten kann

Code:

Program Project1;

Uses [color=red]SysUtils, [/color]Forms,
  Unit1 in 'Unit1.pas' {Form1};

{$R *.res}

Begin
  [color=red]SetCurrentDir(ExtractFileDir(ParamStr(0)));[/color]
  Application.Initialize;
  Application.CreateForm(TForm1, Form1);
  Application.Run;
End.

[/quote]
Du hast nicht ganz gelesen, was ich geschrieben habe oder? Bitte noch mal lesen, besonders die Stelle mit dem Dateiöffnen Dialog.

[himitsu]

Ach, das kommt davon, wenn man diese Öffnen-/Speicherndialoge nicht verwenden