Dann:
Delphi-Quellcode:
filename := extractfilepath(paramstr(0))+IniName + '.ini';
Label5.Caption:= filename;
Da wird dann der komplette Pfad angezeigt:
c:\users\XXXX\Dokuments\Borland Studio-Projekte\My_proggis\Raten-mit-IniFile\MyKreditInif.ini
Die Funktion 'GetSpecialFolder' habe ich mal so getestet:
MessageDlg (GetSpecialFolder (CSIDL_APPDATA), mtInformation, [mbOK], 0);
Da kriege ich den Pfad: C:\users\XXXX\Favorites
Und in der LeseIni:
Delphi-Quellcode:
procedure TForm1.leseIni(IniName:string);
var
ini:TIniFile;
filename: String;
begin
filename:=GetSpecialFolder(CSIDL_APPDATA)+'\'+Ininame+ '.ini';
Label5.Caption:=filename;
ini := TIniFile.Create(filename);
...
kriege ich den Pfad: C:\Users\XXXX\AppData\Roaming\MyKreditInif.ini
Aber die Variablen bleiben leer, es wird nichts eingelesen.
Also was mache ich da noch falsch?
Leider ist es mir beim ersten Mal nicht aufgefallen, Du solltest statt
GetSpecialFolder
SHGetFolder oder einen seiner engen Verwandten nutzen, dann solltest Du auch vernünftige Ergebnisse bekommen.
Gruß
K-H