怎么通过拖拽将ie浏览器中的地址和标题保存到文件中？？(100分)

如题，最好有代码

你可以使用DragAndDrop控件包，免费的，附源码。其中附带的第一个例子就是你想要的，
你可以直接拷贝过来使用。
控件在下面下载
http://61.132.118.185:8080/dispdocnew.php?t=&id=4215
或在Delphi6的第二张光盘上有。

我已经下了，可是发现不会用：（


另外怎么设置IE为TDropURLSource??????


麻烦大家看后帮忙提一下

？？？
你看一下Demo目录下的Adapters这个例子，不就是你要的吗？总共不到十行代码！多简单啊！

我看了，试了半天也弄明白他把ie浏览器中的地址和标题保存到那了：（

贴一段我在网上看到的代码，没有试过：

确定在uses子句中增加DDEMan。


uses windows, ddeman, ......


function Get_URL(Servicio: string): String;
var
Cliente_DDE: TDDEClientConv;
tempChar; //<<----------------这是新的
begin
Result := ‘‘;
Cliente_DDE:= TDDEClientConv.Create( nil );
with Cliente_DDE do
begin
SetLink( Servicio,‘WWW_GetWindowInfo‘);
temp := RequestData(‘0xFFFFFFFF‘);
Result := StrPas(temp);
StrDispose(temp); //避免内存漏洞
CloseLink;
end;
Cliente_DDE.Free;
end;

procedure TForm1.Button1Click(Sender);
begin
showmessage(Get_URL(‘Netscape‘));
or
showmessage(Get_URL(‘IExplore‘));
end;

老大，你可真是一点脑筋都不想动一下啊！比我还懒惰！[]
好，我现在就给你写一个例子。。。

新建一工程，在Form上放置一个Label1控件，一个DropTextTarget1控件，一个DataFormatAdapter1
控件。
unit Unit1;

interface

uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
StdCtrls, DragDrop, DropTarget, DragDropText;

type
TForm1 = class(TForm)
Label1: TLabel;
DropTextTarget1: TDropTextTarget;
DataFormatAdapter1: TDataFormatAdapter;
procedure DropTextTarget1Drop(Sender: TObject; ShiftState: TShiftState;
APoint: TPoint; var Effect: Integer);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;

implementation

{$R *.DFM}

uses
DragDropFormats, //注意这里要引用两个单元
DragDropInternet;

procedure TForm1.DropTextTarget1Drop(Sender: TObject;
ShiftState: TShiftState; APoint: TPoint; var Effect: Integer);
begin
if (DataFormatAdapter1.DataFormat <> nil) then
Label1.Caption := (DataFormatAdapter1.DataFormat as TURLDataFormat).URL;
end;

procedure TForm1.FormCreate(Sender: TObject);
begin
DropTextTarget1.Target := Form1;
DataFormatAdapter1.DataFormatName := 'TURLDataFormat';
DataFormatAdapter1.DragDropComponent := DropTextTarget1;
DataFormatAdapter1.Enabled := true;
end;

end.

谢谢楼上，


Adapters例子里，可以获得网页中的连接，但不能获得地址栏里的url，后者才是我要的


你的例子除了光标有变化外其他的没反应

Tianbing2008：
嗯，我试了一下，确实如此，不过，这不是控件的问题啊，而是浏览器地址栏里的文字不允许
拖放操作，不怪我们啊。[]

谢谢，再放两天（发不起新贴了，可用分还剩38分：（ ）
，看看有其他的DFW帮助解决，然后给分

Tianbing2008：
没有分问问题了，是吗？我给你，到这里http://www.delphibbs.com/delphibbs/dispq.asp?lid=1847818来拿300分。
我这个人心肠好，看着确实在问问题，而且真缺分，我可以资助一点。[]

谢谢 小笨苯 排名第六啊 ~~~~~~~



你和我的名字应换一下~~~~~~~

可不要这么说，我不过就是个混分的。[]

好人啊, 小笨笨

多人接受答案了。