我已经通过写注册表的方式将自己的程序写到IE鼠标右键菜单下,可是需要编写一个.hml文件,和一个DLL文件,调用我的程序,这个dll和.hml该怎样写?谢谢大家,解决马上给分!

解决方案 »

  1.   

    还CSDN呢,这么个问题都没人会!哎~~
    都快急死了,求求大家了!
      

  2.   

    加全局钩子,调用你的程序unit Unit1;
    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.
      

  3.   

    这位仁兄,我想知道DLL程序的写法,和.hml的写法,谢谢,这个我用不上但思想时对的
      

  4.   

    DLL是动态连接库,delphi有自带的例子,hml是web页形式的!delphi有相关的组件!请自己查看帮助吧!
      

  5.   

    如何在IE右键菜单中添加菜单项:
    http://www.applevb.com/art/ie_menu.txt
      

  6.   

    其实基本的原理是编写一个HTML,同时编写一个自动化组件。然后在这个HTML中编写脚本创建这个组件并且调用这个组件的方法。最后把这个HTML注册到注册表里就可以了。
      

  7.   

    http://msdn.microsoft.com/workshop/browser/ext/tutorials/menu.asp
      

  8.   

    我是像 TechnoFantasy(冰儿马甲www.applevb.com) 老兄所说,编了一个ActiveX组件,组件的工程名search,Automation Object的名为myClass,在其中编写了方法,并注册到注册表中;然后我又编写了一个Html页,
    其中用
    Set a=createObject(search.myclass)
    a.startup(这是一个启动我的另外的应用程序的方法)
    也将这个Html页,写到了注册表中,但是这些都做完后,点击浏览器里的右键菜单,还是没有任何反映,也就是说,不能启动我的另外的应用程序,怎么回事呢,那里出现问题了呢?
    请各位大侠帮忙,只要问题一解决,我马上结贴给分!
      

  9.   

    我知道为什么了!
    Set a=createObject(search.myclass)
    应该加上"":Set a=createObject("search.myclass")就对了!