如何减小Delphi应用程序（EXE）的大小

01) 使用加壳工具（如 UPX，ASPack 等）

02) 使用 KOL

03) 不使用VCL来编写程序

04) 使用 ACL （API 控制库）

05) 使用 StripReloc

06) 去除运程调试信息与 TD32

07) 把允许的代码写到 DLL 中

08) 不要在设计时把图片放置在 Form 上，而是运行时加载

09) 使用被压缩的图片（使用JPG 而不用 BMP）

10) 在 DFM 文件中减少属性 ！

Delphi是Inprise（前Borland）公司的优秀的可视化编程工具 它自带的Mediaplayer控件是开发多媒体的利器 用它几分钟就可以做出一个象解霸一样可以播放多媒体文件的程序来 但可能很少人知道 用它也可以做一个录音程序

运行Delphi 在System页拖一个Mediaplayer控件到窗体上 默认名为Mediaplayer 由于我们的程序是采用自己的按钮 所以将Mediaplayer 的Visible属性设置为False 其它属性保持默认值 再放两个按钮Button 和Button Button 的属性Name改为BtStart Caption改为 开始录音 Button 的属性Name改为BtStop Caption改为 停止录音 Enabled属性改为False 然后切换窗口到代码窗口 开始书写代码

程序中 我们定义了一个Wav文件的文件头格式 录音时先创建一个只有文件头的Wav文件 然后将Mediaplayer 录制下来的声音写进文件 其中CreateWav过程的几个参数意义如下 第一个channels代表声道 取 时代表单声 取 时代表立体声 resolution也只有两个值可以选择 取 时代表 位声音 取 时代表 位声音 rate则代表声音频率 如 值越大则声音越清晰 当然 所录制的文件也越大 最后一个参数则代表对应的文件名称了 所以CreateWav可以有以下形式

CreateWav（ C abc wav ） //在C盘根目录下创建一个 位单声道频率为 的名为abc wav的Wav文件

CreateWav（ C abc wav ） //在C盘根目录下创建一个 位立体声道频率为 的名为abc wav的Wav文件

外国一个很出名的用Delphi编写的远程控制软件Netbus有一个声音监听功能 就是用本文的方法写的 它先把对方的声音录制下来 然后传送回来 达到监听对方的目的 当然 前提是对方必须安装有话筒 否则监听到的是对方播放的声音（如打开解霸或者Readplay播放 运行本程序 就可以把播放的声音录制下来了）

实际上 现在的网络声音传播技术已经发展到一定阶段 语音对讲和IP电话等也开始成熟 不过它们采用的是VOX格式或者ACM格式 具体代码可以在我的主页下载 但如果对VOX或者ACM格式不熟悉的朋友 也可以用本文的方法来制作自己的 录音机 至于如何调用系统自带的avifil dll来进行网络视频播放 在有机会时再跟大家交流吧

本程序在Pwin +Delphi 下通过

unit Unit interfaceusesWindows Messages SysUtils Classes Graphics Controls Forms Dialogs StdCtrls MPlayertypeavHeader = record //定义一个Wav文件头格式　rId : longint　rLen : longint　wId : longint　fId : longint　fLen : longint　wFormatTag : word　nChannels : word　nSamplesPerSec : longint　nAvgBytesPerSec : longint　nBlockAlign : word　wBitsPerSample : word　dId : longint　wSampleLength : longint　endTForm = class(TForm)MediaPlayer : TMediaPlayerBtStart: TButtonBtStop: TButtonprocedure CreateWav(channels : wordresolution : wordrate : longintfn : string)//自定义写一个Wav文件头过程procedure BtStartClick(Sender: TObject)procedure BtStopClick(Sender: TObject)private{ Private declarations }public{ Public declarations }endvarForm : TForm implementation{$R * DFM}procedure TForm CreateWav( channels : word{ (单声)或者 (立体声) }resolution : word{ 或者 代表 位或 位声音 }rate : longint{ 声音频率 如 }fn : string { 对应的文件名称 } )varwf : file of avHeaderwh : avHeaderbeginwh rId := $ 　wh rLen := 　wh wId := $ 　wh fId := $ d 　wh fLen := 　wh wFormatTag := 　wh nChannels := channels　wh nSamplesPerSec := rate　wh nAvgBytesPerSec := channels*rate*(resolution div )wh nBlockAlign := channels*(resolution div )wh wBitsPerSample := resolutionwh dId := $ 　wh wSampleLength := 　assignfile(wf fn){打开对应文件 }　rewrite(wf){移动指针到文件头}　write(wf wh){写进文件头 }　closefile(wf){关闭文件 }　endprocedure TForm BtStartClick(Sender: TObject)begintry//在程序当前目录下创建一个Wav文件Temp wavCreateWav( (ExtractFilePath(Application ExeName)+ Temp wav ))MediaPlayer DeviceType := dtAutoSelectMediaPlayer FileName := (ExtractFilePath(Application ExeName)+ Temp wav )MediaPlayer OpenMediaPlayer StartRecordingBtStart Enabled:=falseBtStop Enabled:=trueexceptBtStart Enabled:=TrueBtStop Enabled:=falseApplication MessageBox( 媒体设备初始化失败！ 错误 MB_ICONERROR+MB_OK)endendprocedure TForm BtStopClick(Sender: TObject)begintryMediaPlayer StopMediaPlayer SaveMediaPlayer CloseApplication MessageBox( 声音录制完毕! 信息 MB_ICONINFORMATION+MB_OK)BtStart Enabled:=TrueBtStop Enabled:=falseexceptApplication MessageBox( 保存声音文件出错! 错误 MB_ICONERROR+MB_OK)BtStart Enabled:=TrueBtStop Enabled:=falseendendend

补充 录制的文件播放时可能要把音频属性的Wav调大

如果系统安装了其它一些音频驱动程序 则可能录制的Wav文件大小为零 但会同时生成一个TMP结尾的文件 将其扩展名改为Wav就是录制的声音文件 但这种情况很少发生 （机会几乎为零^ ^）

lishixinzhi/Article/program/Delphi/201311/24663

---