文件拖放问题（50分）

给你一段代码，希望能对你有用！
procedure Tform1.formcreate(sender:tobject);
begin
  DragAcceptFiles(handle,True);
end;procedure Tform1.formclose(sender:tobject);
begin
  DragAcceptFiles(handle,false);
end;procedure Tform1.WMDropFile(sender:tobject);
var
  num,i:integer;
  fname:array[0..255] of char;
begin
  //文件数量
  num:=DragQueryFile(msg.drop,$FFFFFFFF,nil,0);
  label1.caption:=inttostr(num);
  listbox1.items.clear;
  for i:=0 to num-1 do
  begin
    //文件名称
    DragQueryFile(msg.drop,i,fname,sizeof(fname));
    listbox1.items.add(fname);
  end;
  DragFinish(msg.drop);
end;