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

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
//-------------------------------------------------

查看全部
qq_26109047
qq_26109047
2015/06/16 14:01
  • 代码
  • 安装
  • 点赞
  • 收藏
  • 回答
    私信

6个回复