一般来说,由Delphi生成的EXE文件,要比其由它编程语言生成的体积大一些.这主要是由于使用VCL的原因(当然,VCL是有许多优点的!) 以下是减小EXE文件大小的几种途径: 01) 使用加壳工具(如 UPX,ASPack 等) 02) 使用 KOL 03) 不使用VCL来编写程序 04) 使用 ACL (API 控制库) 05) 使用 StripReloc 06) 去除运程调试信息与 TD32 07) 把允许的代码写到 DLL 中 08) 不要在设计时把图片放置在 Form 上,而是运行时加

http://www.cnblogs.com/dabiao/archive/2009/11/28/delphi.html 1.创建rc文件.可以用任意文本编辑器来写.文件格式为:"资源名 资源类型 文件名". 对于资源类型,如果是exe文件,应该是EXEFILE,如果是二进制文件,则是RCDATA. 这里创建一个文件float.rc: AEXE EXEFILE "E:\Software\float.exe" 2.将这个rc文件转换成res文件. 复制float.rc

学习 PE 可执行文件格式,用 delphi 实现给 EXE 文件增加区段 源码下载(StudyPE.zip) unit uStudyPE; interface uses Classes, SysUtils, Windows, uPERec; type TImage_Section_headerList = class; TStudyPE = class private FFileStream: TFileStream; FNewStream: TMemoryStream; FImage_Dos

procedure AutoRunOnSystemStart(Title, FileName: String);const  _Software_Microsoft_Windows_CurrentVersion_Run_ : string = '\Software\Microsoft\Windows\CurrentVersion\Run\';var  Reg: TRegistry;  Key: String;begin  Reg := TRegistry.Create;             

//uses ShellAPIprocedure TForm1.Button1Click(Sender: TObject);var IconIndex:Word; h:hICON;begin IconIndex:=0; h:=ExtractIcon(HInstance,pchar('c:\windows\notepad.exe'),IconIndex); DrawICon(Form1.canvas.Handle,200,100,h);end;//用控件ImageList保存提取的图标,并在Lis

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;

先介绍ExtractFilePath和ParamStr ParamStr 该函数的原型是:function paramstr(i: Integer): String; 对于任何的application,paramstr(0)都默认代表的是应用程序的绝对路径.假如你这个编译号的exe 文件在 d:\delphi下,名字叫做 project1.exe.那么 在该应用程序中paramstr(0)返回:d:\delphi\project1.exe.这个值是变的,exe程序在哪,这个值就变为哪儿. 那么有

环境: win7 企业版 xe4 问题: 把项目设置为需要管理员权限才能运行后,调试会弹出一个提示框,如图:

http://www.360doc.com/content/16/1128/19/28222077_610249962.shtml 利用Delphi的File Of Type创建并管理属于你自己的数据库 2016-11-28  疯魔狂徒...  转自 aaie_ 修改   微信分享:   前言 在程序中,我们需要用一个途径去把一些有规律的信息存储在磁盘上.不能用TXT格式的文件──因为它不是基于"记录"的,而且管理很不方便. BDE或ADO也就是说Paradox.Access--唉,不

选择 Delphi 2007 ( CodeGear Delphi 2007 for Win32 Version 11.0.2837.9583 ) 的理由 我不喜欢用InstallRite的全自动安装包 我比较喜欢用Delphi 2007的ISO镜像安装 我用Delphi 2007 为Delphi 2007 的安装和汉化等操作制作了一个全自动安装可执行文件EXE while True do //一直不断检查程序有没有运行,窗口有没有最前最大化,按键有没有发送完毕 begin Sleep(100);

如何模块内部获得自身路径?Exe程序:DLL程序: ExtractFilePath(Application.ExeName) GetCurrentDir TIniFile.Create(GetCurrentDir + '\chis.ini'); TIniFile.Create(ExtractFilePath(Application.ExeName)+'chis.ini') paramstr(0)  代表这个exe文件的本地路径. 假如你这个编译好的exe文件在 d:\delphi下,名字叫做 p

