如何实现FlashGet那样的文件链接功能?(200分)

  • 主题发起人 主题发起人 caowei
  • 开始时间 开始时间
C

caowei

Unregistered / Unconfirmed
GUEST, unregistred user!
就是在IE里面点超链接,弹出我自己的程序来处理,象网络蚂蚁,FlashGet那样的...
我已经查遍了已答问题,没有具体的回答...
我需要知道具体的实现办法,要有程序可以参考....
 
思考。。。
 
我也想了解,要源码,不要简单的回答
 
修改注册表,在HKEY_CURRENT_USER/Software/Microsoft/Internet Explorer/MenuExt下,
添加即可。
 
那样只是在右键的菜单里面加了个项,不是我说的鼠标左键点击就直接打开
 
我想还是如何得到超连接
请看:http://www.delphibbs.com/delphibbs/dispq.asp?lid=549945
谁能给个调用的示例
 
是不是去问问FlashGet,NetAnts的作者啊???
 
用bho实现!
 
这句话谁都知道
 
下载一个iehelper分析一下不就出来了,如果什么都指望别人给你
做出来,一点研究的精神都没有,那如何能提高自己的水平!
 
iehelper是什么? 在哪里有啊?
别只说啊,给点专业精神好不好? 怎么能指责别人呢?
我已经把MSDN翻遍了,只有一篇文章与BHO有关,看了一下,还是不会....
帮帮忙啊...........
 
再问........
 
这个问题还有人知道答案吗?
 
网络蚂蚁,FlashGet都一样的,都是通过一段VBSCRIPT实现取链接的,你可以看一下他们的安装后
的软件以及注册表,
 
那是鼠标右键的功能....
我需要的是鼠标左键点击以后直接弹出程序窗口.....
 
通过与IE交流,获得其内部网页源码,取出点击的连接,用你的程序打开它,屏蔽掉ie的响应
 
http://www.euromind.com/iedelphi/ie5tools/bho.htm
 
各位请继续啊。
 
另: 我知道flashget有一项功能是检测粘贴版 通过用户将超级链接复制到内存中,flashget就启动下载程序

监视剪贴板内容


----冲浪的年代,用过网络蚂蚁的人肯定不少,其中一项监视剪贴板变化的功能让人感觉到不少体贴。本文将介绍在Delphi中如何使用“体贴板”,来丰富自己的软件功能。


---- Windows使用剪贴板观察器和观察链。剪贴板观察器是一个显示剪贴板当前内容的窗口。通常它应该至少能显示三种普通格式的内容:文字CF_TEXT、位图CF_BITMAP、元文件CF_METAFILEPICT。剪贴板观察链是一系列相互独立的剪贴板观察窗口,它们都能够接受当前发送到剪贴板的内容。我们大致按照以下步骤在窗口中处理有关剪贴板的内容。


----首先,使用SetClipboardViewer(HWND)函数向剪贴板观察链中加入一个观察窗口。当剪贴板的内容发生变化时,该窗口会接收到一个WM_DRAWCLIPBOARD消息。该函数需要传递的参数是观察窗口的句柄。返回值也是一个窗口句柄类型,标识了将要加入的下一个窗口。


----然后,响应WM_DRAWCLIPBOARD消息处理剪贴板内容的变化。


----最后,在程序退出或关闭时需要调用ChangeClipboardChain函数来将自己从观察链中删除。然后调用SendMessage函数把这些消息传递到观察链中的下一个观察窗口。函数ChangeClipboardChain原型如下:


BOOL ChangeClipboardChain(HWND hWndRemove

//将要删除的窗口的句柄HWND hWndNewNext //观察链中下一个窗口的句柄);


---- Delphi的clipbrd.pas单元中定义了一个类TClipboard,它封装了Windows剪贴板,简化了大量复杂的处理过程。我们在程序中可以直接调用全局函数Clipboard,该函数用于返回TClipboard对象实例,使用这个实例对剪贴板进行剪切、复制和粘贴等操作。下面是TClipboard对象的几个常用的方法和属性的简单介绍。


----方法:


---- Assign:将指定的对象放入剪贴板中。


---- Open:打开剪贴板,防止其他程序改写剪贴板。在向剪贴板加入多项数据时尤其有用。


---- Close:关闭剪贴板。应该与打开剪贴板成对使用。


---- Clear:清空剪贴板。


---- GetAsHandle:返回剪贴板中指定格式数据的句柄。使用前必须打开剪贴板。


---- GetComponent:返回剪贴板中的一个控件。Delphi自己使用得多。


---- HasFormat:查询剪贴板中是否有指定格式的内容。


----属性:


---- AsText:用于读写剪贴板文字内容。


---- FormatCount:读剪贴板中数据格式的种数。


---- Formats:返回剪贴板中各种格式的列表。


----此外,Delphi中的许多控件中也封装了有关剪贴板处理的操作。


下面的一个处理剪贴板的简单例子,只是将剪贴板的文字内容显示为窗口标题。


unit Unit1;


interface


uses


Windows

Messages

SysUtils

Classes



Graphics

Controls

Forms

Dialogs



Clipbrd;//加入clipbrd单元


type


TForm1 = class(TForm)


procedure FormCreate(Sender: TObject);procedure FormClose(Sender:


TObject;


var Action: TCloseAction);


private


{ Private declarations }


public


NextClipHwnd:HWND;//


观察链中下一个窗口句柄procedure WMDrawClipBoard(var


AMessage:TMessage);


message WM_DRAWCLIPBOARD;//处理WM_DRAWCLIPBOARD消息过程


end;


var


Form1: TForm1;


implementation


{$R *.DFM}


{ TForm1 }


procedure TForm1.WMDrawClipBoard(var AMessage: TMessage);begin


//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口


SendMessage(NextClipHwnd

AMessage.Msg

AMessage.WParam

AMessage.LParam);


//查询剪贴板中特定格式的数据内容


if (Clipboard.HasFormat(CF_TEXT) or


Clipboard.HasFormat(CF_OEMTEXT)) then


begin


//处理剪贴板中内容


Caption:=Clipboard.asText;


end;end;


procedure TForm1.FormCreate(Sender: TObject);begin


//获得观察链中下一个窗口句柄


NextClipHwnd:=SetClipBoardViewer(Handle);end;


procedure TForm1.FormClose(Sender: TObject; var Action:


TCloseAction);begin


//从观察链中删除本观察窗口


ChangeClipboardChain(Handle

NextClipHwnd);


//将WM_DRAWCLIPBOARD消息传递到下一个观察链中的窗口


SendMessage(NextClipHwnd

WM_CHANGECBCHAIN

Handle

NextClipHwnd);


end;end.


----需要注意的是,在处理剪贴板内容变化的消息WM_DRAWCLIPBOARD的过程和关闭窗口事件中使用函数sendmessage把WM_DRAWCLIPBOARD或WM_CHANGECBCHAIN消息传递到观察链中的下一个窗口是必要的,否则有可能其他窗口不能获得类似消息。另外,在使用网络蚂蚁时笔者曾经碰到不能设置剪贴板格式的情况,在此提醒读者注意检查RegisterClipboardFormat等函数的返回值。
 
后退
顶部