InstallShield中禁止反安装

function OnEnd()                                                  
   string subKey;
begin
  subKey= " //SOFTWARE//Microsoft//Windows//CurrentVersion//Uninstall//"        + IFX_PRODUCT_NAME;
  RegDBSetDefaultRoot(HKEY_LOCAL_MACHINE);  
  if (RegDBKeyExist(subKey) =1) then   
  RegDBDeleteKey (subKey);
  endif;
  if(!ExistsDir(DISK1TARGET)) then
  DeleteDir(DISK1TARGET,ALLCONTENTS);
  endif;
end;