soo, hier noch einmal ein Update:
Ich habe den Aufruf für die "Windows Bild und Faxanzeige" eingebaut. Da bei dir ja auch noch Windows 2000 Rechner im Einsatz sind, habe ich zusätzlich noch eine Klasse eingebaut, die die verwendete Windows Version ermittelt. Ich habe lediglich 2 Properties eingebaut
IsWinXP und
IsWin2000
Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String * 128
End Type
Declare Function GetVersionExA Lib "kernel32" (lpVersionInformation As OSVERSIONINFO) As Integer
Dim tmp As String
Public Class OSVersion
Private Function GetWindowsVersion() As String
tmp = ""
Dim OS As OSVERSIONINFO
Dim ret As Integer
OS.dwOSVersionInfoSize = 148
OS.szCSDVersion = Space$(128)
ret = GetVersionExA( OS )
Select Case OS.dwPlatformId
Case 1
Select Case OS.dwMajorVersion
Case 0: tmp = "Windows 95"
Case 10: tmp = "Windows 98"
End Select
Case 2
Select Case OS.dwMajorVersion
Case 3
Select Case OS.dwMinorVersion
Case 0: tmp = "Windows NT3"
Case 1: tmp = "Windows NT3.1"
Case 5: tmp = "Windows NT3.5"
Case 51: tmp = "Windows NT3.51"
End Select
Case 4: tmp = "Windows NT 4.0"
Case 5
Select Case OS.dwMinorVersion
Case 0: tmp = "Windows 2000"
Case 1: tmp = "Windows XP"
End Select
End Select
Case Else
tmp = "unknown"
End Select
GetWindowsVersion = tmp
End Function
Public Function IsWinXP As Variant
IsWinXp =False
If GetWindowsVersion = "Windows XP" Then
IsWinXp =True
End If
End Function
Public Function IsWin2000 As Variant
IsWin2000 =False
If GetWindowsVersion = "Windows 2000" Then
IsWin2000 =True
End If
End Function
End Class
Ulrich