VB-Homepage Tipp 025
Systemabfrage 16 oder 32Bit Umgebung
Abfrage, ob das Programm in 16 oder 32Bit Betriebssystemumgebung läuft.
Ggf. könnte bei nichtzutreffen der gewünschten Umgebung das Programm abgbrochen werden.

Allgemein/Deklarationen 'der Form

Function IsOS32Bit() As Boolean
#If Win32 Then
   IsOS32Bit = True
#Else
   IsOS32Bit = False
#End If
End Function

Form1/Load
If IsOS32Bit = True Then
   Msgbox "Alles Fit mit 32Bit"
Else
   Msgbox "Uraltsystem gefunden"
End If
Tipp-Download
Quelle :
Zurück zur Übersichtsseite