Drag and Drop

← →
tolea © (2002-12-11 17:15) [0]

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

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

← →
MBo © (2002-12-11 17:19) [1]

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

← →
Игорь Шевченко © (2002-12-11 17:20) [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;

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

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

Drag and Drop Найти похожие ветки