关于文件保存。

Question

如何在不加载目标文件的情况下累记保存源文件到目标文件中。谢谢！

Answer 1

FHandle:=fileopen('c:\OutSlog.txt',fmOpenWrite);
  fileseek(FHandle,0,2);
  filewrite(FHandle,s[1],length(s));
  fileclose(FHandle);

Answer 2

这是demo，我没有只能用txt文件，为什么就不能试一下非txt文件呢
procedure OpenForShare(const FileName: String);var
  FileHandle : Integer;
begin
  FileHandle := FileOpen(FileName, fmOpenWrite or fmShareDenyNone);
  if FileHandle > 0 then
    {valid file handle}
  else
    {Open error: FileHandle = negative DOS error code}
end;