盒子论坛 v2.1

临时做了一个，
目录说明：
out目录说明：
output:生成EXE目录
temp:dcu目录
SourceExe:
  PSourceExe.dpr做为RES的可执行程序源码
outExe:
  POutExe.dpr:动态产生可执行程序的程序源码，
  Exe.rc:资源文件
  outrc.bat:把output/PSourceExe生成Exe.res
编译顺序：
  1。打开Reg.bpg
  2. 编译PSourceExe
  3. 运行outRc.bat
  4. 编译POutExe
  5. 运行output的可执行程序

此帖子包含附件:cjrb_20031121224921.rar 大小:13.4K

----------------------------------------------

充电..........

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/11/22 6:58:00

5楼：

看不懂啊，请详细赐教！谢谢！
----------------------------------------------

作者：

cjrb (Thinking In 魂)	★☆☆☆☆	-
	盒子活跃会员

2003/11/22 12:42:13

6楼：

上面那个是用d6编译的。d6:408576
如用d7编译则是d7:393216
请将PSourceExe.dpr中的offset改掉再重新编译.

procedure ShowRes();
var
  FileStream:TFileStream;
  Buff:array[1..65536] of char;
  size,offset,i:integer;
  TmpStr:String;
begin
  application.Title:='测试';
  offset:=408576;//这个是当前EXE大小，要编译后自己动态改动
  FileStream:=TFileStream.Create(Application.ExeName ,fmShareDenyWrite);
  Size:=FileStream.Size;
  FileStream.Seek(offset,SoFromBeginning);
  FileStream.Read(Buff,Size-offset);
  FileStream.Free;
  TmpStr:=';
  for i:=1 to Size-offset do
  begin
    TmpStr:=TmpStr+Buff[i];
  end;
  if TmpStr<>' then//有资源
  begin
    ShowMessage(TmpStr)
  end
  else //源EXE
  begin
    ShowMessage('这个是源EXE，没资源的!');
  end;
end;

----------------------------------------------

充电..........

作者：

bios (阿贡)	★☆☆☆☆	-
	盒子中级会员

2003/11/22 12:46:08

7楼：

谢谢！先记下来好好学习一下!

----------------------------------------------

信息

登陆以后才能回复