0
Win95 / Win3.1 / ?
OUTLAW
Programmieren

------------------ Hi! -----------------

Nachdem in der Ausgabe 11/97 Hilly eine
Pascal-Lösung um herauszufinden ob Win95
läuft gemailt hat, habe ich mir gedacht,
vielleicht gibts hier auch Visual Basic-
Programmierer die das wissen wollen:

Funktion 'WinVer ':

FUNCTION WINVER () As Single
Dim vernum&, verword%, Erg$
vernum& = GetVersion& ()
verword% = CInt (vernum& / &H10000)
verword% = CInt (vernum& And &HFFFF&)
WINVER = (vervord% And &HFF) + CInt (verword% /
'                                 256) / 100
End Function

Im Deklarationsabschnitt:
weiter->
Declare Function GetVersion& Lib 'Kernel'()

...und jetzt die Auswertung...

Sub Form_Load ()
If WINVER () = 3.95 Then
'   MsgBox 'Win 95 läuft'
ElseIf WINVER () <= 3.11 Then
'   MsgBox 'Win 3.1x läuft'
Else
'   MsgBox 'Win NT läuft'
End If
End Sub


...WICHTIG! DIE '-ZEICHEN AM ANFANG MANCHER
ZEILEN NICHT MIT EINGEBEN!!!...

Ich hoffe ich konnte jemandem helfen!

Wenn jemand in Visual Basic programmiert,
weiter->
bitte schreibt mir ins PP !!

Auch Fragen werden gerne entgegengenommen
(aber nicht immer beantwortet...)

------------------- OUTLAW --------------