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

---

原理分析:

這需要用到 ShellAPI 單元的兩個(gè)函數(shù): DragAcceptFiles、DragQueryFile;

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

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

---

代碼文件:

---

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{先獲取拖拽的文件總數(shù)}count := DragQueryFile(message.Drop, $FFFFFFFF, nil, 0);{分別獲取文件名}for i := 0 to count-1 dobeginDragQueryFile(message.Drop, i, p, SizeOf(p));Memo1.Lines.Add(p); {既然知道了文件名, 當(dāng)然也可以隨手打開它}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

轉(zhuǎn)載于:https://www.cnblogs.com/del/archive/2009/01/20/1379130.html

創(chuàng)作挑戰(zhàn)賽新人創(chuàng)作獎(jiǎng)勵(lì)來咯，堅(jiān)持創(chuàng)作打卡瓜分現(xiàn)金大獎(jiǎng)

總結(jié)

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

如果覺得生活随笔網(wǎng)站內(nèi)容還不錯(cuò)，歡迎將生活随笔推薦給好友。