请问为什么没有MSIME?
if CLSIDFromString(PWideChar(WideString('MSIME.China')), vGuid) <> S_OK then
begin
ShowMessage(SysErrorMessage(GetLastError));
Exit;
end;

这样就失败了

[解决办法]
if CLSIDFromString(PWideChar(WideString('MSIME.China')), vGuid) <> S_OK then

这句什么意思
[解决办法]
再重新找一个代码吧，这样前后不搭不好说什么问题的。
你那函数又不是通用函数