怎样得到从IE5.0中拖放到我的程序窗口的快捷方式的内容

请问高手，怎样得到从ie5.0中拖放到我编写的程序的快捷方式的内容，就象网络蚂蚁一样， 把快捷方式拖到窗口中就可以下载拖到此窗口快捷方式所指的程序。
：mafan 时间：01-3-13 14:40:27 ID:469481
我在VB中实现过，给你一个VB的例子
放一个TEXT，将其属性中的OLEDROPMODE=1
加上这个事件的处理
Private Sub Text1_OLEDragDrop(Data As DataObject,
Effect As Long,
Button As Integer,
Shift As Integer,
X As Single,
Y As Single)
Text1.Text = Data.GetData(vbCFText)‘这里就是得到的URL
End Sub
　
同样你在DELPHI中引用一个微软的ACTIVEX，比如RICHTEXT，按上述方法即可！
procedure TForm1.MSRichTextBox1OLEDragDrop(Sender: TObject;
var Data: IVBDataObject; var Effect: Integer; var Button,
Shift: Smallint; var x, y: Single);
begin
MSRichTextBox1.Text:= Data.GetData(1);
end;
　
mafan回答的这个挺有意思的，我试了一下可以得到Drag的Text。
原来Delphi有那么多东西没有封装进去。