Inidatei wird nicht gelesen

[Mokuba01]

Hallo.
Mein Programm soll bei jedem Start überprüfen, ob es auch wirklich registriert wurde.

Delphi-Quellcode:

function TForm1.isreg: boolean;
var ini: TIniFile;
begin
  ini:=TIniFile.Create('reg.ini');
  try
    RegCodeb:=ini.ReadString('Registration','Reg','12332112');
    Nameb:=ini.ReadString('Registration','Name','Max Mustermann');
  finally
    ini.free;
  end;

//...
//Auswertung von RegCodeb und Nameb
//...
end;

Nun musste ich aber feststellen, dass er immer 12332112 und Max Mustermann nimmt. RegCodeb und Nameb sind übriegens globale Variablen.

Warum liest er die Daten nicht ein? Nach Rechtschreibfehlern habe ich bereits gesucht
Danke im Vorraus
mfg Mokuba01

[mkinzler]

Verwende einen absoluen Pfad zur Ini (ggf. dynamisch ermittelt)

[Bernhard Geyer]

Solange du keine kompletten Pfadangabe verwendest kannst du nicht sicher sein das immer die korrekte Inidatei gesucht und gefunden wird.

[Mokuba01]

Hey, Danke. Aber wieso funktioniert es nur weil ich den absoluten Pfad verwende? Und wie ermittle ich den aktuellen Pfad?

[taaktaak]

Weil es sonst immer den gerade aktiven Pfad verwendet.
Das kann der Richtige sein, muss aber nicht..

// edit - Mit GetCurrentDir

[Andreas L.]

Zitat von taaktaak:

Weil es sonst immer den gerade aktiven Pfad verwendet.
Das kann der Richtige sein, muss aber nicht..

// edit - Mit GetCurrentDir

Ich denke er meint den Anwendungspfad, das wäre dann ExtractFilePath(Application.ExeName) oder ExtractFilePath(Paramstr(0))

[taaktaak]

Zitat:

Ich denke er meint den Anwendungspfad

Vermutlich richtig,
die Kenntnis über den aktuellen Pfad ist in diesem Kontext tatsächlich nicht von besonderem Interesse