home *** CD-ROM | disk | FTP | other *** search
/ PC World 2006 September / PCWorld_2006-09_cd.bin / zabezpeceni / privatefolder / MSPF10ENU.msi / Binary.SetupVBScript < prev    next >
Text File  |  2006-08-08  |  329b  |  17 lines
  1. 'On Error Resume Next
  2.  
  3. Function WarningMessage()
  4.  
  5.     If MsgBox(Session.Property("UNINSTALL_WARNING_TEXT"), vbYesNo+vbExclamation, Session.Property("UNINSTALL_WARNING_TITLE")) <> vbYes Then
  6.         'return error
  7.         WarningMessage=3
  8.         Exit Function
  9.     End If
  10.  
  11.     ' return success
  12.     WarningMessage=1
  13.     Exit Function
  14.  
  15. End Function
  16.  
  17.