JS-Code, um festzustellen, ob die Datei verwendet wird

Kopieren Sie den Codecode wie folgt:

//Bestimmen Sie, ob die Datei verwendet wird

function FileINUse(filename:String):boolean;

var

usein:file;

beginnen

Ergebnis:=false;

zuweisenfile(usein,Dateiname);

versuchen

zurücksetzen(Usein);

außer

auf E:EInOutError tun

beginnen

wenn e.ErrorCode=32 dann

beginnen

Ergebnis:=true;

Ausfahrt;

Ende;

Ende;

Ende;

closefile(usein);

Ende;

procedure TForm1.Button1Click(Sender: TObject);

wenn OpenDialog1.Execute dann

beginnen

if fileInuse(OpenDialog1.filename) dann

ShowMessage('Datei wird verwendet')

anders

ShowMessage('nicht verwendet');

Ende;