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
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
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货