子游戏不能安装 这是我的打包用的代码是这里出问题？还是权限问题？

Question

Code]
//导入一个Windows API 函数

//安装完成后
//更新游戏列表
procedure CurStepChanged(CurStep: TSetupStep);
var
hWnd: HWND;

begin
if CurStep=ssDone then
begin
hWnd := FindWindowByClassName('WHQPGamePlaza');

    if hWnd <> 0 then
      begin
          PostMessage(hWnd, 1124, 27, 0);
          //MessageBox(0, 'PostMessage(hWnd, 1124, 5, 0);', 'MessageBox', MB_OK);
      end
 end

end;

//------------------------------------------------
// the end
//-------------------------------------------------

Answer 1

在windows7上是权限问题