delphi 中注册 activeX 插件

const 
    CN_EXECUTE_STR   =   'Regsvr32.exe   /s   %s '; 
var 
    StrPath:   string; 
begin 
    StrPath   :=   'C:\aa.dll '; 
    WinExec(PChar(Format(CN_EXECUTE_STR,   [StrPath])),   SW_NORMAL); 
end;