DELPHI窗体支文件拖拽方法,支持以管理员运行

// 加入此方法

procedure WMDROPFILES(var Msg : TMessage); message WM_DROPFILES;

procedure TForm1.WMDROPFILES(var Msg: TMessage);

var a : Integer;

  Buffer: Array[0..255] of Char;

begin

  //

  a := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 255);

  //处理选择多个文件

  for a := 0 to a - 1 do

  begin

    DragQueryFile(Msg.wParam, a, Buffer, 255);

    //文件名就在Buffer里面了，

    ShowMessage(StrPas(Buffer));

  end;

  DragFinish(Msg.wParam);

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

 // 以管理员运行程序, 需要开启权限, 否则拖拽文件无效

  ChangeWindowMessageFilter(WM_DROPFILES, MSGFLT_ADD);

  ChangeWindowMessageFilter(WM_COPYDATA, MSGFLT_ADD);

  ChangeWindowMessageFilter(WM_COPYGLOBALDATA , MSGFLT_ADD);

  DragAcceptFiles(Handle,True); // 支持拖放文件

 end;

————————————————

原文链接：https://blog.csdn.net/u013495232/article/details/103833234