2008-08-07 8 views

Respuesta

2

Aquí está un viejo código de Delphi utilizamos como una forma de obtener accesos directos en una aplicación web para iniciar un programa de Windows localmente 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; 
0

Inside OLE de Craig Brockshmidt probablemente tiene la mejor cobertura de apodos. Si desea ahondar un poco más en este tema, le recomendaría obtener este libro. También está contenido en el disco de MSDN que vino junto con VS 6.0, en caso de que aún lo tenga.

Cuestiones relacionadas