为啥delphi写的project1.exe怎么300多k,能不能再小一些! 什么时候微软在发布操作系统的时候,就像带着MFC的那堆DLL一样,带着BORLAND的那些BPL,那么你也一样写出20k的程序。 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 1:可以按照楼上的方法;2:把delphi不用的类库文件去掉编译;3:通过aspack等之类的压缩软件可以狠狠的缩水;4:可以作成窗体调用和主程序dll方式; 声明:这不是我写的,是我转录的,具体来源我忘了,还请见谅声明:这不是我写的,是我转录的,具体来源我忘了,还请见谅声明:这不是我写的,是我转录的,具体来源我忘了,还请见谅 象C语言一样,用Delphi也能写出只有几十K、十几K、甚至只有几K的小程序,本文将 以一个能将Windows桌面藏起来的仅有38K的小程序为例教会读者这一技巧,同时本文还 将涉及Windows TrayIcon的显示。本程序能写得很小的诀窍是:根本没有用任何的 Form 。也就是说,源程序只有一个 Desktop.dpr 文件,程序完全用标准的 WINAPI 写成,由于用到的资源很少,所以程序的体积也很小。当然,用这样的方法编程时不能使用 Delphi的所见即所得的编程方式。}{首先看看程序头的写法:} program DeskPop; uses Windows, Messages, ShellAPI, sysutils; {$R *.RES}{可以看出本程序比普通的 Delphi 程序用到的 Unit 少的多。 下面声明了全局常量和变量,暂时可以不管他们。} const AppName = ’DeskTop Hide’; var x: integer; tid: TNotifyIconData; WndClass: array[0..50] of char;{现在进入程序的主要部分,首先是定义了一批过程,为了能让读者更好地理解,我们先把这些过程跳过去,先说主程序。主程序位于程序的最后,这样做的好处是可以直接使用程序中定义的过程。主程序十分简单:} begin WinMain; end.{看来所有的工作都由 WinMain 完成了。这个 WinMain 使用标准的 WinAPI 函数进行编程,主要步骤是:先声明一个窗口类,然后创建一个主窗口,最后进入消息循环,直到程序结束。}procedure WinMain;varWnd: hWnd; {声明窗口句柄(Handle)变量}Msg: TMsg; {声明消息变量}cls: TWndClass; {窗口类变量}begin{ Previous instance running ? If so, exit }{ 检查是否程序已经运行,如果已经运行则调用Panic过程退出 }if FindWindow (AppName, Nil) <> 0 thenPanic (AppName + ’ is already running.’);{ Register the window class }{ 这里的注册窗口类程序是例行公事,照抄即可}FillChar (cls, sizeof (cls), 0); {用这一句将窗口类变量cls清零)cls.lpfnWndProc := @DummyWindowProc; {取回调函数DummyWindowProc的地址}cls.hInstance := hInstance; {实例句柄}cls.lpszClassName := AppName; {窗口类名}RegisterClass (cls); {注册窗口类cls}{ 现在可以创建程序的主窗口了-在本程序中是个虚拟窗口}{ Now create the dummy window }Wnd := CreateWindow (AppName, AppName, ws_OverlappedWindow,cw_UseDefault, cw_UseDefault, cw_UseDefault, cw_UseDefault,0, 0, hInstance, Nil);x:= 0; {变量X其实是个开关变量,记录现在是否已经隐藏了桌面}{ 如果窗口创建成功,则显示窗口,并进入消息循环 }if Wnd <> 0 thenbeginShowWindow (Wnd, sw_Hide);{本例中窗口是隐藏的}{ 下面进入消息循环,该循环将不断运行直到 GetMessage返回0 }while GetMessage (Msg, 0, 0, 0) dobeginTranslateMessage (Msg);DispatchMessage (Msg);end;end;end;{现在看来,程序的主框架很明了,但是它还不能完成任何任务。过程 Panic将显示一个对话框后退出程序,它在 Winmain 过程的开始部分被调用,其实 Panic的功能很简单,之所以要写成一个函数的原因恐怕一方面是结构化编程的需要,另一方面借此避开了 String 和 PChar 的转换。}procedure Panic (szMessage: PChar);beginif szMessage <> Nil thenMessageBox (0, szMessage, AppName, mb_ok);Halt (0);end;{下面是回调(Callback)函数 DummyWindowProc,如果说 Winmain 过程是本程序-或者说是本应用或实例的生命,那么这个回调函数可以说是主窗口的灵魂。每一个标准的或者说是规范的Windows窗口都有一个回调函数,以处理发给该窗口的消息。所谓“回调”的意思是这个函数不是由程序直接调用的,而是由 Windows 系统调用(还记得我们在窗口类中给lpfnWndProc赋过值吗), 这就是事件驱动编程。}function DummyWindowProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt):LongInt; stdcall; {注意这里有一个 stdcall;定义了回调函数}varTrayHandle: THandle;dc: hDC;i: Integer;pm: HMenu;pt: TPoint;beginDummyWindowProc := 0;{下面两句是找到 Win95 任务栏的句柄}StrPCopy(@WndClass[0], ’Progman’);TrayHandle := FindWindow(@WndClass[0], nil);{下面开始处理消息}case Msg of{收到窗口创建消息 - 在任务栏上显示一个图标}wm_Create: // Program initialisation - just set up a tray iconbegintid.cbSize := sizeof (tid);tid.Wnd := Wnd;tid.uID := 1;tid.uFlags := nif_Message or nif_Icon or nif_Tip;tid.uCallBackMessage := wm_User;tid.hIcon := LoadIcon (hInstance, ’MAINICON’);lstrcpy (tid.szTip,’Desktop is on’);Shell_NotifyIcon (nim_Add, @tid);end;wm_Destroy: {收到关闭窗口消息时的处理}beginShell_NotifyIcon (nim_Delete, @tid);PostQuitMessage (0);ShowWindow(TrayHandle, SW_RESTORE);end;{收到菜单消息时调用 HandleCommand 过程,并退出函数}wm_Command: // Command notificationbeginHandleCommand (Wnd, LoWord (wParam));Exit;end;{收到其他用户消息时的处理}wm_User: // Had a tray notification - see what to do{如果单击了鼠标左键, 则打开或关闭桌面}if (lParam = wm_LButtonDown) thenbeginif x = 0 thenbeginShowWindow(TrayHandle, SW_HIDE);tid.hIcon := LoadIcon (hInstance, ’offICON’);lstrcpy (tid.szTip,’Desktop is off’);Shell_NotifyIcon (NIM_MODIFY, @tid);x:=1end elsebeginShowWindow(TrayHandle, SW_RESTORE);tid.hIcon := LoadIcon (hInstance, ’ONICON’);lstrcpy (tid.szTip,’Desktop is on’);Shell_NotifyIcon (NIM_MODIFY, @tid);x:= 0;end; {end of if}end else{如果是鼠标右键,则动态生成一个弹出式菜单}if (lParam = wm_RButtonDown) thenbeginGetCursorPos (pt);pm := CreatePopupMenu;AppendMenu (pm, 0, Ord (’A’), ’About DeskTop Hide...’);AppendMenu (pm, mf_Separator, 0, Nil);AppendMenu (pm, 0, Ord (’E’), ’Exit DeskTop Hide’);SetForegroundWindow (Wnd);dc := GetDC (0);if TrackPopupMenu (pm, tpm_BottomAlign or tpm_RightAlign,pt.x,GetDeviceCaps(dc,HORZRES){pt.y}, 0, Wnd, Nil)then SetForegroundWindow (Wnd);DestroyMenu (pm)end; {end of if}end; {end of case}{在处理过消息之后,还要调用默认函数,以完成标准的Windows程序应该执行的任务,所以这一句非常重要}DummyWindowProc := DefWindowProc (Wnd, Msg, wParam, lParam);end;{这个就是处理菜单消息的过程}procedure HandleCommand (Wnd: hWnd; Cmd: Word);begincase Cmd ofOrd (’A’): MessageBox (0, ’Freeware [email protected] 1997’,AppName, mb_ok);Ord (’E’): PostMessage (Wnd, wm_Close, 0, 0);end;end; 至此我们已经完成了这个只有38K的能将Windows桌面隐藏起来的程序,只要将本文中所有的函数和过程的顺序倒置,并将主程序放到最后,即可编译通过。 可以用 aspack 软件压缩 声明:delphi build后是不联.bpl的,所以发布的时候不可能带着象MFC的那堆DLL和c++ builder 的 bpl。而按照楼上的内容,delphi编程成了win32 sdk 编程,那要delphi还有什么意思,之所以delphi编出来的小程序(哪怕是只有一个form)也有200k,是因为现在几乎所有编译器的smartlink技术还不能过滤掉你没有用到的继承类、函数等东东,也就是说只要你用了form类,所有和form相关的类、属性、方法都会链接到exe中。所以我的建议是通过aspack、shrinker、pecompacter之类的压缩软件 来弥补编译器的不足。 vc中用的是动态连接库,delphi中却不是,想象以下,都知道了 不用VCL,完全用API创建窗体!有一套XCL控件也可以利用下,但这样就不能进行可视化编程了!只是把DELPHI当作单纯的编译器使用! 想想,在98上,如果是刚装好的系统,你装个VB,或者MFC写的程序来运行看看,保证报说没有找到运行时间库,但delphi写的就不一样了,照样运行,这也是点好处。呵呵,楼上有人说用API,SDK直接写小程序,那不是程序员的作风,太累,那是有几百个按钮或者窗本的程序,可能要写N年吧,不过用win 32压缩软件做就好了,至少可以减少50%,即300K的可以变成100多K,如果有图片的,压缩就更好了,我有,要的人请举手[email protected] 如果现在去用纯粹的win32 sdk来编程的话当然是没有必要的但是我觉得如果想真正熟悉windows编程的话,了解一下windows消息驱动编程的原理还是很有必要的 硬盘哪么大,就是用来存东西的,你看BILL的操作系统有多大,在乎哪一点点干什么! 程序的大小是为了它的正常运行,因为windows是MS的,它不可能带有borland所要调用的一些文件。而vc是MS的产品,顺便调用了windows里现成的dll等一些东东 想写小程序么,看这里吧:)http://www.delphibbs.com/delphibbs/dispq.asp?lid=1290924 想写小程序?有那么大必要嘛?作病毒?500k卖多少钱?500M呢?delphi核心文件才几M?但是放再了光盘里! 想写小程序如果还想用vcl的话,那么最好不要在设计期拖大量控件,避免dfm巨大!,动态生成对象能节省不少kb.aspack的确好使,但是他压缩vc编译的exe就不如压缩delphi编译的压缩比例大。很大程度上就是dfm! 否则就用pure windows api,自己注册窗口类,自己建立消息循环。。还不如用记事本! Delphi编译的程序也可以很小,方法是:菜单:project——Progect Options——Packages——选中Build with runtime packages编译出的EXE文件非常小,但它的运行需要delphi运行库的支持 把设计时包都改成运行时包,exe可以小很多,但就是发布时要带上.bpl文件 同样一个软件,分别用c++ builder和delphi做,比较一下,那个应用程序小? 可以用软件压缩,如pecompact;或是编译的时候去掉那些不必要的包 用upx可压缩到20%,程序给你发过去了!调用 upx 文件名 http://tty.yyun.net/lovejingtao/htm/myres.htm 请教关于用delphi访问网页的问题 dbgrid的数据如何导入到另一个dbgrid中。 delphi对图像处理问题的研究,有兴趣的朋友进来聊聊,就当国庆到了,大家聊聊! 请教:关于ISAPI过滤器的示例代码. 揭露金碟杭州分公司的罪恶 求助关于EAN13码的问题,请各位大虾帮忙!! 救命!!!这个DLL如何调用,使用方法及程序及运行后的错误提示如下: 关于怎样提高查询速度的问题? 关于SetPropValue的问题 谁知道,Twebbrowser, execwb函数的参数是什么? 怎样编写DLEPHI SDK程序?知道的请进来帮忙! 提一个菜问题,如何获取表的字段名称??
2:把delphi不用的类库文件去掉编译;
3:通过aspack等之类的压缩软件可以狠狠的缩水;
4:可以作成窗体调用和主程序dll方式;
声明:这不是我写的,是我转录的,具体来源我忘了,还请见谅
声明:这不是我写的,是我转录的,具体来源我忘了,还请见谅
象C语言一样,用Delphi也能写出只有几十K、十几K、甚至只有几K的小程序,本文将 以一个能将Windows桌面藏起来的仅有38K的小程序为例教会读者这一技巧,同时本文还 将涉及Windows TrayIcon的显示。本程序能写得很小的诀窍是:根本没有用任何的 Form 。也就是说,源程序只有一个 Desktop.dpr 文件,程序完全用标准的 WINAPI 写成,由于用到的资源很少,所以程序的体积也很小。当然,用这样的方法编程时不能使用 Delphi的所见即所得的编程方式。}{首先看看程序头的写法:}
program DeskPop;
uses Windows, Messages, ShellAPI, sysutils;
{$R *.RES}{可以看出本程序比普通的 Delphi 程序用到的 Unit 少的多。 下面声明了全局常量和变量,暂时可以不管他们。}
const
AppName = ’DeskTop Hide’;
var
x: integer;
tid: TNotifyIconData;
WndClass: array[0..50] of char;{现在进入程序的主要部分,首先是定义了一批过程,为了能让读者更好地理解,我们先把这些过程跳过去,先说主程序。主程序位于程序的最后,这样做的好处是可以直接使用程序中定义的过程。主程序十分简单:}
begin
WinMain;
end.
{看来所有的工作都由 WinMain 完成了。这个 WinMain 使用标准的 WinAPI 函数进行编程,主要步骤是:先声明一个窗口类,然后创建一个主窗口,最后进入消息循环,直到程序结束。}procedure WinMain;
var
Wnd: hWnd; {声明窗口句柄(Handle)变量}
Msg: TMsg; {声明消息变量}
cls: TWndClass; {窗口类变量}
begin
{ Previous instance running ? If so, exit }
{ 检查是否程序已经运行,如果已经运行则调用Panic过程退出 }
if FindWindow (AppName, Nil) <> 0 then
Panic (AppName + ’ is already running.’);{ Register the window class }
{ 这里的注册窗口类程序是例行公事,照抄即可}
FillChar (cls, sizeof (cls), 0); {用这一句将窗口类变量cls清零)
cls.lpfnWndProc := @DummyWindowProc; {取回调函数DummyWindowProc的地址}
cls.hInstance := hInstance; {实例句柄}
cls.lpszClassName := AppName; {窗口类名}
RegisterClass (cls); {注册窗口类cls}{ 现在可以创建程序的主窗口了-在本程序中是个虚拟窗口}
{ Now create the dummy window }
Wnd := CreateWindow (AppName, AppName, ws_OverlappedWindow,
cw_UseDefault, cw_UseDefault, cw_UseDefault, cw_UseDefault,
0, 0, hInstance, Nil);
x:= 0; {变量X其实是个开关变量,记录现在是否已经隐藏了桌面}{ 如果窗口创建成功,则显示窗口,并进入消息循环 }
if Wnd <> 0 then
begin
ShowWindow (Wnd, sw_Hide);{本例中窗口是隐藏的}
{ 下面进入消息循环,该循环将不断运行直到 GetMessage返回0 }
while GetMessage (Msg, 0, 0, 0) do
begin
TranslateMessage (Msg);
DispatchMessage (Msg);
end;
end;
end;{现在看来,程序的主框架很明了,但是它还不能完成任何任务。过程 Panic将显示一个对话框后退出程序,它在 Winmain 过程的开始部分被调用,其实 Panic的功能很简单,之所以要写成一个函数的原因恐怕一方面是结构化编程的需要,另一方面借此避开了 String 和 PChar 的转换。}
procedure Panic (szMessage: PChar);
begin
if szMessage <> Nil then
MessageBox (0, szMessage, AppName, mb_ok);
Halt (0);
end;{下面是回调(Callback)函数 DummyWindowProc,如果说 Winmain 过程是本程序-或者说是本应用或实例的生命,那么这个回调函数可以说是主窗口的灵魂。每一个标准的或者说是规范的Windows窗口都有一个回调函数,以处理发给该窗口的消息。所谓“回调”的意思是这个函数不是由程序直接调用的,而是由 Windows 系统调用(还记得我们在窗口类中给lpfnWndProc赋过值吗), 这就是事件驱动编程。}
function DummyWindowProc (Wnd: hWnd; Msg, wParam: Word; lParam: LongInt)
:LongInt; stdcall; {注意这里有一个 stdcall;定义了回调函数}
var
TrayHandle: THandle;
dc: hDC;
i: Integer;
pm: HMenu;
pt: TPoint;
begin
DummyWindowProc := 0;
{下面两句是找到 Win95 任务栏的句柄}
StrPCopy(@WndClass[0], ’Progman’);
TrayHandle := FindWindow(@WndClass[0], nil);
{下面开始处理消息}
case Msg of
{收到窗口创建消息 - 在任务栏上显示一个图标}
wm_Create: // Program initialisation - just set up a tray icon
begin
tid.cbSize := sizeof (tid);
tid.Wnd := Wnd;
tid.uID := 1;
tid.uFlags := nif_Message or nif_Icon or nif_Tip;
tid.uCallBackMessage := wm_User;
tid.hIcon := LoadIcon (hInstance, ’MAINICON’);
lstrcpy (tid.szTip,’Desktop is on’);
Shell_NotifyIcon (nim_Add, @tid);
end;wm_Destroy: {收到关闭窗口消息时的处理}
begin
Shell_NotifyIcon (nim_Delete, @tid);
PostQuitMessage (0);
ShowWindow(TrayHandle, SW_RESTORE);
end;
{收到菜单消息时调用 HandleCommand 过程,并退出函数}
wm_Command: // Command notification
begin
HandleCommand (Wnd, LoWord (wParam));
Exit;
end;
{收到其他用户消息时的处理}
wm_User: // Had a tray notification - see what to do
{如果单击了鼠标左键, 则打开或关闭桌面}
if (lParam = wm_LButtonDown) then
begin
if x = 0 then
begin
ShowWindow(TrayHandle, SW_HIDE);
tid.hIcon := LoadIcon (hInstance, ’offICON’);
lstrcpy (tid.szTip,’Desktop is off’);
Shell_NotifyIcon (NIM_MODIFY, @tid);
x:=1
end else
begin
ShowWindow(TrayHandle, SW_RESTORE);
tid.hIcon := LoadIcon (hInstance, ’ONICON’);
lstrcpy (tid.szTip,’Desktop is on’);
Shell_NotifyIcon (NIM_MODIFY, @tid);
x:= 0;
end; {end of if}
end else
{如果是鼠标右键,则动态生成一个弹出式菜单}
if (lParam = wm_RButtonDown) then
begin
GetCursorPos (pt);
pm := CreatePopupMenu;
AppendMenu (pm, 0, Ord (’A’), ’About DeskTop Hide...’);
AppendMenu (pm, mf_Separator, 0, Nil);
AppendMenu (pm, 0, Ord (’E’), ’Exit DeskTop Hide’);
SetForegroundWindow (Wnd);
dc := GetDC (0);
if TrackPopupMenu (pm, tpm_BottomAlign or tpm_RightAlign,
pt.x,GetDeviceCaps(dc,HORZRES){pt.y}, 0, Wnd, Nil)
then SetForegroundWindow (Wnd);
DestroyMenu (pm)
end; {end of if}
end; {end of case}
{在处理过消息之后,还要调用默认函数,以完成标准的Windows程序应该执行的任务,所以这一句非常重要}
DummyWindowProc := DefWindowProc (Wnd, Msg, wParam, lParam);
end;{这个就是处理菜单消息的过程}
procedure HandleCommand (Wnd: hWnd; Cmd: Word);
begin
case Cmd of
Ord (’A’): MessageBox (0, ’Freeware [email protected] 1997’,
AppName, mb_ok);
Ord (’E’): PostMessage (Wnd, wm_Close, 0, 0);
end;
end; 至此我们已经完成了这个只有38K的能将Windows桌面隐藏起来的程序,只要将本文中所有的函数和过程的顺序倒置,并将主程序放到最后,即可编译通过。
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1290924
有那么大必要嘛?作病毒?500k卖多少钱?500M呢?
delphi核心文件才几M?
但是放再了光盘里!
aspack的确好使,但是他压缩vc编译的exe就不如压缩delphi编译的压缩比例大。
很大程度上就是dfm!
菜单:project——Progect Options——Packages——选中Build with runtime packages编译出的EXE文件非常小,但它的运行需要delphi运行库的支持
或是编译的时候去掉那些不必要的包
调用 upx 文件名