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

请问高手，怎样得到从ie5.0中拖放到我编写的程序的快捷方式的内容，就象网络蚂蚁一样，
把快捷方式拖到窗口中就可以下载拖到此窗口快捷方式所指的程序。

我在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;

http://www.gislab.ecnu.edu.cn/delphibbs/DispQ.asp?LID=195439
我已经试验成功。

mafan回答的这个挺有意思的，我试了一下可以得到Drag的Text。
原来Delphi有那么多东西没有封装进去。

多人接受答案了。