Форум программистов, компьютерный форум, киберфорум
Наши страницы
Delphi для начинающих
Войти
Регистрация
Восстановить пароль
 
Рейтинг: Рейтинг темы: голосов - 9, средняя оценка - 4.78
_CyberHedgehog_
64 / 64 / 10
Регистрация: 26.06.2010
Сообщений: 332
#1

Drag and Drop и Windows 7 - Delphi

04.07.2013, 12:35. Просмотров 1540. Ответов 3
Метки нет (Все метки)

У меня недавно возникла проблема с реализацией drag and drop файлов из проводника windows 7. А именно, с правами администратора мой код не работает.
Нашёл
Создал манифест, другой правда, выполнил пункт с сертификатом. Застрял на пункте 3.
Данный код:

Delphi
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
procedure AllowDragAndDrop;
var
  User32Handle : THandle;
  ChangeWindowMessageFilter : TChangeWindowMessageFilter;
  I : Integer;
const
   MSGFLT_ALLOW = 1;
begin
  User32Handle := LoadLibrary(user32);
  @ChangeWindowMessageFilter := GetProcAddress(User32Handle, 'ChangeWindowMessageFilter');
  if Assigned(ChangeWindowMessageFilter) then
  begin
    //WM_COMMAND for taskbar
    ChangeWindowMessageFilter (WM_COMMAND, MSGFLT_ALLOW);
    ChangeWindowMessageFilter (WM_DROPFILES, MSGFLT_ALLOW);
    ChangeWindowMessageFilter (WM_COPYDATA, MSGFLT_ALLOW);
    ChangeWindowMessageFilter ($0049, MSGFLT_ALLOW);
  end;
не работает. Моя delphi 2007 не знает, что такое TChangeWindowMessageFilter. Полагаю надо прописать что-то в uses, но что именно?
0
Надоела реклама? Зарегистрируйтесь и она исчезнет полностью.
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
04.07.2013, 12:35
Я подобрал для вас темы с готовыми решениями и ответами на вопрос Drag and Drop и Windows 7 (Delphi):

Drag and Drop
Всем доброго времени суток. Помогите написать программу с помощью события Drag...

Drag and drop
напишите плиз примерчик как содержимое edita перетащить в memo

Drag and Drop
Мне нужно переместить файл(txt) на форму, при этом во время перетаскивания...

Drag and drop
Разрабатываю практическое задание по химии, суть заключается в чем: есть...

Drag and drop
Здравствуйте, суть вопроса заключается в следующем: дана форма и на ней объект...

Drag And Drop
Подскажите пожалуйста где здесь изменить текст чтобы было четкое распределение...

3
volvo
Супер-модератор
Эксперт Pascal/DelphiАвтор FAQ
25619 / 17172 / 6831
Регистрация: 22.10.2011
Сообщений: 30,366
Записей в блоге: 6
04.07.2013, 12:41 #2
Открываешь описание ChangeWindowMessageFilter function, и записываешь эту же функцию, только Дельфийским синтаксисом:
Delphi
1
2
type
  TChangeWindowMessageFilter = function(msg: UINT; Action: DWORD): BOOL; stdcall;
1
FIL
Модератор
3409 / 2547 / 725
Регистрация: 19.09.2012
Сообщений: 7,908
04.07.2013, 12:51 #3
Попробуй так.
По крайней мере этот код компилируется.

Уже ответили...
1
_CyberHedgehog_
64 / 64 / 10
Регистрация: 26.06.2010
Сообщений: 332
04.07.2013, 13:08  [ТС] #4
Ну наконец я окончательно разобрался с этой проблемой. Всё работает, спасибо!
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
04.07.2013, 13:08
Привет! Вот еще темы с решениями:

Drag&Drop
Вот я зделал чтоб при перетаскивание c List на Panel окно закрывалась!А как...

Работа с Drag-and-drop
Всем привет! Подскажите пожалуйста как мне осуществить метод Drag-and-drop в...

Drag and drop в listbox
Здравствуйте! есть такая процедура procedure TForm1.DropFiles(var Msg:...

Drag and drop Shape
Ребята помогите с кодом. Суть задачи такова: есть шейповый кружок (shape1) и 2...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
4
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru