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