Перетащить файл в свою программу

← →
Nikfel © (2007-08-24 12:34) [0]

Подскажите пожалуйста. Как с помощью мыши перетаскивать файлы в свою программу с получением полного пути к файлу. Многие программы обладают этой возможностью, но как это делается не знаю. Заранее спасибо.

← →
Eraser © (2007-08-24 13:11) [1]

http://www.google.ru/search?hl=ru&q=delphi+%D0%BF%D0%B5%D1%80%D0%B5%D1%82%D0%B0%D1%89%D0%B8%D1%82%D1%8C+%D1%84%D0%B0%D0%B9%D0%BB+%D0%B2+%D0%BF%D1%80%D0%BE%D0%B3%D1%80%D0%B0%D0%BC%D0%BC%D1%83&btnG=%D0%9F%D0%BE%D0%B8%D1%81%D0%BA+%D0%B2+Google&lr=

← →
Anatoly Podgoretsky © (2007-08-24 13:37) [2]

> Nikfel (24.08.2007 12:34:00) [0]

Этой возможностью обладаю все программы, поскольку это реализуется не программой, а ОС

← →
alshtam © (2007-08-24 13:41) [3]

ищи в сторону drag&drop

← →
capkoh © (2007-08-24 14:25) [4]

Нужно установить extended стиль окна WS_EX_ACCEPTFILES, и обрабатывать сообщение WM_DROPFILES. Внутри обработчика можно достать полный путь. Работает и с группой файлов, конечно.

← →
clickmaker © (2007-08-24 14:33) [5]

DragAcceptFiles(Form.Handle, true) - альтернатива WS_EX_ACCEPTFILES

← →
Nikfel © (2007-08-27 13:15) [6]

Посмотрите ссылку ниже, никак не могу понять код.
http://articles.org.ru/cfaq/index.php?qid=285&frommostrecent=yes
В коде откуда берется dragacceptfiles,dragqueryfile,dragfinish. У меня нет таких функций и процедур. Возможно надо установить стиль окна WS_EX_ACCEPTFILES, но как установить такой стиль не понятно.

← →
Сергей М. © (2007-08-27 13:20) [7]

uses ShellAPI

← →
Nikfel © (2007-08-27 13:50) [8]

Почему не выполняется procedure wmdropfiles. Видно я что-то упустил.

> Почему не выполняется procedure wmdropfiles. Видно я что-
> то упустил.

Видимо

Всем большое спасибо. Вроде разобрался. Вставил в FormActivate код:
showwindow(form1.Handle,WS_EX_ACCEPTFILES);
dragacceptfiles(form1.handle, true);
Теперь все работает.

> showwindow(form1.Handle,WS_EX_ACCEPTFILES);

это зачем? WS_EX_ACCEPTFILES - стиль, а не вид отображения
достаточно 2-й строчки

Перетащить файл в свою программу Найти похожие ветки