第一步:关闭debug infomation.

打开工程后,依次点击project--option--delphi compiler--linking 将右边Debug information改为False

第二步: 关闭RTTi.

点击Project--view source.在第二行添加编译开关代码

{ Reduce EXE size by disabling as much of RTTI as possible (delphi 2009/2010) }

{$IF CompilerVersion >= 21.0}

{$WEAKLINKRTTI ON}

{$RTTI EXPLICIT METHODS([]) PROPERTIES([]) FIELDS([])}

{$IFEND}

编译后Debug和Release版都可在1m左右.

第三步:设置运行时包.

打开工程后，依次点击project--option--Packages--Runtime Packages 勾选Link with runtime package.

编译后Debug的exe文件可以缩小到几十k,Release也可达1m多。