在ActiveX控件中获取activex的安装路径

var
ModuleName: array[0..255] of Char;
Path:string;
begin
//
GetModuleFileName(HInstance,ModuleName, Length(ModuleName));
ShowMessage(ModuleName);