Drag&drop Файлов: Shift - Вырезаем, Alt - Делаем Ярлык. Как?

[kuzduk]

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

kuDrag(для захвата из своей программы):

Ссылка скрыта от гостей

kuDrop(для бросания в свою программу):

Ссылка скрыта от гостей

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

 

[kuzduk]

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

 

[kuzduk]

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

 

[planetoxod]

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

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