Как создать свое собственное прозвище (URL Protocol) на системах Windows?

голоса
11

Как создать свое собственное прозвище (или протокол URL) на системах Windows?

Примеры:

  • HTTP:
  • почты:
  • оказание услуг:
Задан 07/08/2008 в 13:31
источник пользователем
На других языках...                            


3 ответов


голоса
2

Вот некоторые старые Delphi код, который мы использовали, как способ, чтобы получить ярлыки в веб-приложение, чтобы запустить программу окна локально для пользователя.

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;
Ответил 07/08/2008 в 13:52
источник пользователем

голоса
0

Внутри OLE от Craig Brockschmidt , вероятно , имеет лучшее покрытие на прозвищами. Если вы хотите , чтобы копать немного глубже в эту тему, я рекомендовал бы получить эту книгу. Он также содержится на диске MSDN , которые пришли вместе с VS 6.0, в случае , если у вас еще есть что.

Ответил 02/09/2008 в 07:18
источник пользователем

Cookies help us deliver our services. By using our services, you agree to our use of cookies. Learn more