怎样使Delphi自动调用压缩程序来压缩编译出来的程序？(100分)

L

lhc4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #1

总觉得Delphi编译出来的东西有点大，平时总爱用UPX等压缩一下才交付使用，觉得有点麻烦，请问：
怎样使Delphi自动调用压缩程序来压缩编译出来的程序？

 

R

rwlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-21

• #2

自己写个程序

 

网

网中戏

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-22

• #3

顶

 

冰

冰力不足

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #4

灰鸽子的代码里面好象就有 楼主可去找找

 

L

lhc4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #5

我不是要写一个压缩程序，只是让Delphi在编译结束时“顺便”调用压缩程序来压缩一下

 

D

deardragon_2002

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #6

在主程序中调用winrar程序，输入参数
CompressFileName:=Copy(GetToday,5,4)+Copy(TimeStr, 1, 2)+Copy(TimeStr, 4, 2);
if FileExists(AddPathAndName(CompressFilePath,CompressFileName)+'.rar') then
DeleteFile(AddPathAndName(CompressFilePath,CompressFileName)+'.rar');
// showmessage(AddPathAndName(CompressToolPath,'rar')+' a '+AddPathAndName(CompressFilePath,CompressFileName)+' '+
// AddPathAndName(TempPath,'*.dbf'));
if ShellOpenFileEx(AddPathAndName(CompressToolPath,'rar'),' a -ep '+AddPathAndName(CompressFilePath,CompressFileName)+' '+
AddPathAndName(TempPath,'*.dbf')) then Memo.Lines.add('压缩成功！')
else Memo.Lines.add('压缩失败！');

 

L

l_x_dong

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #7

如果是rar参考一下帮助里面的命令行语法

 

寻

寻路

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-23

• #8

你可以跟CNAPCK提提！

 

L

lhc4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-08-26

• #9

我不是要压缩成RAR文件, 是用UPX等压缩一下可执行文件呀

 

V

Vision

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #10

我想，这个问题基本上不可能。

 

N

nicai_wgl

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #11

呵呵，有个问题楼主没考虑到，UPX压缩后你怎么调试啊？DELPHI还能在代码中设断点跟踪吗？
如果你不是每天都要给客户更新版本的话，还是手动下算了，毕竟就几秒种的事情。

 

H

hfhappy

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #12

没必要每次编译都要压缩一下吧,发行时压缩下不就行了嘛

 

W

wiseinfo

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #13

我觉得用UPX没啥必的,用UPX后,虽然EXE变小了, 但是再打包的时候就压缩不了了,何必多次一举呢,

 

铁

铁盒子

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-09

• #14

使用TOOLSAPI也许可以做到

 

M

majbb

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-12

• #15

if ExtractRes('RCDUPX', 'UPXKMM', 'UPX.EXE') then
begin
ShellExecute(0, nil, 'upx.exe', PChar('"' +你的程序文件 + '"'), nil, SW_MINIMIZE);
Sleep(1000);
DeleteFile(ExtractFilePath(ParamStr(0))+'upx.exe');
end;

 

D

duhai_lee

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-13

• #16

用vclzip 多灵活。

 

L

lhc4000

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-15

• #17

to nicai_wgl: 呵呵，这个我还真的没考虑过

to majbb: 你给的代码应该放在什么地方用呀？

to wiseinfo: 我希望使用者使用的是体积尽量小的软件，虽然现在硬盘已经很便宜了，但我依然改不了这个习惯（我不知道体积小的软件启动会不会快点，但我的确对目前软件越做越大的必要性表示怀疑），所以我希望从技术角度探讨解决办法。

 

R

rwlin

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-15

• #18

写个delphi插件，调用upx 或 aspack程序

应该不难

 

V

Vision

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2006-09-16

• #19

如果不是在IDE里编译，可以写个批处理来做，编译好马上调用UPX来压缩。

dcc32 aa.dpr
upx aa.exe