【Delphi】实现接收系统拖动文件（第一种方法）

在 Delphi 中，可以通过以下步骤来实现将文件夹中的文件拖动到 Form 上，并在拖动时显示文件类型的光标。我们可以利用 VCL 中的 Drag and Drop 机制来处理拖动操作，以及自定义光标显示。

以下是详细的步骤和代码示例：

实现步骤：

1. 启用 Form 的拖动功能。
2. 监听 OnDragOver 和 OnDrop 事件，处理拖放操作。
3. 获取拖放文件路径信息。
4. 根据拖放文件的类型，显示相应的光标。

代码实现：

        正确的做法是在 Form 上通过消息映射 (Message Handling) 来捕获 WM_DROPFILES 消息，然后在 FormDragDrop 中处理拖放的文件

uses
  ShellAPI, System.SysUtils, Vcl.Graphics;

type
  TForm1 = class(TForm)
    procedure FormCreate(Sender: TObject);
    
  private
   procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}

procedure TForm1.FormCreate(Sender: TObject);
begin
  // 允许拖放操作
  DragAcceptFiles(Handle, True);
end;



// 处理文件拖放的消息
procedure TForm1.WMDropFiles(var Msg: TWMDropFiles);
var
  DroppedFilesCount, i: Integer;
  FileName: array[0..MAX_PATH] of Char;
  FilePath: string;
begin
  // 获取拖放的文件数量
  DroppedFilesCount := DragQueryFile(Msg.Drop, $FFFFFFFF, nil, 0);

  // 遍历所有拖放的文件
  for i := 0 to DroppedFilesCount - 1 do
  begin
    // 获取每个文件的完整路径
    DragQueryFile(Msg.Drop, i, FileName, MAX_PATH);
    FilePath := FileName;

    // 在这里处理拖放的文件，比如显示文件路径
    ShowMessage('Dropped file: ' + FilePath);
  end;

  // 释放与拖放操作相关的内存
  DragFinish(Msg.Drop);
end;

end.

解释：

注意：

1. 解释：

2. DragAcceptFiles(Handle, True)：启用拖放功能，允许 Form 接受文件拖放。

3. procedure WMDropFiles(var Msg: TWMDropFiles); message WM_DROPFILES;：这个方法用于处理 Windows 的 WM_DROPFILES 消息，TWMDropFiles 是一个 Delphi 定义的消息结构，它包含了拖放文件的句柄。

4. 在 FormCreate 中启用了文件拖放，使用了 DragAcceptFiles 函数来使窗口接受拖放操作。
5. WMDropFiles 是处理文件拖放消息的核心，确保接收并处理文件路径。

   • Msg.Drop：这是 TWMDropFiles 结构中包含的文件拖放句柄。通过它，我们可以使用 DragQueryFile 获取文件路径。

   • DragFinish(Msg.Drop)：释放与拖放操作相关的内存。

在 Delphi 中，DragQueryFile 和 DragFinish 是 Windows API 函数，用于处理文件拖放操作。这些函数定义在 Winapi.ShellAPI 单元中，因此在使用这些函数时，你需要确保在 uses 部分中包含该单元。