Delphi 和 C++Builder XE2 更新摘要 XE2的关键特性如下: 1. FireMonkey Application Platform支持运行在Windows (32和64位),Mac OS X, 以及iOS上的跨平台应用程序. 2. VCL支持64位和32位Windows. 3. Delphi RTL现在支持Mac OS X 以及32位和64位Windows. 4. 跨平台应用程序开发 4.1Mac OS X应用程序开发 2个Mac OS X的交叉编译器: Delphi (DC

段代码手工折叠 {$REGION 'Designer Managed Code'} ............ {$ENDREGION} 昨天同事问到,delphi里exe文件如何传递参数? 因为手头装了Delphi,PowerBuilder 以下就是代码: Delphi: procedure TForm1.FormCreate(Sender: TObject); var i: Integer; begin to ParamCount do begin if LowerCase(ParamStr(

delphi获取Exe文件版本信息的函数 Type TFileVersionInfo = Record FixedInfo:TVSFixedFileInfo; {版本信息} CompanyName:String; {公司名称} FileDescription:String; {说明} FileVersion:String; {文件版本} InternalName:String; {内部名称} LegalCopyright:String; {版权} LegalTrademarks:String;

Navigation:  数据类型相关 > Delphi 的字符及字符串 > [3] - String 中的秘密   //String 的指针地址及实际的内存地址 var str: string; pstr: PString; pc: PChar; begin {在没有给 str 赋值以前, 既然声明了, 就有了指针地址(@str):} ShowMessage(IntToStr(Integer(@str))); {1244652; 这是在栈中的 str 的指针地址} {但现在还没有分配真正储存

20.3 延迟载入DLL 20.3.1延迟载入的目的 (1)如果应用程序使用了多个DLL,那么它的初始化可能比慢,因为加载程序要将所有必需的DLL映射到进程的地址空间.→利用延迟加载可将载入过程延伸到执行过程时 (2)如果我们的代码调用的操作系统的一个新函数,但程序又试图在老版本的操作系统运行.这时程序会被终止.这时可以有两种解决方法:一种是判断利用GetVersionEx操作系统,在老系统中使用旧函数而不使用新函数.另一种是通过延迟载入,通过SEH来捕获异 20.3.2延迟载入技术 (1)延迟

ExtractFileDir 与 ExtractFilePath 的差别 ExtractFileDir 从文件名称中获取文件夹名(文件不在根文件夹下时取得的值后没有"/",在根文件夹时一样,都是盘符,比如"C:/")   ExtractFilePath 从文件名称中获取路径名(文件不在根文件夹下时取得的值后有"/",在根文件夹时一样,都是盘符,比如"C:/") 函数的声明: function ExtractFileDir(co

前言:学习HOOK中,万一老师讲解HOOK入门教程:http://www.cnblogs.com/del/category/124150.html http://www.cnblogs.com/del/category/124150.html 正题:全局HOOK拦截大部分键盘消息,Ctrl+alt+del 同Num Lock 目前测试无法截获. 写全局Hook基本步骤:因为为全局Hook,要用到dll,以后就不知道需要不………… 一.创建dll1.声明同实现回调函数2.创建安装钩子函数3.创建卸

原文链接:http://www.ithome.com/html/soft/57033.htm ArcThemALL!软件主要功能: 1.支持压缩和解压功能,支持常用的7z.zip.cab.iso.rar等常见的压缩格式.支持将多个压缩文件拖拽到软件界面,就可以用ArcThemALL!完成批量解压缩操作. 操作步骤:添加压缩文件或者拖拽进去,选择软件主界面的向上箭头标识的“Extraction”按钮后,接着把左下角的下拉菜单从“UPX”改成“Archives”,点击start按钮就可以. 如果要进

ExtractFileDir 从文件名中获取目录名(文件不在根目录下时取得的值后没有“/”,在根目录时一样,都是盘符,例如“C:/”) ExtractFilePath 从文件名中获取路径名(文件不在根目录下时取得的值后有“/”,在根目录时一样,都是盘符,例如“C:/”) 函数的声明:function ExtractFileDir(const FileName: string): string;function ExtractFilePath(const FileName: string): st