คัดลอกรหัสรหัสดังต่อไปนี้:
//ตรวจสอบว่าไฟล์ถูกใช้หรือไม่
ฟังก์ชั่น FileINUse (ชื่อไฟล์: String): บูลีน;
var
ใช้ใน: ไฟล์;
เริ่ม
ผลลัพธ์:=เท็จ;
มอบหมายไฟล์ (usein, ชื่อไฟล์);
พยายาม
รีเซ็ต (ใช้อิน);
ยกเว้น
บน E:EInOutError ทำ
เริ่ม
ถ้า e.ErrorCode=32 แล้ว
เริ่ม
ผลลัพธ์:=จริง;
ออก;
จบ;
จบ;
จบ;
closefile(ใช้อิน);
จบ;
ขั้นตอน TForm1.Button1Click (ผู้ส่ง: TObject);
ถ้า OpenDialog1.Execute แล้ว
เริ่ม
ถ้า fileInuse(OpenDialog1.filename) แล้ว
ShowMessage('ไฟล์ถูกใช้งาน')
อื่น
ShowMessage('ไม่ได้ใช้');
จบ;