1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:

interface

uses
  { ... }
 ShellApi;

type
 { ... }
    protected
      procedure WMDROPFILES(var Msg: TMessage); message WM_DROPFILES;
  end;

{ ... }

implementation

{$R *.dfm}

// Drag und Drop von Explorer übernehmen
procedure TFQuickShred.WMDROPFILES(var Msg: TMessage);
var
  i, anzahl, size : integer;
  Dateiname : PChar;
begin
  inherited;
  anzahl:=DragQueryFile(Msg.WParam,$FFFFFFFF,Dateiname,255);
  for i:=0 to (anzahl-1) do
  begin
    size:=DragQueryFile(Msg.WParam,i,nil,0)+1;
    Dateiname:=StrAlloc(size);
    DragQueryFile(Msg.WParam,i,Dateiname,size);
    ListBox.Items.Add(ExtractFileName(StrPas(Dateiname)));
    StrDispose(Dateiname);
  end;
  DragFinish(Msg.WParam);
end;

{ ... }

procedure TFQuickShred.FormCreate(Sender: TObject);
begin

{ ... }

  // Drag and Drop erlauben
  DragAcceptFiles(FQuickShred.Handle,True);
end;