2008-08-07 22 views

Répondre

2

Voici quelques vieux code Delphi nous avons utilisé comme un moyen d'obtenir des raccourcis dans une application web à démarrer un programme Windows localement pour l'utilisateur.

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 Brockschmidt a probablement la meilleure couverture sur sobriquets. Si vous voulez creuser un peu plus dans ce sujet, je vous recommande d'obtenir ce livre. Il est également contenu sur le disque MSDN fourni avec VS 6.0, au cas où vous l'avez toujours.