![]() |
|
|
Регистрация | << Правила форума >> | FAQ | Пользователи | Календарь | Поиск | Сообщения за сегодня | Все разделы прочитаны |
![]() |
|
Опции темы | Поиск в этой теме | Опции просмотра |
|
#1
|
|||
|
|||
![]() 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:
Пишу программы за еду. __________________ |