Поиск

← →
Sam Stone (2002-10-05 20:51) [0]

Возникла такая проблема - надо пройтись по всем папкам винды в поисках файла(exe,dll,ocx), а как сделать не знаю :(. Будте добры, помогите алгоритмом.

← →
rhf © (2002-10-05 22:39) [1]

findFirst/Next + рекурсия
посмотрите любой пример копирования/удаления каталога (есть в FAQ)

← →
Supra (2002-10-05 22:46) [2]

Я кстати насчёт этого тоже хотел спросить: как искать папки рекурсивно. Что такое рекурсия вообще???

← →
Xtreme (2002-10-05 22:58) [3]

Вирь хочеш написать? :о) Ладно...
Cмотри пример:

program FindIn;
uses SysUtils;
var f:TextFile;
d:boolean;
function fFindIn(s,ex:string):string;
var sr:tSearchRec;
r:integer;
begin
r:=FindFirst(s+ex,faAnyFile,sr);
repeat
if r=0 then
begin
if (sr.attr=faDirectory)and d and
not((sr.name=".")or(sr.name="..")) then fFindIn(s+sr.name+"\",ex);
if not((sr.name=".")or(sr.name="..")) then Writeln(F,s+sr.name); //Здесь из sr.name выделяешь расширение, и если оно "exe","com","ocx", то заража... ну вообщем, че ты хотел сделать.
end;
r:=FindNext(sr);
until not(r=0);
end;
begin
if ParamCount>1 then
begin
d:=(ParamStr(3)="dir");
AssignFile(F,ParamStr(2));
ReWrite(F);
fFindIn(ParamStr(1),"*.*");
CloseFile(F);
end end.

← →
Sam Stone (2002-10-07 15:30) [4]

> Вирь хочеш написать?

не, винду ужать(упэиксом)

Поиск Найти похожие ветки