home *** CD-ROM | disk | FTP | other *** search
/ PC Action 1998 January / PCA0198.ISO / MENUE / POSTFACH / 98010056.TXT < prev    next >
Text File  |  1997-11-25  |  1KB  |  55 lines
  1. 0
  2. Win95 / Win3.1 / ?
  3. OUTLAW
  4. Programmieren
  5.  
  6. ------------------ Hi! -----------------
  7.  
  8. Nachdem in der Ausgabe 11/97 Hilly eine
  9. Pascal-L÷sung um herauszufinden ob Win95
  10. lΣuft gemailt hat, habe ich mir gedacht,
  11. vielleicht gibts hier auch Visual Basic-
  12. Programmierer die das wissen wollen:
  13.  
  14. Funktion 'WinVer ':
  15.  
  16. FUNCTION WINVER () As Single
  17. Dim vernum&, verword%, Erg$
  18. vernum& = GetVersion& ()
  19. verword% = CInt (vernum& / &H10000)
  20. verword% = CInt (vernum& And &HFFFF&)
  21. WINVER = (vervord% And &HFF) + CInt (verword% /
  22. '                                 256) / 100
  23. End Function
  24.  
  25. Im Deklarationsabschnitt:
  26. weiter->
  27. Declare Function GetVersion& Lib 'Kernel'()
  28.  
  29. ...und jetzt die Auswertung...
  30.  
  31. Sub Form_Load ()
  32. If WINVER () = 3.95 Then
  33. '   MsgBox 'Win 95 lΣuft'
  34. ElseIf WINVER () <= 3.11 Then
  35. '   MsgBox 'Win 3.1x lΣuft'
  36. Else
  37. '   MsgBox 'Win NT lΣuft'
  38. End If
  39. End Sub
  40.  
  41.  
  42. ...WICHTIG! DIE '-ZEICHEN AM ANFANG MANCHER
  43. ZEILEN NICHT MIT EINGEBEN!!!...
  44.  
  45. Ich hoffe ich konnte jemandem helfen!
  46.  
  47. Wenn jemand in Visual Basic programmiert,
  48. weiter->
  49. bitte schreibt mir ins PP !!
  50.  
  51. Auch Fragen werden gerne entgegengenommen
  52. (aber nicht immer beantwortet...)
  53.  
  54. ------------------- OUTLAW --------------
  55.