Projektpfad in der IDE-Titelzeile anzeigen?

[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