Setup.INI einlesen

[KodeZwerg]

Habe es gerade nochmal getestet, also bei mir wird immer das Verzeichniss genommen wo sich auch die .exe befindet, auch wenn sich die .exe nicht im aktuellen Pfad befindet. Getestet per Console (cmd.exe).
Vielleicht liegt es auch daran das in einer meiner Standard-Units ein

Code:

ChDir(ExtractFilePath(ParamStr(0)));

im INITIALIZATION part steht.
In einem Neuen Projekt ohne auf meine Units zuzugreifen kommt genau das raus was ihr beschrieben habt also denke ich mal das ChDir() macht den Unterschied.

[DeddyH]

Das ChDir wechselt das aktuelle Arbeitsverzeichnis. Nur kann es sein, dass das nach dem Aufruf noch einmal irgendwo anders geschieht, z.B. durch einen Dialog. Aber das hast Du bestimmt auch schon ausprobiert und hier reden alle nur Blödsinn

[KodeZwerg]

Tut mir ja leid, ich konnte nichts von einem Dialog lesen und bin daher auch von keinem vorigen Dialog der das Verzeichniss wechselt ausgegangen, in meinem Test war nur Console-Code, kein VCL.

[günni0]

Zitat:

Das gibt das Verzeichnis an wo die EXE liegt, aber nicht das Verzeichnis aus dem sie gestartet wurde. Die Frage ist in der Form nicht eindeutig gestellt.

Darüber hat er kein Wort gesagt.

Zitat:

ich möchte mein Delphiprogramm in einem beliebigen Verzeichnis starten und es soll dann genau dort nach einer Datei setup.ini suchen und einlesen.

ich bin mir sicher er will einfach nur die Exe doppelt anklicken und die Ini laden. Kein CMD und so was.

[GVolberg]

So, ich kann mal kurz erzählen, was jetzt alles passiert ist.

Als ich das mit dem .\setup.ini gelesen habe, dachte ich: "Brauchst Du nicht zu prüfen", da ich das schon vor einer Woche ausprobiert hatte. Kam immer eine Fehlermeldung zurück, dass die setup.ini nicht gefunden werden kann.

Jetzt ist es aber so, dass in meinem Debug-Ordner, wo Delphi das EXE erzeugt, keine weiteren Dateien lagen.

Zum Glück habe ich dann doch noch mal die .\setup.ini - Variante ausprobiert und die Fehlermeldung in Gänze durchgelesen. Danach habe ich dann die fehlenden Dateien ins Debug-Verzeichnis kopiert und siehe da... es läuft (natürlich!)

Danke euch allen. Ich werde im nächsten Schritt mal schauen, dass ich den Code umstelle auf eine Variante ohne ".\", damit ich mir das Programm nicht zerschiesse, wenn ich den ersten OpenDialog einbaue.

[günni0]

Kurz überschlagen

Delphi-Quellcode:

IniFile := 'setup.ini';
Ini := ExtractFilePath(Application.ExeName) + IniFile;

if FileExists(Ini) then 
 begin
 end else
  begin
   if OpenDialog1.Execute then
    begin
     Ini := OpenDialog1.FileName;
     
     
    end;
  end;

[KodeZwerg]

Erstelle dir doch eine globale string variable, im OnCreate sowas hier 'MeinPfad := ExtractFilePath(ParamStr(0));'
Damit ist "MeinPfad" immer das Verzeichniss wo deine .exe liegt, egal ob zwischenzeitlich das Verzeichniss gewechselt wurde. Sollte alle zukünftigen Probleme beseitigen.

Nachtrag:
Oder als Funktion, Beispiel:

Code:

function MeinPfad : String;
begin
 Result := ExtractFilePath(ParamStr(0));
end;

[GVolberg]

Zitat von KodeZwerg:

Erstelle dir doch eine globale string variable, im OnCreate sowas hier 'MeinPfad := ExtractFilePath(ParamStr(0));'
Damit ist "MeinPfad" immer das Verzeichniss wo deine .exe liegt, egal ob zwischenzeitlich das Verzeichniss gewechselt wurde. Sollte alle zukünftigen Probleme beseitigen.

Nachtrag:
Oder als Funktion, Beispiel:

Code:

function MeinPfad : String;
begin
 Result := ExtractFilePath(ParamStr(0));
end;

gute Idee.

by the way: Wenn ich solche Funktionen in eine Library (also wahrscheinlich unit) auslagern will, attach ich die dann mit einem einfachen "uses"?