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

kuDrag(для захвата из своей программы): http://kuzduk.zz.mu/prog/kuDragDemo.zip
kuDrop(для бросания в свою программу): http://kuzduk.zz.mu/prog/kuDropDemo.zip


Подскажите пожалйста, как допрограммировать чтоб: при перетаскивании при удержании Shift - вырезалось, а при Alt - ярлык содавался?

 

Новые модули к вашим услугам

 

Подскажите пожалйста, как допрограммировать чтоб: при перетаскивании при удержании Shift - вырезалось, а при Alt - ярлык содавался?

 

В Drop е
Вставить файл в проводник
if (GetKeyState(VK_LSHIFT) AND 128)=128 then begin

вырезать в ........
end;