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