وبلاگ شخصی حامد شیرزاد
وبلاگ شخصی حامد شیرزاد
صفحات وبلاگ
نویسنده: حامد شیرزاد - ۱۳٩٠/٧/۱٥
uses SysUtils;

procedure TForm1.Button1Click(Sender: TObject);
var
  SearchRec: TSearchRec;
begin
  if FindFirst('C:\WINDOWS\*.INI', faAnyFile and not
     (faVolumeID or faDirectory), SearchRec) = 0 then
  begin
    repeat
      // Here we process each fond file.
      // Its info is in SearchRec.
    until FindNext(SearchRec) <> 0;
    FindClose(SearchRec);
  end;
end;
نویسندگان وبلاگ:
مطالب اخیر:
کدهای اضافی کاربر :