Code JS pour déterminer si le fichier est utilisé

Copiez le code comme suit :

// Détermine si le fichier est utilisé

function FileINUse(filename:String):boolean;

var

utiliser dans: fichier;

commencer

résultat :=faux ;

assignfile(usein,FileName);

essayer

réinitialiser (Utilisation);

sauf

sur E: EInOutError faire

commencer

si e.ErrorCode=32 alors

commencer

résultat :=vrai ;

sortie;

fin;

fin;

fin;

closefile(usein);

fin;

procédure TForm1.Button1Click(Expéditeur : TObject);

si OpenDialog1.Execute alors

commencer

si fileInuse (OpenDialog1.filename) alors

ShowMessage('Le fichier est en cours d'utilisation')

autre

ShowMessage('non utilisé');

fin;