przeciąganie plików

hey ho
mam pytanko
jak przeciągnąć plik z jednej pozycji (x1,y1) na pulpicie w drugą (x2,y2)
robiłem to tak, ale nie działa

  CurrentWindow := GetForegroundWindow; 
  GetCursorPos(CurrentPos); 
  SetForegroundwindow(Foreground);
  SetCursorPos(x1,y1);  

  mouse_event(MOUSEEVENTF_LEFTDOWN, x1, y1, 0, 0);
  SetCursorPos(x2,y2);

  mouse_event(MOUSEEVENTF_LEFTUP, x2, y2, 0, 0);
  CurrentWindow := GetForegroundWindow; 
  GetCursorPos(CurrentPos); 

  SetForegroundWindow(Currentwindow);  
  SetCursorPos(CurrentPos.X, CurrentPos.Y); 

i drugie pytanko, jak przeciągnąć te pliki z pulpitu do otwartego folderu (niezmaksymalizowanego :) )

widzę, że chyba ciężka sprawa...
ale liczę, że ktoś coś podpowie

pzodro