2008-08-07 15 views

उत्तर

2

ले लो, यहाँ कुछ पुराने डेल्फी कोड है हमने वेब एप्लिकेशन में शॉर्टकट प्राप्त करने के लिए एक तरीका के रूप में उपयोग किया उपयोगकर्ता के लिए स्थानीय रूप से एक विंडोज़ प्रोग्राम शुरू करें।

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

क्रेग Brockschmidt से अंदर OLE शायद मॉनिकर्स पर सबसे अच्छा कवरेज है। यदि आप इस विषय में थोड़ा गहरा खोदना चाहते हैं, तो मैं इस पुस्तक को प्राप्त करने की अनुशंसा करता हूं। यह एमएसडीएन डिस्क पर भी निहित है जो वीएस 6.0 के साथ आया था, यदि आपके पास अभी भी है।