問題來源: http://www.cnblogs.com/del/archive/2009/01/20/1353117.html#1435746

---

原理分析:

這需要用到 ShellAPI 單元的兩個函數: DragAcceptFiles、DragQueryFile;

用 DragAcceptFiles(窗口句柄, True); 以讓窗口能夠接受拖放;

然后就等待 WM_DROPFILES 消息, 并用 DragQueryFile 函數處理消息參數, 從而獲取信息.

---

代碼文件:

---

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Memo1: TMemo;procedure FormCreate(Sender: TObject);protectedprocedure WMDropFiles(var Message: TWMDropFiles); message WM_DROPFILES;end;varForm1: TForm1;implementation{$R *.dfm}uses ShellAPI;procedure TForm1.FormCreate(Sender: TObject); beginDragAcceptFiles(Handle, True); end;procedure TForm1.WMDropFiles(var Message: TWMDropFiles); varp: array[0..255] of Char;i,count: Integer; begin{先獲取拖拽的文件總數}count := DragQueryFile(message.Drop, $FFFFFFFF, nil, 0);{分別獲取文件名}for i := 0 to count-1 dobeginDragQueryFile(message.Drop, i, p, SizeOf(p));Memo1.Lines.Add(p); {既然知道了文件名, 當然也可以隨手打開它}end; end;end.
窗體文件:

---

object Form1: TForm1Left = 0Top = 0Caption = 'Form1'ClientHeight = 154ClientWidth = 261Color = clBtnFaceFont.Charset = DEFAULT_CHARSETFont.Color = clWindowTextFont.Height = -11Font.Name = 'Tahoma'Font.Style = []OldCreateOrder = FalseOnCreate = FormCreatePixelsPerInch = 96TextHeight = 13object Memo1: TMemoLeft = 0Top = 0Width = 261Height = 129Align = alTopLines.Strings = ('Memo1')ScrollBars = ssBothTabOrder = 0end end

轉載于:https://www.cnblogs.com/del/archive/2009/01/20/1379130.html

創作挑戰賽新人創作獎勵來咯，堅持創作打卡瓜分現金大獎

總結

以上是生活随笔為你收集整理的让窗体接受拖放, 并获取拖过来的文件信息 - 回复 海浪问 的问题的全部內容，希望文章能夠幫你解決所遇到的問題。

如果覺得生活随笔網站內容還不錯，歡迎將生活随笔推薦給好友。