Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Delphi: WinAPI и системное программирование > Обработка WM_DROPFILES...

Автор: NUCLEuS 4.4.2006, 23:16

Привет всем!

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

Я делаю так:

Код


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.
Спасибо.

Автор: RA 5.4.2006, 01:34

http://forum.vingrad.ru/index.php?showtopic=48006&view=findpost&p=377589

Автор: Snowy 5.4.2006, 08:41

http://forum.vingrad.ru/index.php?act=module&module=vingradfaq&section=641

Автор: NUCLEuS 5.4.2006, 10:55

Спасибо за ссылки, но эта информация у меня есть в 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

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

Автор: Snowy 5.4.2006, 11:43

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

Код

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

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

Спасибо

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