一个简单得只有我不知道的问题!!! 送分 !!!(40分)

  • 主题发起人 主题发起人 ybsnui
  • 开始时间 开始时间
Y

ybsnui

Unregistered / Unconfirmed
GUEST, unregistred user!
如何编程实现创建一个与指定文件同名而且长度大小为0的文件,并同时能将原文件覆盖???<br>例如:目标文件为snui.exe,大小为99KB。要生成一个大小为0的snui.exe文件,并用其覆盖取代原目标文件。<br>请大虾们不吝赐教!!!!!!!!!
 
声明一个Tfile类型变量,<br>将它标志为snui.exe文件,<br>清空它,再保存,可以了吧
 
procedure OverWrite(AName: String);<br>var<br>&nbsp; F: TFileStream;<br>begin<br>&nbsp; DeleteFile(AName);<br>&nbsp; F:=TFileStream.Create(AName, cmCreate);<br>&nbsp; F.Free;<br>end;<br>
 
不难,只是你为什么要这样做?
 
接受答案了.
 
后退
顶部