監控檔案大小的問題! |
尚未結案
|
rabinson
一般會員 發表:19 回覆:7 積分:5 註冊:2004-02-18 發送簡訊給我 |
|
alanktop
一般會員 發表:7 回覆:21 積分:5 註冊:2005-03-01 發送簡訊給我 |
如果不需要把程序做成系统服务,则可以简单地采用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.
|
brucetsao
一般會員 發表:1 回覆:33 積分:11 註冊:2002-09-11 發送簡訊給我 |
本站聲明 |
1. 本論壇為無營利行為之開放平台,所有文章都是由網友自行張貼,如牽涉到法律糾紛一切與本站無關。 2. 假如網友發表之內容涉及侵權,而損及您的利益,請立即通知版主刪除。 3. 請勿批評中華民國元首及政府或批評各政黨,是藍是綠本站無權干涉,但這裡不是政治性論壇! |