用Delphi产生一个最小的可执行程序

原创 2002年02月16日 23:33:00
 

用Delphi产生一个最小的可执行程序

 

曾经在网上看到有人说Delphi能够产生大小只有16kWin32应用程序,而我自己曾经编写过的这种可执行文件大小则是在17k左右,因而我一度猜想Delphi恐怕也只能将代码优化到这种程度了。最近由于测试的目的重新把这个程序写了一遍,才发现利用一些技巧,还能够将文件的大小进一步缩减到8.5k。这个程序也能够显示Delphi作为类似于Visual C++的、非RAD工具的另一个侧面。如果你对此感兴趣的话,请看我是如何做到这一点的。

 <?xml:namespace prefix = o ns = "urn:schemas-microsoft-com:office:office" />

Delphi生成一个默认的项目,然后用工具栏上的Remove file from Project按钮,将唯一的窗体(Form1)从项目中删除。然后选择View->Project Source命令,打开项目文件,并编辑代码如下所示:

program MiniApp;

 

uses

  Windows, Messages;

 

// {$R *.res}

 

const

  szAppName : PChar = 'MiniApp';

 

function WndProc(AWnd:HWND; message:UINT; wp:WPARAM; lp:LPARAM):LRESULT;stdcall;

begin

  Result := 0;

  case message of

    WM_DESTROY:

       PostQuitMessage(0);

    else

       Result := DefWindowProc(AWnd, message, wp, lp);

  end;

end;

 

var

  wc : WNDCLASS;

  HMainWnd : HWND;

  AMsg : MSG;

 

begin

  with wc do begin

    style := CS_VREDRAW or CS_HREDRAW;

    lpfnWndProc := @WndProc;

    cbClsExtra := 0;

    cbWndExtra := 0;

    hIcon := LoadIcon(0, IDI_APPLICATION);

    hCursor := LoadCursor(0, IDC_ARROW);

    hbrBackground := GetSysColorBrush(COLOR_WINDOW);

    hInstance := HInstance;

    lpszMenuName := nil;

    lpszClassName := szAppName;

  end;

  RegisterClass(wc);

 

  HMainWnd := CreateWindow(szAppName,

                           szAppName,

                           WS_OVERLAPPEDWINDOW,

                           Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),

                           Integer(CW_USEDEFAULT), Integer(CW_USEDEFAULT),

                           HWND_DESKTOP, 0,

                           HInstance, nil);

  ShowWindow(HMainWnd, CmdShow);

  UpdateWindow(HMainWnd);

 

  while GetMessage(AMsg, 0, 0, 0) do begin

    TranslateMessage(AMsg);

    DispatchMessage(AMsg);

  end;

end.

 

其实这些代码根本就是Win32 SDKC语言例子程序的翻版,我想没有必要再对它们作什么解释了。需要提醒你注意的是:

1Delphi程序没有像C程序那样的WinMain入口,程序的运行就从.DPR文件的begin开始,到与之匹配的end结束。而C程序中传递给WinMain的四个参数,在Delphi中则以全局变量的形式定义在System以及SysInit单元中,它们分别是HInstanceHPrevInstCmdLineCmdShowHPrevInst已经没有意义)。

2.注意我把常量szAppName定义为PChar,而不是常用的String,因为在这么一个简单的程序中没有必要使用String的高级功能,这样可以节省不少空间(大约3-4k)。

3.我把{$R *.res}一句也注释起来了,这样可以从文件中剔除冗余的资源,从而节省大约1k左右的空间。

4.程序完成后,打开Project Options对话框,翻到Compiler页,将Runtime ErrorsDebugging分类中的选项全部清除,这样也可以稍微减小最终文件的大小。

 

尽管还不能说8.5k一定就是最小的尺寸,不过我猜想这已经非常接近Delphi的极限了。在Visual C++中,很有意思的一点是所有可执行文件的大小都会对齐到4k的边界,所以在Visual C++中最小的.EXE和最小的.DLL大小都只能达到28k,除非使用一些非常特殊的隐藏编译开关。尽管Win32中的分页默认是4k,不过我实在想不通Visual C++把可执行文件的大小也对齐到4k究竟有什么意义?

