Hier ist jetzt eine Version die halbwegs funktioniert und alle veralteten Units sind rausgeflogen.
Bei meinem Delphi 2009 entsteht allerdings ein Problem, die Caption wird ab und zu automatisch neu gezeichnet, somit fliegt der Dateipfad+Name wieder aus der Caption aber ansonsten macht es das was Du wolltest.
Viel Spass damit!
Wichtig: Benutze nur die Dateien aus diesem Archiv, am besten in ein Leerverzeichnis!
Ps: Man könnte theoretisch die Filename variable oder die modifizierte Caption nochmal global speichern und bei den leeren Events mit aufrufen lassen um den zuletzt offenen Datei-Namen länger in der Caption zu behalten, falls Du verstehst was ich meine.
Oder eine Hook integrieren die WM_SETTEXT für Application.MainForm.Caption abfängt und überschreibt? Das wäre glaube ich besser.
