Delphi-PRAXiS - Delphi Fehlerindex Datei-Verzeichnis

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)

- Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)

- - Delphi Fehlerindex Datei-Verzeichnis (https://www.delphipraxis.net/14785-fehlerindex-datei-verzeichnis.html)

Fehlerindex Datei-Verzeichnis

Hallo! :-D
Ich habe einen Fehlerindex in mein Programm eingebaut und diese Datei befindet sich jetzt noch im Hauptverzeichnis 'C:\' genau wie das Hauptprogramm (*.exe Datei).
Wenn ich jetzt die 2 Dateien in einen Test Ordner verschiebe, dann wird die Datei Fehlerindex nichtmehr geöffnet.
Wie bekomme ich es hin, dass die Datei Fehlerindex.htm immer im selben Ordner gefunden wird, in der auch das Hauptprogramm liegt. :gruebel:

Delphi-Quellcode:

			procedure TForm1.Fehlerindex1Click(Sender: TObject);

var 

datei : String; 

begin 

   datei := 'c:\Fehlerindex.htm';

   shellexecute(handle, 'open', PChar(datei), nil, nil, sw_show);

end;

Re: Fehlerindex Datei-Verzeichnis

Delphi-Quellcode:

datei := ExtractFilePath(ParamStr(0))+'Fehlerindex.htm';

mfG
mirage228

Re: Fehlerindex Datei-Verzeichnis

vielen Dank für die schnelle Hilfe! :zwinker:

MfG Fr34k :thuimb: