| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

Drag and Drop [D5, D6, Win95/98, Win2k, WinXP]

tolea ©   (2002-12-11 17:15:00) 

Увожаемые мастера. Подскажите пожалуйста как решить следуюшию задачу.
Как зделать чтобы когда перетаскивая любой фаил из Explorera на прогу, она перехватывала путь где он находится?

Заранее блогодарен.

---

Tolea   (2002-12-11 17:33:00) [1]

Большое спосибо всем

---

Игорь Шевченко   (2002-12-11 17:20:00) [2]

procedure TfMain.FormCreate(Sender: TObject);
begin
DragAcceptFiles(Handle, true);
end;

procedure TfMain.FormDestroy(Sender: TObject);
begin
DragAcceptFiles(Handle, false);
end;

procedure TfMain.WMDropFiles(var Msg: TWMDropFiles);
var
Pt: TPoint;
I, Count: Integer;
buf: array[0..MAX_PATH] of char;
begin
try
Msg.Result := 0;
DragQueryPoint(Msg.Drop, Pt);
Count := DragQueryFile(Msg.Drop, Cardinal(-1), buf, SizeOf(buf));
for I := 0 to Pred(Count) do begin
DragQueryFile(Msg.Drop, I, buf, SizeOf(buf));
AddFiles(StrPas(Buf));
end;
finally
DragFinish(Msg.Drop)
end
end;

Вроде, вместе с путем :-)

---

MBo   (2002-12-11 17:19:00) [3]

В статьи загляни. Да и в FAQ должно быть.

---

Наверх