Setup.INI einlesen

[GVolberg]

Hallo Community,

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

Zur Zeit habe ich den Pfadnamen hartkodiert im Sourcecode stehen. Das klappt prima.

Auf Dauer finde ich das aber nicht ideal, da der Benutzer meines Programms selber bestimmen können soll, wo das EXE läuft.

Viele Grüße
Gerd

[günni0]

Delphi-Quellcode:

ExtractFilePath(ParamStr(0)) + 'Setup.ini'

oder

Delphi-Quellcode:

ExtractFilePath(Application.ExeName) + 'Setup.ini'

Beides gleich.

[Uwe Raabe]

Zitat:

Zitat von günni0 (Beitrag 1396380)

Delphi-Quellcode:

ExtractFilePath(ParamStr(0)) + 'Setup.ini'

oder

Delphi-Quellcode:

ExtractFilePath(Application.ExeName) + 'Setup.ini'

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.

Also, was soll's sein: c:\WINDOWS\system32 oder c:\temp?

Code:

c:\WINDOWS\system32>c:\Temp\MeinProg.exe

[GVolberg]

Zitat:

Zitat von Uwe Raabe (Beitrag 1396381)

Zitat:

Zitat von günni0 (Beitrag 1396380)

Delphi-Quellcode:

ExtractFilePath(ParamStr(0)) + 'Setup.ini'

oder

Delphi-Quellcode:

ExtractFilePath(Application.ExeName) + 'Setup.ini'

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.

Also, was soll's sein: c:\WINDOWS\system32 oder c:\temp?

Code:

c:\WINDOWS\system32>c:\Temp\MeinProg.exe

Many thanks schonmal.

Aktuell liegt das exe in c:\games . Dort liegt auch die ini

[KodeZwerg]

Hi, Du kannst auch in der Zeile wo Du auf eine Datei im Verzeichniss des Hauptprogramms zugreifen möchtest lediglich ein '.\Setup.ini' anstelle 'X:\Verzeichniss\Setup.ini', klappt auch mit Unter- und Oberverzeichnissen.
Der >.< ist ein Platzhalter für's Programmverzeichniss.

[Dalai]

Zitat:

Zitat von KodeZwerg (Beitrag 1396386)

Der >.< ist ein Platzhalter für's Programmverzeichniss.

Nein, der Punkt ist ein Platzhalter für das aktuelle Arbeitsverzeichnis des Programms. C:\Windows\system32 in Uwes Beispiel. Übrigens, wie auch schon von anderen Leuten hier im Forum erwähnt, kann sich das Arbeitsverzeichnis eines Programms durch das Benutzen von TOpenDialog und Konsorten ändern. Daher IMMER absolute Pfade zusammenbauen.

Grüße
Dalai

[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 :roll:

[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:

Zitat von KodeZwerg (Beitrag 1396456)

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"?

[KodeZwerg]

Ich verstehe das Attach nicht.

Also so hier könnte eine neue Unit ausschauen:

Delphi-Quellcode:

UNIT MeineHelfer; // Name der Unit

INTERFACE // was stellt diese Unit bereit

USES SysUtils; // was braucht diese Unit

 FUNCTION MeinPfad : String; // hier haben wir etwas was bereitgestellt werden soll

IMPLEMENTATION // nun zum Code

function MeinPfad : String; // hier die oben genannte Funktion
begin
 Result := ExtractFilePath(ParamStr(0));
end;

INITIALIZATION
FINALIZATION
END.

In deinem Projekt steht auch irgendwo weit oben ein "USES", da fügst du dann MeineHelfer hinzu,
ab nun kannst du in dem Formular wo du das USES MeineHelfer nutzt auch auf die Funktion MeinPfad zugreifen.

PS: "MeineHelfer.pas" muss im Verzeichniss deines Projekt oder im Suchpfad von Delphi liegen.

[GVolberg]

Zitat:

Zitat von KodeZwerg (Beitrag 1396496)

Ich verstehe das Attach nicht.

tschuldige. Ich programmiere seit 25 Jahren in einer Sprache, wo man Libraries attached. Das, was in Delphi als "Use Unit" bekannt ist :-)

[KodeZwerg]

Na dann hoff ich mal das trotz Sprachbarriere Dir weitergeholfen werden konnte und nun Dein "Wie gelang ich zu Setup.ini" Problem im positiven Sinne erfolgreich abgeschlossen ist. Ansonsten einfach mehr Nachfragen bei Unstimmigkeiten.