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