WMDropFiles

var RMT 携帯
P : array[0..255] of Char;
dropfilescount : integer;
i : integer;
DropFiles : string;
begin
inherited;
dropfilescount := DragQueryFile(Msg.wParam, $FFFFFFFF, nil, 0);
for i := 0 to dropfilescount - 1 do
begin
DragQueryFile(Msg.wParam, I, P, 255);
DropFiles := trim(DropFiles) + #13#10 + P;
end;
DropFiles := trim(DropFiles);
if Assigned(FOnDropFiles) then
try FonDropFiles(self, DropFiles);
except
end;
DragFinish(Msg.wParam);