[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

[NumLock]

Код:

DragQueryFile(hDrop, i, @szFile[0], MAX_PATH);

и что за Delphi?

[M.A.D.M.A.N.]

Проще готовое скачать.

[alyamus]

I have tried , but not code

[NumLock]

http://grafmoto.narod.ru/Temp/Project1.exe
work?

[alyamus]

could you please !! send to all project upload winrar numlock pls

request examine ...

[NumLock]

see project here: