25-09-2012, 11:39 PM
26-09-2012, 12:47 AM
هناك العديد من الحلول كمثال استخدام 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;