Drag & Drop c Win95 Explorer I

Вот что я почерпнул из эхоконференций:

interface

uses

Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms,

Dialogs,

ComCtrls;

type

TForm1 = class(TForm)

procedure FormCreate(Sender: TObject);

private

{ Private declarations }

PROCEDURE FileIsDropped ( VAR Msg : TMessage ) ; Message WM_DropFiles ;

public

{ Public declarations }

end;

var

Form1: TForm1;

implementation
uses
shellapi;
{$R *.DFM}

procedure TForm1.FormCreate(Sender: TObject);
begin

DragAcceptFiles( Handle,True ) ;

end;

PROCEDURE TForm1.FileIsDropped ( VAR Msg : TMessage ) ;
VAR

hDrop : THandle ;

fName : ARRAY[0..254] OF CHAR ;

NumberOfFiles : INTEGER ;

fCounter : INTEGER ;

Names : STRING ;

BEGIN

hDrop := Msg.WParam ;

NumberOfFiles := DragQueryFile(hDrop,-1,fName,254);

Names := '' ;

FOR fCounter := 1 TO NumberOfFiles DO BEGIN

DragQueryFile(hDrop,fCounter,fName,254);

// Здесь вы получаете один к одному имя вашего файла

Names := Names + #13#10 + fName ;

END ;

ShowMessage('Бросаем '+IntToStr(NumberOfFiles) + ' файла(ов) : ' + Names );

DragFinish ( hDrop);

END ;

end.

[000089]