高手都来看看 300分 ( 积分: 300 )

  • 主题发起人 lxxiaoxiao
  • 开始时间
L

lxxiaoxiao

Unregistered / Unconfirmed
GUEST, unregistred user!
我用下面这段代码把b.ini中的内容加到a.exe尾部&nbsp;EXE&nbsp;可以正常运行&nbsp;我用UE打开&nbsp;内容也的确加到了&nbsp;EXE的尾部&nbsp;b.ini中的内容是&nbsp;0123456789&nbsp;现在我想编写这个a.exe让他运行的同时把添加在自己尾部中的b.ini中的内容&nbsp;显示到MEMO上面&nbsp;麻烦大家来看看&nbsp;谢谢<br>var&nbsp;s:&nbsp;String;<br>var<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsexe:Tfilestream;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsini:tfilestream;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;begin<br><br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsexe:=tfilestream.create('a.exe',fmOpenWrite);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsini:=tfilestream.create('b.ini',fmopenread);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;try&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsexe.position:=fsexe.size;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsexe.copyfrom(fsini,0);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;showmessage('文件合并成功);<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;finally<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsexe.free;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;fsini.free;&nbsp;&nbsp;&nbsp;<br>&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;end;
 
http://www.delphibbs.com/delphibbs/dispq.asp?lid=1561339<br>http://www.delphibbs.com/delphibbs/dispq.asp?lid=643213
 
用资源文件RES的办法吧
 

Similar threads

S
回复
0
查看
3K
SUNSTONE的Delphi笔记
S
S
回复
0
查看
2K
SUNSTONE的Delphi笔记
S
I
回复
0
查看
494
import
I
I
回复
0
查看
718
import
I
顶部