Projektpfad in der IDE-Titelzeile anzeigen?

[PeterPanino]

Hallo und schönen Tag!

Ist es möglich, den Pfad des aktuell geladenen bzw. ausgewählten Projektes etwa in der Titelzeile des IDE-Fensters anzuzeigen?

[PeterPanino]

Es gibt hier einen Patch von Embarcadero, der das verspricht:

http://cc.embarcadero.com/item/26161

Ich habe es versucht, in Delphi Berlin 10.1 zu installieren. Während das Compilieren und Erzeugen fehlerfrei ging, kam beim Installieren dieser Fehler zum Vorschein:

---------------------------
Error
---------------------------
Registration procedure, Showpath.Register in package C:\Users\Public\Documents\Embarcadero\Studio\18.0\ Bpl\ShowProjectPath.bpl raised exception class EAccessViolation: Access violation at address 650928E2 in module 'ShowProjectPath.bpl'. Read of address 00000000.
---------------------------
OK
---------------------------

Habe dann versucht, ShowProjectPath.bpl manuell zu installieren, dabei kam wieder der Fehler:

---------------------------
ShowProjectPath - Delphi 10.1 Berlin - ShowProjectPath.dproj [Built]
---------------------------
Registration procedure, Showpath.Register in package C:\Users\Public\Documents\Embarcadero\Studio\18.0\ Bpl\ShowProjectPath.bpl raised exception class EAccessViolation: Access violation at address 46A028E2 in module 'ShowProjectPath.bpl'. Read of address 00000000.
---------------------------
OK
---------------------------

Das ist die Registration procedure:

Code:

procedure Register;
begin
  OriginalTitle := Application.Title;
  Index := (BorlandIDEServices as IOTAServices).AddNotifier( TShowPath.Create );
  Application.Title := ExtractFilePath( ToolServices.GetProjectName );
end;

Syntaxmäßig ist hier kein Fehler, deswegen wurde es auch anstandslos kompiliert.

Wo ist hier der Fehler?

[KodeZwerg]

Steht "C:\Users\Public\Documents\Embarcadero\Studio\18.0 \ Bpl\" im BPL/DCP/Library Path ?
Und wird das bpl Verzeichniss wirklich mit einer leerstelle am Anfang betitelt?
Daran könnte es liegen, nur eine Vermutung!

[KodeZwerg]

Ich habe es mir mal heruntergeladen.
Der Fehler entsteht hier: (Datei ShowPath.pas)   Application.Title := ExtractFilePath( ToolServices.GetProjectName ); Das ToolServices.GetProjectName löst den Fehler aus, wie es korrekt lauten muss weiß ich selbst noch nicht.

Falls sich damit jemand auskennt, hier die ganze procedure

Delphi-Quellcode:

procedure Register;
begin
  OriginalTitle := Application.Title;
  Index := (BorlandIDEServices as IOTAServices).AddNotifier( TShowPath.Create );
  Application.Title := ExtractFilePath( ToolServices.GetProjectName );
end;

Ps: Anzumerken wäre noch folgendes was auf der Download-Seite steht....

Zitat:

For Delphi, Version 6.0 to 6.0

[PeterPanino]

Ich habe jetzt in ShowPath.pas mal testweise alle GetProjectName durch GetCurrentFile ersetzt.

Es kam aber die gleiche Fehlermeldung:

fehlermeldung.jpg

[PeterPanino]

Ich habe jetzt einfach mal die Zeile Application.Title := ExtractFilePath... in der procedure Register auskommentiert.

Jetzt funktionierte das install.

Dann versuchte ich, die IDE neu zu starten, was wegen einer hartnäckigen Fehlermeldung nicht ging. So beendete ich die IDE im Taskmanager.

Dann beim Neustarten der IDE kam diese Fehlermeldung:

fehlermeldungneustart.png

So musste ich die IDE wieder im Taskmanager schließen, weil die Fehlermeldung nicht wegging.

Dann entfernte ich die ShowProjectPath.bpl aus dem BPL-Verzeichnis.

Erst dann konnte ich die IDE erfolgreich neu starten.