我已经通过写注册表的方式将自己的程序写到IE鼠标右键菜单下,可是需要编写一个.hml文件,和一个DLL文件,调用我的程序,这个dll和.hml该怎样写?谢谢大家,解决马上给分!
解决方案 »
- 重装操作系统后,delphi6编译慢了很多,怎么解决?
- ClientDataSet中计算字段如何过滤呢?
- 问一个,OLE问题
- 难题!想知道IE何时被打开了,并且取得它打开的URL。
- 如何修改access的密码?up者有分!
- 执行ORACLE存储过程的问题
- 在用F1BOOK6时遇到的奇怪问题,求教
- 区别:TControlCanvas, TMetafileCanvas, TPrintCanvas?怎样打印?给段代码!谢谢!
- 代码调试!关于FOR。。LISTVIEW。。??
- 求救!用DELPH如何截获API函数?
- stringGrid控件,我怎么动态的改变某一Cell宽度啊?
- dxdbgrid问题,求哥哥了,帮帮我吧
都快急死了,求求大家了!
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls;type
TForm1 = class(TForm)
Label1: TLabel;
Button1: TButton;
Button2: TButton;
procedure Button1Click(Sender: TObject);
procedure Button2Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;
function SetHook:Boolean; stdcall;
function RemoveHook:Boolean; stdcall;
var
Form1: TForm1;implementation{$R *.dfm}
function SetHook; external 'GMouseHook.dll' name 'SetHook';
function RemoveHook; external 'GMouseHook.dll' name 'RemoveHook' ;procedure TForm1.Button1Click(Sender: TObject);
begin
if SetHook then
showmessage('Global Mouse Hook Set, Click on Desktop')
else
showmessage('Global Mouse Hook not Set');
end;procedure TForm1.Button2Click(Sender: TObject);
begin
if RemoveHook then
showmessage('Global Mouse Hook Remove, Click on Desktop')
else
showmessage('Global Mouse Hook not Remove');
end;end.
http://www.applevb.com/art/ie_menu.txt
其中用
Set a=createObject(search.myclass)
a.startup(这是一个启动我的另外的应用程序的方法)
也将这个Html页,写到了注册表中,但是这些都做完后,点击浏览器里的右键菜单,还是没有任何反映,也就是说,不能启动我的另外的应用程序,怎么回事呢,那里出现问题了呢?
请各位大侠帮忙,只要问题一解决,我马上结贴给分!
Set a=createObject(search.myclass)
应该加上"":Set a=createObject("search.myclass")就对了!