去掉runtime package在工程管理器中
楼上说的不好搞,除非你在SYSTEM目录下装哪个DELPHI的DPL文件,否则不能运行,其实后可以用SDK函数来写程序,就是麻烦点,这样写文件体积是最小的.
weizhisheng(原作)
用Delphi产生一个最小的可执行程序
曾经在网上看到有人说Delphi能够产生大小只有16k的Win32应用程序,而我自己曾经编写过的这种可执行文件大小则是在17k左右,因而我一度猜想Delphi恐怕也只能将代码优化到这种程度了。最近由于测试的目的重新把这个程序写了一遍,才发现利用一些技巧,还能够将文件的大小进一步缩减到8.5k。这个程序也能够显示Delphi作为类似于Visual
用Delphi生成一个默认的项目,然后用工具栏上的Remove
program
uses
//
const
szAppName
function
begin
Result
case
WM_DESTROY:
PostQuitMessage(0);
else
Result
end;
end;
var
wc :
HMainWnd
AMsg :
begin
with
style
lpfnWndProc
cbClsExtra
cbWndExtra
hIcon
hCursor
hbrBackground
hInstance
lpszMenuName
lpszClassName
end;
RegisterClass(wc);
HMainWnd
szAppName,
WS_OVERLAPPEDWINDOW,
Integer(CW_USEDEFAULT),
Integer(CW_USEDEFAULT),
HWND_DESKTOP,
HInstance,
ShowWindow(HMainWnd,
UpdateWindow(HMainWnd);
while
TranslateMessage(AMsg);
DispatchMessage(AMsg);
end;
end.
其实这些代码根本就是Win32
1.Delphi程序没有像C程序那样的WinMain入口,程序的运行就从.DPR文件的begin开始,到与之匹配的end结束。而C程序中传递给WinMain的四个参数,在Delphi中则以全局变量的形式定义在System以及SysInit单元中,它们分别是HInstance、HPrevInst、CmdLine和CmdShow(HPrevInst已经没有意义)。
2.注意我把常量szAppName定义为PChar,而不是常用的String,因为在这么一个简单的程序中没有必要使用String的高级功能,这样可以节省不少空间(大约3-4k)。
3.我把{$R
4.程序完成后,打开Project Options对话框,翻到Compiler页,将Runtime
尽管还不能说8.5k一定就是最小的尺寸,不过我猜想这已经非常接近Delphi的极限了。在Visual
另外,我手头还有一套非常非常古老的Turbo