unit AntiIDEOnly;interfaceuses
  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type
  TAppBuilder = class(TForm)
  end;
  TAlignPalette = class(TForm)
  end;
  TPropertyInspector = class(TForm)
  end;
  TPalette = class(TForm)
  end;
  TProjectManagerForm = class(TForm)
  end;
  TMenuBuilder = class(TForm)
  end;const
  IDECaption =
{$IFDEF VER100}
  'Delphi 3'
{$ENDIF}
{$IFDEF VER120}
  'Delphi 4'
{$ENDIF}
{$IFDEF VER130}
  'Delphi 5'
{$ENDIF}
{$IFDEF VER140}
  'Delphi 6'
{$ENDIF}
{$IFDEF VER150}
  'Delphi 7'
{$ENDIF}
  ;var
  FakeApplication: TApplication;
  FakeAppBuilder: TAppBuilder;
  FakeAlignPalette: TAlignPalette;
  FakePropertyInspector: TPropertyInspector;
  FakePalette: TPalette;
  FakeProjectManagerForm: TProjectManagerForm;
  FakeMenuBuilder: TMenuBuilder;implementation{$R AppBuilder.dfm}
{$R AlignPalette.dfm}
{$R PropertyInspector.dfm}
{$R Palette.dfm}
{$R ProjectManagerForm.dfm}
{$R MenuBuilder.dfm}procedure CreateFakeIDE;
begin
  FakeApplication := TApplication.Create(nil);
  FakeApplication.Title := 'DELPHI'  ;
  FakeAppBuilder := TAppBuilder.Create(nil);
  FakeAlignPalette := TAlignPalette.Create(nil);
  FakePropertyInspector := TPropertyInspector.Create(nil);
  FakePalette := TPalette.Create(nil);
  FakeProjectManagerForm := TProjectManagerForm.Create(nil);
  FakeMenuBuilder := TMenuBuilder.Create(nil);
end;procedure DestroyFakeIDE;
begin
  FakeApplication.Free;
  FakeAppBuilder.Free;
  FakeAlignPalette.Free;
  FakePropertyInspector.Free;
  FakePalette.Free;
  FakeProjectManagerForm.Free;
  FakeMenuBuilder.Free;
end;initialization
  CreateFakeIDE;
finalization
  DestroyFakeIDE;
end.
mmtools控件的单元中,添加uses AntiIDEOnly就行了,编译运行后就不再需要每次打开delphi了才能运行了,做音频的朋友们,试试吧,我已将其附的样例程序运用此方法编译了一次,全部OK,没有任何使用上的限制。但是现在对付 2.5 版本不能用了啊
想把这个文件修改成
类名称为tappbuilder
 title 名字为 DELPHI