markieren

Code:

procedure TForm1.Button1Click(Sender: TObject);

begin
with TIniFile.Create('.\config.ini') do
    try
    Writestring('Config', 'basis', ShellTreeView1.Path);
    finally
    Free;
  end;
 end;

Hi

Ich hab folgendes Problem, ich suche in einem ShellTreeView einen Pfad aus der in eine ini datei geschrieben werden soll.
Funktioniert auch nur leider liegt die ini datei nicht da wo sie soll... die automatisch eine Ordner höher erstellt wo ich die shelltreeview selected habe.. die soll aber bei meiner Programm exe liegen, wie mach ich das am besten??

gruß
TheRe@l

markieren

Code:

  IniFileName := ExtractFilePath(Application.ExeName) + '\config.ini';

Durch den Aufruf ExtractFilePath(Application.ExeName) bekommst Du das Anwendungsverzeichnis der Anwendung.

Soweit ich weiss, wird die INI-Datei ohne Pfadangabe im "aktuellen" Pfad erstellt. Wenn du diesen Pfad mit der ShelltreeView änderst, dann wird auch dort die Ini-Datei erstellt.
Du könntest den Anwendungspfad in die Create-Methode aufnehmen.

Ich würde das mit Application.ExeName machen.

markieren

Delphi-Quellcode:

  with TIniFile.Create(ExtractFilePath(Application.Exename)+'config.ini') do
  begin
    {...}
  end;

Habe gerade leider kein Delphi zur Hand, um den Code zu testen.
Mit Application.Exename holst du dir den Namen deiner Anwendung inkl. dem kompletten Pfad. Mit ExtractFilePath schneidest du den Dateinamen weg, sodass nur noch der Pfad übrig bleibt, an welchen du dann den Namen der Ini-Datei hängen kannst.

Gruß

Cool danke