一个可以模拟ＩＤＥ　的　文件　怎么修改？

aaa2520 2008-01-14 09:59:31

unit AntiIDEOnly;

interface

uses
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，没有任何使用上的限制。

但是现在对付　２．５　版本不能用了啊
想把这个文件修改成
类名称为tappbuilder
　title　名字为　ＤＥＬＰＨＩ　

...全文