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!