在innosetup里面ShouldSkipPage的用法如何用

在innosetup里面ShouldSkipPage的用法怎么用
我有2版程序分别用不同的APPID。我在新程序里定义的ShouldSkipPage，然后安装程序完成后再运行这个程序就会，跳过wpWelcome页面满足了程序要求。
现在的问题是：我先装以前老版本的程序，然后再运行这个新程序，就不会跳过wpWelcome页面。我要怎样做2个版本都会跳过wpWelcome页面？
function ShouldSkipPage(PageID: Integer): Boolean;
var
  UninstallDataFile: String;
 
begin
  if PageID = wpWelcome then
  begin
   
  if Uninstalled then
  Result := False
  else begin
  UninstallDataFile := RemoveQuotes(GetSetupPreviousData('UninstallDataFile', ''));
  CanModifyRemove := UninstallDataFile<>'';
  Result := CanModifyRemove;
   
  end;
  end else
 
  if PageID = SetupOptions.ID then
  begin
  Result := Uninstalled or (not CanModifyRemove);
  end else
  if PageID = UninstallPage.ID then
  begin
  Result := Uninstalled or (not RemoveChk.Checked);
  end;
end;

------解决方案--------------------------------------------------------
这个网上有很多角本，简单面对DELPHI应该没有问题的
继续顶一下