[DeOne]

Код на выбор папки из директории по кнопки.

Это прописано в uses FileCtrl.

Вот сам код:

Код:

procedure TForm1.sButton2Click(Sender: TObject);
var
 Directory: String;
 F: TSearchRec;
begin 
if SelectDirectory('Выбери папку...', '', Directory) then
  begin
    sEdit2.Text:=Directory+'\';
    if length(Form1.sEdit2.text) <> 0 then
          begin
if FindFirst(Form1.sEdit2.text+'*.jpg', faHidden+ faSysFile, F) = 0 then
 begin
 Form1.Memo2.Lines.Add(F.Name);
 Memo2.Lines.Insert(1, Memo2.Lines[0]);
 while FindNext(F) = 0 do Form1.Memo2.Lines.Add(F.Name);
 FindClose(F);
 end;
 end;
  end;
end;

При компиляции вылетает такое:

[Bargest]

Ну и? Это предупреждения (warning), а не ошибки (error). Предупреждения значат, что "ай-ай-ай, нехорошо". Однако работать будет.
Конкретно это предупреждение можно было перевести переводчиком. Специфично для платформы, т.е. на каких-то версиях Windows в теории может не работать.

[DeOne]

Хмм, спасибо.

А есть тогда другие способы выбора папки ?

[Bargest]

А что значит "выбор папки"? Загадать чтоли?

[DeOne]

Ну директорию )

[Bargest]

Диалог выбора директории чтоли показать?

[DeOne]

Что бы нужно было указывать путь не к файлу, а к папке и все названия файлов грузились в мемо

[Bargest]

Да можно и самому набросать, используя FindFirst и FindNext с атрибутом faDirectory (FindFirstFile и FindNextFile с атрибутом FILE_ATTRIBUTE_DIRECTORY если по дзену). Но проще использовать тот, который нашел.

[DeOne]

Вот, очень просто код

Код:

if SelectDirectory('Выберите каталог', 'C,D:\', chosenDirectory)
  then sEdit2.text:=chosenDirectory +'\';

Но как теперь загрузить имена файлов? Буду благодарен, если дашь готовый код

[Bargest]

Через те же FindFirst и FindNext. Их описание - гугл, а применение - яндекс.
Не ленись искать. Общий смысл в твоем же первом посте есть.

[DeOne]

Спасибо, но жаль, что без кода

[Bargest]

Сообщение от DeOne

Спасибо, но жаль, что без кода

От того, что я напишу код, ты ничему не научишься.
Если же САМ найдешь инфу по ключевым словам и разберешься с ней - сможешь применять.

[DeOne]

Так получается мы FileCtrl все равно используем.

[Bargest]

http://docwiki.embarcadero.com/Libra...tils.FindFirst
FindNext там же, в SysUtils.
А дзенские FindFirstFile/FindNextFile вообще из WinAPI, т.е. стандартного интерфейса Windows.
Так что FileCtrl используется только в SelectDirectory. Как от него уйти - я уже написал, можно сделать самому перебор папок. Однако не знаю, чем он тебе мешает.

[DeOne]

Надо мне, что бы не было предупрежднений и ошибок