Delphi Preprocessor und Subprocessor?

[Assarbad]

Funktioniert wunderbar:

Delphi-Quellcode:

unit PrePostProcessor;
interface
uses ToolIntf, Exptintf;

type
  TCompilerNotifier = class(TIAddInNotifier)
  public
    procedure EventNotification(NotifyCode: TEventNotification; var Cancel: Boolean); override;
  end;

implementation
var
  CompilerNotifier: TCompilerNotifier;

procedure TCompilerNotifier.EventNotification(NotifyCode: TEventNotification; var Cancel: Boolean);
begin
  case NotifyCode of
    enBeforeCompile:
      begin
      end;
    enAfterCompile:
      begin
      end;
  end;
end;

initialization
  CompilerNotifier := TCompilerNotifier.Create;
  ToolServices.AddNotifierEx(CompilerNotifier);
finalization
  ToolServices.RemoveNotifier(CompilerNotifier);
end.

Du hast damit ein lange bestehendes Problem bei mir aus dem Wege geräumt!
Top!