12

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

例子:

  • 网址:
  • 邮寄:
  • 服务:
4

3 回答 3

4

查看来自 MSDN的创建和使用 URL Monikers关于异步可插入协议将应用程序注册到 URL 协议

于 2008-08-07T12:42:06.683 回答
3

这是一些旧的 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;
于 2008-08-07T12:52:04.087 回答
0

Craig Brockschmidt 的内部 OLE可能对绰号有最好的报道。如果你想更深入地研究这个话题,我建议你买这本书。它也包含在随 VS 6.0 一起提供的 MSDN 磁盘中,以防您仍然拥有它。

于 2008-09-02T06:18:47.423 回答