كيف يمكن اختبار الملف autorun.inf المخفي موجود أم لا

[MRS_FPS]

السلام عليكم

كيف يمكن اختبار الملف autorun.inf المخفي موجود فعلا في أحد الأقراص أم لا عن طريق الدلفي

[S.FATEH]

هناك العديد من الحلول كمثال استخدام FindFirst

كود :

procedure TForm1.Button1Click(Sender: TObject); var SearchRec: TSearchRec; begin if FindFirst('c:\autorun.inf', faHidden, SearchRec) = 0 then Edit1.Text := 'File Exists' else Edit1.Text := 'File not found'; end;