另外,我手头还有一套非常非常古老的Turbo Pascal for Windows 1.5,它所编译出的最小的Windows可执行文件的大小——你肯定无法相信——只有1.75k!当然了,它毕竟只是个Win16程序而已。

 

一个可执行文件是怎么来的

一个可执行文件的生成一般都要经过下面几个步骤: 编辑 、预处理 、 编译、优化、汇编 、 连接   ——>可执行文件 下面将从这几个步骤一个一个来分析他们的具体内容。 1. 编辑 编辑这个过程其实...
  • lee244868149
  • lee244868149
  • 2015年11月02日 09:35
  • 2225

Delphi编程中,如何在可执行程序中执行四则运算

Delphi编程中,有时我们需要在编译完后的可执行程序中执行四则运算,这是好多年前用过的,现把它整理出来供大家使用,算计形式如下图所示:   调用方法如下代码: procedure TForm1....
  • yangliu
  • yangliu
  • 2013年04月07日 15:08
  • 1094

DELPHI产生不重复随机数的简便算法

产生不重复随机数的算法能够解决诸如随机洗牌,抽彩等问题,在网上的一些算法自觉较繁,现给出简单的算法。以下源程序为1..36个数字,随机排列,产生不重复随机数。 var aa : array...
  • my98800
  • my98800
  • 2016年09月23日 21:03
  • 1270

一个数列,去掉最大和最小的数,求剩余的数的平均值

如题:一个数列,去掉最大和最小的数,求剩余的数的平均值: 原想着先排序然后再去掉最大最小的最后求平均值,后来想想,只要去掉最大和最小的犯不着全排了序,直接两个循环,第一个循环找到最大和最小的数,第二个...
  • lovme_huan
  • lovme_huan
  • 2017年04月21日 17:24
  • 519

Delphi中配置文件的架构

unit UnitConfig;interfaceuses Classes;type { TVConfig } TVConfig = class(TObject) private App...
  • singular2611
  • singular2611
  • 2015年03月20日 11:14
  • 365

最小长方形问题

问题: 1020: 最小长方形 时间限制: 1 Sec 内存限制: 32 MB 提交: 19 解决: 12 题目描述   给定一系列2维平面点的坐标(x, y),其中x和y均...
  • yhm2046
  • yhm2046
  • 2011年08月24日 11:51
  • 1932

Delphi发展历程

在delphi XE2发布之际,满足各位D迷得要求,跟大家分享一下从 Turbo Pascal 到 Delphi XE 2 各个版本历史。 Pascal是一种计算机通用的高级程序设计语言。它由瑞...
  • yxp200401
  • yxp200401
  • 2012年08月21日 21:51
  • 1295

寻找数组中最小的k个数(快排和堆排)

题目描述 输入n个整数,找出其中最小的K个数。例如输入4,5,1,6,2,7,3,8这8个数字,则最小的4个数字是1,2,3,4,。 思路1:利用快排的思想,寻找第k个位置上正确的数,k位置...
  • liuguangqiang
  • liuguangqiang
  • 2016年08月15日 13:02
  • 4100

Java for-each循环解惑

从Java5起,在Java中有了for-each循环,可以用来循环遍历collection和array。For each循环允许你在无需保持传统for循环中的索引,或在使用iterator /List...
  • xplee0576
  • xplee0576
  • 2014年04月25日 11:10
  • 762

数组组合成最小的数

问题描述:输入一个正整数数组,将它们连接起来排成一个数,输出能排出的所有数字中最小的一个。例如输入数组{32,  321},则输出这两个能排成的最小数字32132。请给出解决问题的算法,并证明该算法。...
  • longlovefilm
  • longlovefilm
  • 2017年10月07日 03:57
  • 247
内容举报
返回顶部
收藏助手
不良信息举报
您举报文章:用Delphi产生一个最小的可执行程序
举报原因:
原因补充:

(最多只允许输入30个字)