2008-08-07 10 views

Antwort

2

Hier einige alte Code Delphi Wir haben als eine Möglichkeit verwendet, um Verknüpfungen in einer Webanwendung zu erhalten Starten Sie ein Windows-Programm lokal für den Benutzer.

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 von Craig hat wahrscheinlich Brockschmidt die beste Abdeckung auf Moniker. Wenn Sie ein wenig tiefer in dieses Thema eintauchen möchten, empfehle ich, dieses Buch zu bekommen. Es ist auch auf dem MSDN-Datenträger enthalten, der mit VS 6.0 kam, falls Sie das noch haben.