2003-06-18 12:13

     $OPTIMIZE ON
     $TYPECHECK ON
     CONST ctab = CHR$(9) ' Tab character
     CONST clf = CHR$(10) ' Line Feed Chr
     CONST HKEY_CLASSES_ROOT  = &H80000000
     CONST HKEY_LOCAL_MACHINE = &H80000002
     DIM Registry AS QREGISTRY
     DECLARE SUB ShowVersion (Sender AS QBUTTON)
     CREATE Form AS QFORM
      CAPTION = "Windows Version"
      Width = Screen.width
      Height = 216
      Center
      CREATE Button1 AS QBUTTON
       CAPTION = "Show Version"
       Left = screen.width \ 2 - button1.width
       Top = 160
       OnClick = ShowVersion
      END CREATE
      CREATE Edit1 AS QRICHEDIT
       Left = 53
       Top = 23
       Width = Screen.width - 100
       Height = 120
       TabOrder = 1
       wordwrap=0
       scrollbars=3
       font.name="courier"
       text="Click to show Windows info..."
      END CREATE
     END CREATE
     SUB ShowVersion
      DIM txt AS STRING, ed AS STRING
      WITH Registry
       .RootKey = HKEY_LOCAL_MACHINE
       .OpenKey("Software\Microsoft\Windows\CurrentVersion", 0)
       IF RIGHT$(.readstring("VersionNumber"), 4) = "2222" THEN
        ed = " SE"
       ELSE
        ed = ""
       END IF
       txt = "Version : " + ctab + ctab + ctab + ctab + .readstring("Version")+ ed + clf _
        + "Version Number: " + ctab + ctab + ctab + .readstring("VersionNumber")+ clf _
        'Product Name
        + "Product Number: " + ctab + ctab + ctab + .readstring("ProductName")+ clf _
        'Product Key
        + "Product Key: " + ctab + ctab + ctab + .readstring("ProductKey")+ clf _
        'Product Id.
        + "Product ID: " + ctab + ctab + ctab + .readstring("ProductId")+ clf _
        'Registered Owner
        + "Registered User: " + ctab + ctab + ctab + .readstring("RegisteredOwner")+ clf _
        'Registered Organization
        + "Organization: " + ctab + ctab + ctab + .readstring("RegisteredOrganization")
       Edit1.text=txt
       .closekey
      END SUB
      Form.SHOWMODAL

2003-06-18 12:13