delphi 实现拖拽打开文件

步骤如下，delphi 7测试通过

1、在uses 中增加 ShellAPI
2、增加拖拽的消息处理函数

1.   //声明
2.   protected
3.     procedure WMDROPFILES(var Msg : TMessage); message WM_DROPFILES;
5. //实现
6. procedure TForm1.WMDROPFILES(var Msg: TMessage);
7. var a : Integer;
8.    Buffer: Array[0..255] of Char;
9. begin
10.   a := DragQueryFile(Msg.wParam, $FFFFFFFF, Buffer, 255);
11.   for a := 0 to a - 1 do begin    //处理选择多个文件
12.      DragQueryFile(Msg.wParam, a, Buffer, 255);
13.      //文件名就在Buffer里面了，
14.      ShowMessage(Buffer);
15.   end;
16.   DragFinish(Msg.wParam);
17. end;

3、指定接收拖拽的窗口句柄

1. procedure TForm1.FormCreate(Sender: TObject);
2. begin
3.   DragAcceptFiles(Handle, True);//使窗口句柄可以接收拖拽操作
4. end;

说明：上面代码可以使窗口的任何部位都可以接收拖拽文件，包含菜单、按钮、工具条等，photo shop就是窗口的任何部分都可以接收拖拽文件。可以修改FormCreate中的 DragAcceptFiles(Handle, True)函数的第一个参数，这样可以指定一个小的区域来接收拖拽文件，比如一个listbox或memo等，这时需要修改 procedure  WMDROPFILES( var  Msg : TMessage); message WM_DROPFILES; 因为该函数只是处理窗口的拖拽事件，而不处理子窗口的拖拽事件，一个变通的方式是做一个能够处理所有消息的函数，然后从中过滤出拖拽事件。