С помощью каких функций (или компонентов) можно просканировать директорию на наличие файлов определенного типа и получить их имена (в т.ч. и полный сетевой путь), чтобы в дальнейшем с ними работать?
например компонент TDriveComboBox не позволяет просматривать содержимое сети, с помощью чего это можно осуществить?

FindFirst/FindNext
FindFirstFile/FindNextFile

Цитата(Kusik @ 9.12.2005, 15:17)

С помощью каких функций (или компонентов) можно просканировать директорию на наличие файлов определенного типа и получить их имена

FindFirst, FindNext

Цитата(Kusik @ 9.12.2005, 15:17)

например компонент TDriveComboBox не позволяет просматривать содержимое сети

Он показывает только список дисков.

Цитата(Kusik @ 9.12.2005, 15:17)

с помощью чего это можно осуществить?

Смотря что ты хочешь получить в итоге.
Диалог? Заполнить список? Выбрать файл?

мне нужно анализировать файлы, которые лежал по сети на другом компьютере, причем названия файлов я знать не могу, только могу знать папку где они лежат.
с помощью чего можно задать сетевую папку как источник хранения файлов, чтобы потом получать полный их список?
т.е. единоразово указать папку-хранилище и комп на котором она находится, а дальше получать список файлов и каждый по отдельности обрабатывать. (использовать их только для чтения и анализа содержимого)

Цитата(Kusik @ 9.12.2005, 15:30)

с помощью чего можно задать сетевую папку как источник хранения файлов

Смотря как задавать. Если программно, то просто в любую string переменную.
Если спросить у пользователя, то поле Edit или диалог выбора каталога.

Цитата(Kusik @ 9.12.2005, 15:30)

чтобы потом получать полный их список?

Список, как уже было сказано выше, можно получить при помощи FindFirst, FindNext.
Если тебе нужно его нарисовать, то положи на форму FileListBox, в качестве Mask укажи ему:
'\\компьютер\папка\*.*';
Аналогичную маску применять для FindFirst.

Код

procedure ScanDir(path: string); var   sr: TSearchRec;   s:  string;   i:  integer; begin   if FindFirst(path+'*.*',faAnyFile,sr) = 0 then   begin     repeat       if sr.Name[1]='.' then continue;       if sr.Attr=faDirectory then ScanDir(path+sr.Name+'\');       if sr.Attr=faArchive then         Form1.Memo1.Lines.Add(path+sr.Name);     until FindNext(sr) <> 0;   end; end;

Использовать:

Код

ScanDir('\\Computer\MyFolder\');

Этот код выведет в Memo1 список всех файлов на компьютере Computer, в папке MyFolder.

в смысле? расшарь ее и все проблемы...

а с помощью какой функции можно вызвать диалог открытия директории причем сетевой???

Код

function SelectFolder(Handle: THandle): string; var   bi: TBrowseInfo;   s: PChar;   PIDL, ResPIDL: PItemIDList; begin   SHGetSpecialFolderLocation(Handle, CSIDL_DESKTOP, PIDL);   s := StrAlloc(128);   bi.hwndOwner := Handle;   bi.pszDisplayName := s;   bi.lpszTitle := 'Выбор прапки';   bi.pidlRoot := PIDL;   bi.lpfn := addr(CallBack);   ResPidl := SHBrowseForFolder(BI);   SHGetPathFromIDList(ResPidl, s);   result:=s; end;

TBrowseInfo это где на него ссылаться?
и какой хендл передавать в функцию?

Цитата(Kusik @ 12.12.2005, 15:11)

TBrowseInfo это где на него ссылаться?

В uses указать ShlObj.

Цитата(Kusik @ 12.12.2005, 15:11)

и какой хендл передавать в функцию?

Хэндл формы, из которой вызываешь.

и еще такое CallBack не находит

Это я забыл. Вот:

Код

procedure CallBack(wnd: hWnd; uMsg: UINT; lParam, lpData: LParam) stdcall; begin   SendMessage(wnd, BFFM_ENABLEOK, 0, 1); end;

Спасибо!!!