Dear All： 我已經可以做到比如當檔案是大於 5MB的時候將檔名更改並另存，並再放一個空的檔案放在相同的地方。 我的問題 要如何讓程式一直監控著檔案的大小 一旦超過設定的數值就做複製及另存？？

如果不需要把程序做成系统服务，则可以简单地采用TTimer控件，将其Interval属性设置时间短一些，例如2000毫秒，然后作如下代码控制： unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls; type TForm1 = class(TForm) Timer1: TTimer; procedure FormCreate(Sender: TObject); procedure Timer1Timer(Sender: TObject); private { Private declarations } DynamicFile: file of byte; public { Public declarations } end; var Form1: TForm1; implementation {$R *.dfm} procedure TForm1.FormCreate(Sender: TObject); begin AssignFile(DynamicFile,'source.txt'); end; procedure TForm1.Timer1Timer(Sender: TObject); begin reset(DynamicFile); if filesize(DynamicFile) > 5000000 then begin copyfile('source.txt','destnination.txt',false); copyfile('empty.txt','source.txt',false); end; closefile(DynamicFile); end; end.

這樣會有問題 1.openfile shared的問題 2.即使可以shared open,因為fileopen時,其append 使file end point是假的 產生很多問題,所有還只能讀取與監控unopen 的file來監控