在ActiveX控件中获取activex的安装路径
Submitted by hubdog on Sat, 2015-01-10 18:57
var
ModuleName: array[0..255] of Char;
Path:string;
begin
//
GetModuleFileName(HInstance,ModuleName, Length(ModuleName));
ShowMessage(ModuleName);
