[alyamus]

friends !!

this code xp drag and drop run ok

Код:

procedure TForm1.ApplicationEvents1Message(var Msg: tagMSG; var Handled: Boolean);
var
hDrop: HWND;
i,
iFile: Integer;
szFile: array[ 0..MAX_PATH ] of Char;
begin
if (Msg.message = WM_DROPFILES) then
begin
ListBox1.Items.Clear( );

hDrop := Msg.wParam;

iFile := DragQueryFile(hDrop, $FFFFFFFF, nil, 0);

for i := 0 to (iFile - 1) do
begin
DragQueryFile(hDrop, i, szFile, MAX_PATH);
ListBox1.Items.Add(StrPas(szFile));
end;

DragFinish(hDrop);
end;
end;

but win 7 problemm

what is win 7 drag and drop code ?

please