大比擂！！！谁编译出的EXE最小，可领全部奖金(100分)

  • 主题发起人 主题发起人 我爱PASCAL
  • 开始时间 开始时间
program Project1;
function MessageBox(hWnd: word; lpText, lpCaption: PChar; uType: word): Integer; stdcall;
external 'USER32' name 'MessageBoxA';
begin
MessageBox(0, PChar('Hello, world!'), '', 0);
end.
 
program Project1;
function MessageBox(lpText, lpCaption: PChar): Integer; stdcall;
external 'USER32' name 'MessageBox';
begin
MessageBox(PChar('Hello, world!'), ');
end.

 
在DOS下编重启的话可能编译成COM文件要比EXE小得多
一定用过RESTART.COM吧,可能是世界上最小的程序了
 
我爱PASCAL：语言你要说清楚呀，用汇编的也算？
空delphi程序会强行包含sysini单元和PACKAGEINF信息 ，去看看KOL，它的方法可以减小最终字节大小
还有，可以用工具挖除exe内的无关垃圾，应该用d3可以减小到10k以下，不过d2，d1应该更小
没试过，还有，我见过没有压缩过的8192的d3程序！并不是begin end;
 
来自：杜宝,

program Project2;
uses SysUtils,Windows;

begin
MessageBox(0,'Hello,PPMM!','Message',MB_OK);
end
//把uses 中的SysUtils删掉 编译后才8K 8192字节
 
to lailai123456:
老大你用的是什么版本的Delphi?
我试过很多遍了,都是16K,能把你的
编译参数写出来吗?
用Aspack压缩后有12K
 
To 我爱PASCAL：用汇编的也算？

呵呵，我做的RESTART.COM只有5Byte。
但还不是最小，最小的程序我能做出2Byte的。但这个程序没什么用，不过绝对能正常运行
在Dos，Win98/XP下。
如果有人不相信，我可以上传到主页上。

To 杜宝： 什么版本Delphi？我用D5,D6都可以做出来，上面不是发布源代码了吗？
 
to C-xy:
5Byte和2Byte程序只要是从DOS时代走过来的都知道,就没有必要说了吧?
你的主页我打不开所以没下到*.CPL,我改了一下:
program call;
uses
Windows,shellAPI;
var
errornum:integer;
begin
errornum:=Winexec('rundll32.exe shell32.dll,Control_RunDLL powercfg.cpl',9);
end.
cfg文件与你的相同,只是这里改成我机器的路径!
-LE"e:/delphi5/Projects/Bpl"
-LN"e:/delphi5/Projects/Bpl"

结果:16K!
怎么回事(肯定是我机器的问题了!),还请兄教我!
我的机器:
D5 + SP1 +ADO SP2
Win2000 +SP2
 
To 杜宝：已经发给你了
 
to 杜宝 我用 D6 。D5也用
------
上面的程序都没一有实用价值的
我的*密查看器 去掉图标 用D6 编译 才 8.50 KB (8,704 字节)
小巧实用常驻内存不占资源 没压缩
http://delphi-tip.51.net/pass.exe
如果用Aspack压缩 要12K

 
有这个必要吗? 简直是浪费时间来讨论!
功能是要付出代价的, 要不商家怎么去卖他的大硬盘.
 
古怪！大家都是用 Delphi 開發的嗎？怎麼我的編譯起來就是 200 KB 起跳！？

能不能講講使用的 Delphi 版本，及開發步驟，要調整什麼參數。

用最簡單的例子好了，在一個 Form 上放上一個 TLabel
這樣編譯起來我的是 299 KB.（可在未裝 Delphi 的機器上跑）
 
哪是你用了VCL，你可以不用VCL画出窗口，哪样就小很多了
 
古怪！大家都是用 Delphi 開發的嗎？怎麼我的編譯起來就是 200 KB 起跳！？

能不能講講 Delphi 版本，及開發步驟，要調整什麼參數，
用最簡單的例子好了，在一個 Form 上放上一個 TLabel
這樣編譯起來我的是 299 KB.（可在未裝 Delphi 的機器上跑）
 
我发现CFG文件是被动生成的，是不是在PROJECT OPTION 内有对应的设置，
应该怎么设才行？我用的是D5，源程序其实都差不多，主要是我不会设置
 
我用debug写一个很小的COM文件，

然后，再改成EXE的，这样可不可以？

是不是够小？
 
一定要实现一个才行功能,否则没有意义
这样吧!一定要音箱或PC喇叭响的最小的delphi编译的程序,32位
 
WULIAO 的题目！
 
实在是无聊啊，竟然花时间来讨论这些问题
 
>> 一定要音箱或PC喇叭响的最小的delphi编译的程序
这也好办，可以用控制台的方法，写一个只有Beep 函数的小程序
连窗体都不要，这样就能达到上面的要求了
 
您必须登录或注册才可回复。

Similar threads

D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
2K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
D
[原]OrangeUI之ListView的简单介绍
回复
0
查看
1K
DelphiTeacher的专栏
D
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
[转]ClientDataSet加上TDataSetProvider的数据保存问题
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
后退
顶部