انسخ رمز الكود كما يلي:
// تحديد ما إذا كان الملف قيد الاستخدام أم لا
وظيفة FileINUse(filename:String):boolean;
فار
الاستخدام في:ملف؛
يبدأ
النتيجة:=خطأ؛
assefile(usein,FileName);
يحاول
إعادة تعيين(يوسين);
يستثني
على E:EInOutError افعل
يبدأ
إذا كان e.ErrorCode=32 إذن
يبدأ
النتيجة:=صحيح؛
مخرج؛
نهاية؛
نهاية؛
نهاية؛
ملف مغلق(usein);
نهاية؛
الإجراء TForm1.Button1Click(Sender: TObject);
إذا OpenDialog1.Execute بعد ذلك
يبدأ
إذا fileInuse(OpenDialog1.filename) ثم
ShowMessage('الملف قيد الاستخدام')
آخر
ShowMessage('غير مستخدم');
نهاية؛