2008-08-07 26 views

Trả lời

2

Dưới đây là một số mã Delphi cũ chúng tôi đã sử dụng như một cách để có các phím tắt trong ứng dụng web bắt đầu chương trình windows cục bộ cho người dùng.

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

Bên OLE từ Craig Brockschmidt lẽ có độ che phủ tốt nhất về biệt danh. Nếu bạn muốn tìm hiểu kỹ hơn về chủ đề này, tôi khuyên bạn nên lấy cuốn sách này. Nó cũng được chứa trên đĩa MSDN đi kèm với VS 6.0, trong trường hợp bạn vẫn còn có.