[cyborgg4655]

Какой элемент использовать чтобы можно было выбрать папку, и узнать путь ко всем файлам что в ней есть? Ну и скажем записать их в лист бокс или ещё куда либо?

[Страдалецъ]

Если список файлов, то явно OpenDialog использовать. А если еще и опцию MultiSelect в нем выбрать, можно и конкретные файлы будет выбрать.

[cyborgg4655]

Сообщение от Страдалецъ

Если список файлов, то явно OpenDialog использовать. А если еще и опцию MultiSelect в нем выбрать, можно и конкретные файлы будет выбрать.

А путь к файлам как записать допустим в листбокс?

[Страдалецъ]

Код:

 OpenDialog1.Options := OpenDialog1.Options + [ofAllowMultiSelect];
 if not OpenDialog1.Execute then Exit;
 Edit1.Text := ExtractFilePath(OpenDialog1.FileName);
 ListBox1.Items := OpenDialog1.Files;

Зачем записывать в ListBox путь к файлам? Ведь он для всех файлов будет один и тот же. А вот имена файлов без указания пути - вполне имеет смысл.

[cyborgg4655]

Дак мне просто нужно чтобы человек выбирал файлы, а потом пути к этим файлам сохранялись. чтобы потом их можно было вставить в другой опендиалог)

[Страдалецъ]

Ха, это так просто не делается. Стандартный OpenDialog предполагает выбор файла/файлов из одной конкретной папки. Что-бы реализовать, то что вы хотите придется собирать свой диалог из компонентиков.

[Страдалецъ]

Скажем с помощью ShellTreeView, ShellListView и ListView можно вполне красиво это реализовать.

[cyborgg4655]

Сообщение от Страдалецъ

Ха, это так просто не делается. Стандартный OpenDialog предполагает выбор файла/файлов из одной конкретной папки. Что-бы реализовать, то что вы хотите придется собирать свой диалог из компонентиков.

Я уже все сделал)) Очень даже просто, мультиселектом выбираю файлы, их путь автоматом пишется в memo, а потом я их оттуда вытягиваю так memo1.lines[N]. Но вот не просто их вставлять в опен диалог, во первых это опендиалог сайта, во втроых надо копировать в буфер обмена memo1.lines[N] и когда опедиалог открывается эмитировать нажатие Ctrl+V, более просто выхода из ситуации пока не нашел)) Осталось тока понять как в буфер обмена копировать занчение memo1.lines[N]... Ты случайно не знаешь как это сделать?

[Страдалецъ]

Подключить модуль Clipbrd и использовать переменную Clipboard примерно так:
...

Код:

 Clipboard.Open;
 Clipboard.SetTextBuf(PChar(Memo1.Lines[N]));
 Clipboard.Close;

[cyborgg4655]

Сообщение от Страдалецъ

Подключить модуль Clipbrd и использовать переменную Clipboard примерно так:
...

Код:

 Clipboard.Open;
 Clipboard.SetTextBuf(PChar(Memo1.Lines[N]));
 Clipboard.Close;

Спасибо, я тоже только что нашел как это сделать)))