代码之家  ›  专栏  ›  技术社区  ›  Brett Veenstra

如何在Windows系统上创建自己的名字(URL协议)?

  •  11
  • Brett Veenstra  · 技术社区  · 16 年前

    如何在Windows系统上创建自己的自定义名字对象(或URL协议)?

    实例:

    • http:
    • 麦尔托:
    • 服务:
    3 回复  |  直到 15 年前
        2
  •  3
  •   Lasse V. Karlsen    16 年前

    下面是一些旧的Delphi代码,我们用它来获取Web应用程序中的快捷方式,以便在本地为用户启动Windows程序。

    procedure InstallIntoRegistry;
    var
      Reg: TRegistry;
    begin
      Reg := TRegistry.Create;
      try
        Reg.RootKey := HKEY_CLASSES_ROOT;
        if Reg.OpenKey('moniker', True) then
        begin
          Reg.WriteString('', 'URL:Name of moniker');
          Reg.WriteString('URL Protocol', '');
          Reg.WriteString('Source Filter', '{E436EBB6-524F-11CE-9F53-0020AF0BA770}');
          Reg.WriteInteger('EditFlags', 2);
    
          if Reg.OpenKey('shell\open\command', True) then
          begin
            Reg.WriteString('', '"' + ParamStr(0) + '" "%1"');
          end;
        end else begin
          MessageBox(0, 'You do not have the necessary access rights to complete this installation!' + Chr(13) +
            'Please make sure you are logged in with a user account with administrative rights!', 'Access denied', 0);
          Exit;
        end;
      finally
        FreeAndNil(Reg);
      end;
    
      MessageBox(0, 'Application WebStart has been installed successfully!', 'Installed', 0);
    end;
    
        3
  •  0
  •   JPC    16 年前

    内奥莱 CraigBrockschmidt对绰号的报道可能是最好的。如果你想深入了解这个话题,我建议你买本书。它也包含在与Vs6.0一起提供的msdn磁盘上,以防您仍然拥有它。