Tool zum Entfernen von IFDEFs?

[Dani]

Kennt jemand ein Tool mit dem man {edit: automatisch} IFDEFs/IFNDEFs samt überflüssigem Code aus Units entfernen kann? Als Beispiel jemand der mit Delphi 7 nur für MS Windows programmiert ->

Vorher:

Delphi-Quellcode:

type
  {$IFDEF LINUX}
    {$IFNDEF VCL6ORABOVE}
    THandle = LongWord; //D6.System
    {$ENDIF}
  TIdThreadPriority = -20..19;
  {$ENDIF}
  {$IFDEF MSWINDOWS}
    {$IFNDEF VCL6ORABOVE}
    THandle = Windows.THandle;
    {$ENDIF}
  TIdThreadPriority = TThreadPriority;
  {$ENDIF}

Nachher:

Delphi-Quellcode:

type
  TIdThreadPriority = TThreadPriority;

Gruß,