procedure TForm1.WMDROPFILES (var Msg: TMessage);
var
i,
qcount,
size: integer;
Filename: PChar;
begin
inherited;
qcount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
for i := 0 to (qcount - 1) do
begin
size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
Filename:= StrAlloc(size);
DragQueryFile(Msg.WParam,i , Filename, size);
listbox1.items.add(StrPas(Filename));
StrDispose(Filename);
end;
DragFinish(Msg.WParam);
end
var
i,
qcount,
size: integer;
Filename: PChar;
begin
inherited;
qcount := DragQueryFile(Msg.WParam, $FFFFFFFF, Filename, 255);
for i := 0 to (qcount - 1) do
begin
size := DragQueryFile(Msg.WParam, i , nil, 0) + 1;
Filename:= StrAlloc(size);
DragQueryFile(Msg.WParam,i , Filename, size);
listbox1.items.add(StrPas(Filename));
StrDispose(Filename);
end;
DragFinish(Msg.WParam);
end
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货