Von Thomas Hölzer am 06 April, 1998 um 01:09:43:
Antwort auf: Wie kann man den Standard-Drucker unter NT4 ermitteln? von André Hurler am 05 April, 1998 um 17:14:55:
Wo kommen wir eigentlich hin, wenn wir aus einer simplen API-Funktion eine Geheimniskrämerei
machen??
Ein kopfschüttelnder
Thomas
(BTW: Ich besitze die Profan -Tools "Professional" NICHT...)
Def GetVersionEx(1) !"KERNEL32","GetVersionExA"
declare versioninfo#
dim versioninfo#,148
long versioninfo#,0=148
GetVersionEx(versioninfo#)
IF equ(long(versioninfo#,16),0)
print "WIN32s"
Elseif equ(long(versioninfo#,16),1)
print "Win95"
Elseif equ(long(versioninfo#,16),2)
print "NT"
Else
print "Fehler"
Endif
print long(versioninfo#,4),"Majorversion"
print long (versioninfo#,8),"Minorversion"
' Mit long(versioninfo#,12) gibts noch die Buildnummer
' im Low und Highword und ab Byte 20 folgt ggf. ein String
' mit zusätzlichen Informationen
dispose versioninfo#
waitinput