paramstr(1) geht nicht

[TheMiller]

Hey Leute.

Habe ein etwas umfanreicheres Programm. Nun möchte ich, dass die ini aus dem Ordner geholt wird, indem auch das Programm läuft. Dazu habe ich folgendes gemacht:

Delphi-Quellcode:

procedure TForm1.FormCreate(Sender: TObject);
var ini:TInifile;
begin
ini:=TInifile.Create(paramstr(1)+'Settings.ini');
try
[Anweisungen aus Ini]
finally
ini.free;
end;
end;

Dies funktioniert NICHT. Dann habe ich gleich zum Programmstart folgendes eingegeben:

ShowMessage(paramstr(1)); Es kommt eine Meldung mit einem leeren Fenster. Was ist da los. Vorher gings doch auch...

Bitte helft mir

[Marco Haffner]

Du meinst wohl ParamStr(0).
ParamStr(1) liefert den ersten Programm-Parameter, wenn Du die Datei direkt im Explorer öffnest, kann er nichts enthalten.

[TheMiller]

wenn ich paramstr(0) einsetze, dann kommt die Meldung mit dem Programmpfad + dem aktuell geööfnetem Namen BSP:

C:\Pfad1\Programm.exe

Wenn ich paramstr(0) einsetzen würde wäre dies das Ergebnis:

ini:=TInifile.Create(paramstr(0)+'Settings.ini'); Er kann die Datei (C:\Pfad1\Programm.exeSettings.ini) nicht öffnen...

[Marco Haffner]

Ini := TIniFile.Create(ChangeFileExt(ParamStr(0), '.ini'));

[Stanlay Hanks]

Du musst ExtractFilePath(ParamStr(0)) nehmen.

Man liest sich, Stanlay

[TheMiller]

Nein, geht trotzdem nicht.

[sakura]

Zitat von DJ-SPM:

Nein, geht trotzdem nicht.

Das ist keine hilfreiche Aussage Was für eine Fehlermeldung bekommst Du, was läuft falsch... ?

......

[TheMiller]

Ganz genau das selbe, wie ich es oben beschrieben habe

wenn ich paramstr(0) einsetze, dann kommt die Meldung mit dem Programmpfad + dem aktuell geöfnetem Namen BSP:

C:\Pfad1\Programm.exe


Er kann die Datei (C:\Pfad1\Programm.exeSettings.ini) nicht öffnen...


Momentan sieht's so aus

Delphi-Quellcode:

ar ini:TInifile;
    top:String;
begin
Showmessage(paramstr(0));
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0)+'settings.ini'));

[RomanK]

Hoi,
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini'); ich weis nicht ob du noch ein "\" nach dem ExtractFilePath setzten musst. Dann würde das Ganze so aussehen:
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'\settings.ini');

[Marco Haffner]

Dann mach mal das hier daraus:
ini:=TIniFile.Create(ExtractFilePath(ParamStr(0))+'settings.ini'); Du hast den Pfad von ParamStr(0)+'settings.ini' extrahiert.