VPF::Про DragDrop файлов - Форум программистов

Дата 26.10.2002, 20:44 (ссылка)

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

Загрузка ...

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

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

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

Как получить путь файла после того как я его дропну ну к примеру на форму.

Vit

Дата 27.10.2002, 13:07 (ссылка)

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

Загрузка ...

Vitaly Nevzorov

Профиль
Группа: Экс. модератор
Сообщений: 10964
Регистрация: 25.3.2002
Где: Chicago

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

Что-то типа такого. Этот код я выдрал из своей программы и поудалял много не нужного, возможно вместе с нужным...

Код


procedure WMDropFiles(var Msg: TMessage); message WM_DROPFILES;
...

procedure TMainForm.WMDropFiles(var Msg: TMessage);
var
  i, iNumberDropped: integer;
  szPathName: array[0..260] of char;
  Point: TPoint;
begin
  try
   iNumberDropped := DragQueryFile(THandle(Msg.wParam), Cardinal(-1), nil, 0);
   DragQueryPoint(THandle(Msg.wParam), Point);
   for i := 0 to iNumberDropped - 1 do
     begin
       DragQueryFile(THandle(Msg.wParam), i, szPathName, SizeOf(szPathName));
       m.filename := szPathName;
       if isFileTypeText(extractfileext(szPathName)) then
  finally
    Msg.Result := 0;
    DragFinish(THandle(Msg.wParam));
  end;
end;

--------------------

With the best wishes, Vit
I have done so much with so little for so long that I am now qualified to do anything with nothing
Самый большой Delphi FAQ на русском языке здесь: www.drkb.ru

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