开发工具:
文件大小: 4kb
下载次数: 0
上传时间: 2015-07-09
详细说明： procedure CreateResourceFile( DataFile, ResFile: string; // file names ResID: Integer // id of resource ); var FS, RS: TFileStream; FileHeader, ResHeader: TResHeader; Padding: array[0..SizeOf(DWORD)-1] of Byte; begin FS := TFileStream.Create( // to read data file DataFile, fmOpenRead); RS := TFileStream.Create( // to write res file ResFile, fmCreate); { Create res file header - all zeros except for HeaderSize, ResType and ResID } FillChar(FileHeader, SizeOf(FileHeader), #0); FileHe ader.HeaderSize := SizeOf(FileHeader); FileHeader.ResId := $0000FFFF; FileHeader.ResType := $0000FFFF; { Create data header for RC_DATA file } FillChar(ResHeader, SizeOf(ResHeader), #0); ResHeader.HeaderSize := SizeOf(ResHeader); // resource id - FFFF says "not a string!" ResHeader.ResId := $0000FFFF or (ResId shl 16); // resource type - RT_RCDATA (from Windows unit) ResHeader.ResType := $0000FFFF or (WORD(RT_RCDATA) shl 16); // data file size is size of file ResHeader.DataSize := FS.Size; // set required memory flags ResHeader.MemoryFlags := $0030; { Write the headers to the resource file } RS.WriteBuffer(FileHeader, sizeof(FileHeader)); RS.WriteBuffer(ResHeader, sizeof(ResHeader)); { Copy the file into the resource } RS.CopyFrom(FS, FS.Size); { Pad data out to DWORD boundary } if FS.Size mod SizeOf(DWORD) <> 0 then RS.WriteBuffer(Padding, SizeOf(DWORD) - FS.Size mod SizeOf(DWORD)); { Close the files } FS.Free; RS.Free; end; ...展开收缩
(系统自动生成,下载前可以参看下载内容)
下载文件列表
相关说明
- 本站资源为会员上传分享交流与学习,如有侵犯您的权益,请联系我们删除.
- 本站是交换下载平台，提供交流渠道，下载内容来自于网络，除下载问题外，其它问题请自行百度。
- 本站已设置防盗链，请勿用迅雷、QQ旋风等多线程下载软件下载资源，下载后用WinRAR最新版进行解压.
- 如果您发现内容无法下载，请稍后再次尝试；或者到消费记录里找到下载记录反馈给我们.
- 下载后发现下载的内容跟说明不相乎，请到消费记录里找到下载记录反馈给我们，经确认后退回积分.
- 如下载前有疑问，可以通过点击"提供者"的名字，查看对方的联系方式，联系对方咨询.
