怎么实现将文件(单个即可)拖到某Label中就把它移动(复制也可)到指定目录

Question

当然可以移(复制)多个文件甚至目录更好
回答时最好来代码嗯...相对于这个分数,要求好像多了点...先谢谢各位了..

Answer 1

先uses shellapi单元
procedure   WMDropFiles(var   Msg:   TWMDropFiles);   message   WM_DROPFILES;
procedure FormShow(Sender: TObject);procedure TForm1.FormShow(Sender: TObject);
begin
DragAcceptFiles(Handle,True);
end;procedure   TForm1.WMDropFiles(var   Msg:   TWMDropFiles);
  var
      AFileName:   array[0..MAX_PATH]   of   Char;
  begin
      try
          if   DragQueryFile(Msg.Drop,   0,   AFileName,   MAX_PATH)   >   0   then
          begin
              //把变量AFileName存放的全路径文件复制到指定目录,这个代码你自己写吧
              Msg.Result   :=   0;
          end;
      finally
          DragFinish(Msg.Drop);
      end;
  end;