Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Вниз

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


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]

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



igorr   (2002-03-24 07:25) [9]

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


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



Anatoly Podgoretsky   (2002-03-24 10:54) [10]

igorr © (24.03.02 07:25)
Вот жадные дядьки :))

Ну причем тут жадные, вопрос то у него КАК писать программы



Poirot   (2002-03-24 13:19) [11]


> drpass ©

А издательство и полное название не подскажите,,,




Форум: "Основная";
Поиск по всему сайту: delphimaster.net;
Текущий архив: 2002.04.04;
Скачать: [xml.tar.bz2];




Наверх





Память: 0.73 MB
Время: 0.029 c
3-9383            Sregnic               2002-03-12 12:43  2002.04.04  
Странность при соединении таблиц.


1-9559            olookin               2002-03-24 15:23  2002.04.04  
И для математиков


1-9567            VBill                 2002-03-19 16:55  2002.04.04  
Как узнать какая программа загрузила мою DLL?


1-9532            Ирина                 2002-03-22 15:35  2002.04.04  
Метод WriteBinaryData


1-9520            snoup                 2002-03-23 09:14  2002.04.04  
Кидаю на форму TEdit и кнопку в OnButtonClick пишу: Shellexecute(handle,nil, edit1.text ,nil,nil,SW_SHow);