如何在Windows系统上创build自己的自定义标记(或URL协议)?
例子:
查看创建和使用URL标记 , 关于异步可插入协议和从MSDN 注册应用程序到URL协议
这里有一些旧的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;
从克雷格·布罗克施密特(Craig Brockschmidt)的“ 内部人力资源管理局”(OLE)内部可能对绰号有最好的报道 如果你想深入探讨这个话题,我建议你拿这本书。 它也包含在与VS 6.0一起出现的MSDN磁盘上,以防万一你还有这个问题。