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:

unit Unit1;

interface

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

type
  TForm1 = class(TForm)
    Memo1: TMemo;
    procedure FormCreate(Sender: TObject);
    procedure FormDestroy(Sender: TObject);
    procedure OFD(filename:string);
  private
    { Private-Deklarationen }
  public
    { Public-Deklarationen }
  end;

var
  Form1: TForm1;
  drop : TonfileDrop;

implementation

{$R *.dfm}

procedure TForm1.OFD(filename:string);
begin
   memo1.lines.add(filename);
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
  drop := tonfiledrop.Create(Memo1);
  drop.OnFileDrop := OFD;
end;

procedure TForm1.FormDestroy(Sender: TObject);
begin
  drop.free;
end;

end.                    

1:
2:
3:
4:

procedure TForm1.OnFileDrop1FileDrop(filename: String);
begin
  memo1.Lines.Add(filename);
end;                    

1:
2:
3:
4:
5:
6:
7:
8:

// im interface -teil
function PathMatchSpecA(pszFile, pszSpec: PAnsiChar): Boolean; stdcall; external 'shlwapi.dll';
// ...

procedure TForm1.OnFileDrop1FileDrop(filename:string); 
begin 
   if pathmatchspecA(pchar(filename), '*.mp3') then memo1.lines.add(filename); 
end;                    

1:
2:
3:
4:

procedure TForm1.OnFileDrop1FileDrop(filename:string); 
begin 
   memo1.lines.add(extractfilename(filename)); 
end;                    

1:

POnFileDrop = ^TOnFileDrop;                    

1:

extractfilename(ChangeFileExt(FileName,''))                    

1:

[Fataler Fehler] ShellFileDrop.pas(1): Das Programm oder die Unit 'ShellFileDrop.pas' ruft sich selbst wieder auf