Как написать прогу которая бы искала указаный файл на винте???

← →
snoup © (2002-03-23 18:13) [0]

← →
Anatoly Podgoretsky © (2002-03-23 18:21) [1]

Обычно программы пишутся руками, с помощью какого либо инструмента и с помощью одного или нескольких языков программирования

← →
snoup © (2002-03-23 19:30) [2]

Спасибо, я понимаю но я не этого ожидал увидеть! Я ожидал помощь и примеры!

← →
Fay © (2002-03-23 19:45) [3]

1) 2+3=
2) 18/3=
3) sin(2)=

← →
snoup © (2002-03-23 20:18) [4]

>Fay
Не понял! Поясни!

← →
Anatoly Podgoretsky © (2002-03-23 20:21) [5]

Какие примеры, у тебя пока ни одного вопроса, крому того как писать прогрвммы

← →
snoup © (2002-03-23 21:55) [6]

Исходники

← →
SPeter © (2002-03-23 23:41) [7]

function FindFirst(const Path: string; Attr: Integer; var F: TSearchRec): Integer;
Attr- атрибуты файла, например faAnyFile- любой файл, faArchive- архивный, faHidden- скрытый.
F- переменная типа TsearchRec, в нее дельфи запихивает все хар-ки найденного файла.
Например: FindFirst (‘*.exe’,faAnyFile,sr);
Sr.Name- имя найденного файла
Sr.Size- его размер.
Чтобы искать следующий такой же файл, пиши FindNext (Sr);
Если файл найден, то процедуры FindFirst и FindNext возвращают 0.

← →
drpass © (2002-03-23 23:59) [8]

Угу. И энто надо делать рекурсивно по всем папкам.
А лучше сперва почитай книжку Кнута "Алгоритмы и программы" - тогда меньше глупых вопросов будет.

Вот жадные дядьки :))
Бери

procedure TForm1.FindFiles(APath:String); var FSearchRec,DSearchRec: TSearchRec; FindResult: Integer; Function IsDirNotation(ADirName:String):Boolean; begin {passing to high level?} Result:=(ADirName=".") or (ADirName=".."); end; begin APath:=GetDirectoryName(APath); FindResult:=FindFirst(APath+FFileName,faAnyFile,FSearchRec); try while FindResult=0 do {while success do} begin lbFiles.Items.Add(LowerCase(APath+FSearchRec.Name)); LFiles.Caption:=IntToStr(StrToInt(LFiles.Caption)+1); FindResult:=FindNext(FSearchRec); end; FindResult:=FindFirst(APath+"*.*",faDirectory,DSearchRec); while FindResult=0 do begin if (DSearchRec.Attr=faDirectory) and not IsDirNotation(DSearchRec.Name) then begin LDir.Caption:=IntToStr(StrToInt(LDir.Caption)+1); FindFiles(APath+DSearchRec.Name); end; FindResult:=FindNext(DSearchRec); end; finally FindClose(FSearchRec); end; end;

У меня же такой вопрос.
Как найденные файлы удалить?
См. сабж: Удаление файлов (24.03.02 7:11)
http://delphi.mastak.ru/cgi-bin/forum.pl?look=1&id=1016943076&n=0

Как написать прогу которая бы искала указаный файл на винте??? Найти похожие ветки