函數的調用方法：IsFileInUse(要判斷的文件路徑); 如果函數返回True 則正在使用,False則文件現在沒被使用

?

實例：清

//Iswrite := IsFileInUse(Edit3.text+'/Rupsmon.dat.txt');

???? //把logLines的日志保留logCount行

//??????? if logLines > logCount then
//??????????? begin
//???????????? ShowMessage(inttostr(logLines));
//?????????????? for i:=1 to logLines-logCount do
//???????????????? begin
//????????? ???? with?? TStringList.Create?? do
//????????? ???? try
//????????? ????? LoadFromFile(Edit3.text+'/Rupsmon.dat.txt');//FileNamew為你的文本文件名稱
//????????? ????? Delete(1);//n為你想要刪除的行，0代表第一行。
//????????? ????? SaveToFile(Edit3.text+'/Rupsmon.dat.txt');
//????????? ???? except
//????????? ????? Free;
//????????? ???? end;
//???????????????? end;
//???????????? end;