¿Cómo crear tu propio nombre de URL (Protocolo) en sistemas Windows?
Pregunta
¿Cómo crear tu propio apodo (o URL de Protocolo) en sistemas Windows?
Ejemplos:
- http:
- mailto:
- servicio:
Solución
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