Как Перетащить файлы из своей программы наружу?

[kuzduk]

как Drag'n'Drop-нуть файлы из своей программы в проводник?


DragIn - перетаскиваю в свою прогу так:
http://delphiworld.narod.ru/base/wm_dropfiles.html


А как сделать DragOut?


1. на форме TListView.

2. В нём список файлов из определённой папки.

3. Когда с TListView присходит событие DragOver, то генерируется список полных адресов файлов отображаемых в этом TListView в переменную DataPaths: TStrings.

4. Далее Винде надо как-то дать понять, что Drag таких-то файлов(DataPaths) начался. Чтоб потом, при отпускании мыши, осуществился Drop во внешний приёмник(например рабочий стол).




procedure TForm1.ListView1DragOver(Sender, Source: TObject; X, Y: Integer; State: TDragState; var Accept: Boolean);
begin

Drag_Out( DataPaths );
//Вот эта функция каким то макаром должна пояснять винде,
//что файлы начали тащить и потом их надо будет копировать туда, куда отпустят мышь(например Рабочий стол или Explorer или кака другая принималка).
//HELP!!!

end;






Функцию представляю так:

Drag_Out(const DataPaths: TStrings);
begin

//HELP!

end;

[MeTeOpA]

http://it.kgsu.ru/DelCOM/com_0012.html
http://forum.sources.ru/index.php?showtopic=269383

пробуй...

[kuzduk]

Наконец то проблема решена!

вот так можно перетащить файлы из своей программы в проводник: http://kuzduk.narod.ru/_dragdrop.html



также смотрим другие мои полезные модули: http://kuzduk.narod.ru/_tvor.html

[kuzduk]

Очень просто Drag&Drop-нуть файлы из своей программы в проводник с помощью этих модулей:

kuDrag(для захвата из своей программы): http://kuzduk.narod.ru/_drag.html
kuDrop(для бросания в свою программу): http://kuzduk.narod.ru/_drop.html

[Perchik71]

Я лично юзал Shell там удобнее..