|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
drag drop problem win 7 :(
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 |
#2
|
||||
|
||||
Код:
DragQueryFile(hDrop, i, @szFile[0], MAX_PATH); Пишу программы за еду. __________________ |
#3
|
||||
|
||||
Проще готовое скачать.
— Как тебя понимать? — Понимать меня не обязательно. Обязательно меня любить и кормить вовремя. На Delphi, увы, больше не программирую. Рекомендуемая литература по программированию |
#4
|
|||
|
|||
I have tried , but not code
|
#5
|
||||
|
||||
Пишу программы за еду. __________________ |
#6
|
|||
|
|||
could you please !! send to all project upload winrar numlock pls
request examine ... |
#7
|
||||
|
||||
see project here:
Пишу программы за еду. __________________ |