VPF::Обработка WM_DROPFILES... - Форум программистов

NUCLEuS

Дата 4.4.2006, 23:16 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Привет всем!

Есть небольшая проблемка - никак не получается научить прогу принимать файлы которые в неё перетащены.

Я делаю так:

Код


procedure WMDropFiles;
 
 var
 FileName : array [0..255] of Char;
 Msg         : TWMDropFiles;

begin
 DragQueryFile(Msg.Drop,0,FileName,255);
 
 MessageBox(0,FileName,0,0);
end;

Это процедура обработки сообщения WM_DROPFILES. По идее в FileName должно быть имя перетащенного файла, но MessageBox выводит мне какую - то чушь.
Подозреваю что дело в неправильном использовании структуры TWMDropFiles, но как сделать правильно не догадываюсь.

Помогите пожалуйста, только без компонентов, и SysUtils, т.к. прога полностью на Win32API.
Спасибо.

Это сообщение отредактировал(а) NUCLEuS - 4.4.2006, 23:17

Дата 5.4.2006, 01:34 (ссылка)

(нет голосов)

Загрузка ...

Брутальный буратина

Профиль
Группа: Участник Клуба
Сообщений: 3497
Регистрация: 31.3.2002
Где: Лес

Репутация: 7
Всего: 115

http://forum.vingrad.ru/index.php?showtopi...st&p=377589

Snowy

Дата 5.4.2006, 08:41 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

http://forum.vingrad.ru/index.php?act=modu...amp;section=641

NUCLEuS

Дата 5.4.2006, 10:55 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Спасибо за ссылки, но эта информация у меня есть в DRKB. Проблема в том что я делаю практически точно так же (просто там с использованием VCL, а у меня полностью на АПИ), и у меня ничего не работает. Вот ещё раз сам код, и его вызов:

Код


procedure WMDropFiles;
var
FileName : array [0..255] of Char;
Msg      : TWMDropFiles;
begin
 DragQueryFile(Msg.Drop,0,FileName,255);
 MessageBox(0,FileName,0,0);
end;

Это сама процедура.
А это её вызов из цикла обработки сообщений:

Код


case Msg of

....


  WM_DROPFILES: WMDropFiles();

....
   end;

Естественно, про

Код


DragAcceptFiles(MainWnd,TRUE);

я не забыл.

И всё равно, процедура возвращает вместо имени файла, какую то чушь smile

Кто знает в чём проблема, помогите пожалуйста.

Это сообщение отредактировал(а) NUCLEuS - 5.4.2006, 10:58

Snowy

Дата 5.4.2006, 11:43 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

Профиль
Группа: Модератор
Сообщений: 11363
Регистрация: 13.10.2004
Где: Питер

Репутация: 30
Всего: 484

Вот. Примерно накидал.
Проверил - работает.
Думаю разобраться несложно.

Код

procedure WMDropFiles(hDrop: dword);
var
  i, k: dword;
  p:    PChar;
begin
  GetMem(p, MAX_PATH);
  k := DragQueryFile(hDrop, $FFFFFFFF, nil, 0);
  for i := 0 to k - 1 do
  begin
    DragQueryFile(hDrop, i, p, MAX_PATH);
    MessageBox(0, p, 'File', 0); // для примера - просто вывожу именя файлов в бокс
 end;
  FreeMem(p);
end;

function WndMessageProc(hWnd: HWND; Msg: UINT; WParam: WPARAM; LParam: LPARAM): UINT; stdcall;
begin
 Result := 0;
  case Msg of
    WM_DROPFILES: WMDropFiles(Wparam);
    WM_DESTROY: PostQuitMessage(0);
  else
    result := DefWindowProc(hWnd, Msg, wParam, lParam);
  end;
end;

NUCLEuS

Дата 5.4.2006, 12:54 (ссылка)

(нет голосов)

Загрузка ...

Новичок

Профиль
Группа: Участник
Сообщений: 45
Регистрация: 12.7.2005

Репутация: нет
Всего: нет

Snowy, как всегда выручил smile

Спасибо

Вопрос решён.

0 Пользователей читают эту тему (0 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема \| Delphi: WinAPI и системное программирование \| Следующая тема »