Вот есть процдуры findfirst, findnext, filsearch. А есть ли процедура которая ищет файл не в каталоге а вообще на диске? Вот вроде стандарного поиска в пуск-> найти.

ИМХО, стандартной нет, нужно пребирать каталоги.

Вот в нашем ФАКЕ первый вопрос: тут

А как результат отобразить в tlistbox? Т.е все найденные файлы.
И ещё, этот поиск находит все файлы вообще в директории, а как именно 1 файл, который к примеру я укажу в tedit?

Посмотри пример в нашем FAQ... и подумай как его прикрутить к твоему случаю - там всё просто.

Есть FileSearch()
В Д5 (что странно в Д6 её нет) есть и АПИ ф-ия.

Цитата(Song @ 21.2.2003, 16:05)

Есть FileSearch() В Д5 (что странно в Д6 её нет) есть и АПИ ф-ия.

Есть и в Д6 и в Д7

Цитата(Song @ 21.2.2003, 15:05)

Есть FileSearch()

Век живи - век учись! Даже не подозревал о такой функции. Спасибо Song!

Лично я всегда пользовался следующим:

var
FFileName:string;

function GetDirectoryName(Dir: String): String;
begin
if Dir[Length(Dir)]<> '\' then
Result := Dir+'\'
else
Result := Dir;
end;

procedure FindFiles(APath: String);
var
FSearchRec,
DSearchRec: TSearchRec;
FindResult: integer;
s:String;
sa:string;
function IsDirNotation(ADirName: String): Boolean;
begin
Result := (ADirName = '.') or (ADirName = '..');
end;
begin
Application.ProcessMessages;
APath := GetDirectoryName(APath);
FindResult := FindFirst(APath+FFileName,faAnyFile+faHidden+
faSysFile+faReadOnly,FSearchRec);
while FindResult = 0 do
begin
Form1.ListBox1.Items.Add(APath + FSearchRec.Name);
Application.ProcessMessages;
FindResult := FindNext(FSearchRec);
end;
FindResult := FindFirst(APath+'*.*', faDirectory, DSearchRec);
while FindResult = 0 do
begin
Application.ProcessMessages;
if ((DSearchRec.Attr and faDirectory) = faDirectory) and not
IsDirNotation(DSearchRec.Name) then
FindFiles(APath+DSearchRec.Name);
FindResult := FindNext(DSearchRec);
end;
FindClose(FSearchRec);
end;

procedure TForm1.Btton1Click(Sender:TObject);
begin
ListBox1.Items.Clear;
FFileName:=Edit1.text;
FindFiles(DirEdit1.Text);
end;

2SmaLL
FileSearch() я знаю что есть.
Я говорил про "аналогичную АПИ ф-ию" т.е. это FindFileInTree()

Цитата(Song @ 22.2.2003, 03:45)

2SmaLL FileSearch() я знаю что есть. Я говорил про "аналогичную АПИ ф-ию" т.е. это FindFileInTree()

А ты не пробовал поискать эту ф-ю FindFileInTree в виндах? Я чЁ-то не нашЁл, хотя в дельфовом хэлпе WinAPI она описана. (Win2k)

В Д5 она описана. В Д6 нет.

В D7 она описана