Pregunta

¿Cómo crear tu propio apodo (o URL de Protocolo) en sistemas Windows?

Ejemplos:

  • http:
  • mailto:
  • servicio:

Otros consejos

He aquí algunos de los antiguos código de Delphi se utilizó como una manera de conseguir accesos directos en una aplicación web para iniciar un programa de windows de forma local para el usuario.

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;

En OLE de Craig Brockshmidt probablemente tiene la mejor cobertura en monikers.Si quieres profundizar un poco más en este tema, les recomiendo entrar a este libro.Figura también en el MSDN de disco que se suministra junto con VS 6.0, en caso de que usted todavía tiene que.

Licenciado bajo: CC-BY-SA con atribución
No afiliado a StackOverflow
scroll top