アイコンへのドラッグ＆ドロップ (ID:5871)

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文

修正してみました。

以下ソースです。（確認していません。。）

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs,ShellApi,StdCtrls;

type
  TForm1 = class(TForm)
    ListBox1: TListBox;
    procedure FormCreate(Sender: TObject);
  private
    { Private 宣言 }
    procedure WMDropFiles(var Msg : TWMDROPFILES);  message WM_DROPFILES;
  public
    { Public 宣言 }
  end;

var
   frmMain: TForm1;

implementation

procedure TForm1.FormCreate(Sender: TObject);
 begin
   { ファイルドロップの受け入れ }
   DragAcceptFiles(Handle, true);
 end;

{ この手続きはすべて手書きします }
 procedure TForm1.WMDropFiles(var Msg : TWMDropFiles);
 var
   FileName  : array [0..255]  of  char;
   ix        : integer;
   intFiles  : integer;
 begin
   { いくつのファイルをドロップされたか調べます ]
   intFiles  :=  DragQueryFile(Msg.Drop, $FFFFFFFF, FileName, SizeOf(FileName));
   { すべてのファイル名をリストボックスに追加します }
   for  ix  :=  0  to  intFiles  - 1  do
   begin
     DragQueryFile(Msg.Drop, ix, FileName, SizeOf(FileName));
     { リストへの追加 }
     ListBox1.Items.Add (FileName);
   end;
   DragFinish(Msg.Drop);
 end;
end.

←解決時は質問者本人がここをチェックしてください。

戻る