Wie ermitte ich innerhalb von Access das installierte Betriebssystem?
Harald
Access und shell-Befehl
Der shell-Befehl führt ein ausführbares Programm aus und gibt eine Task-ID zurück. Wie kann ich mittels dieser Task-ID feststellen, ob die Task noch läuft oder bereits beendet ist?
Harald
Mit der Task-ID kann man leider in 32-Bit-Umgebungen nicht allzuviel anfangen, aber schau mal hier:
http://support.microsoft.com/support/kb/articles/Q12…
Reinhard
[Bei dieser Antwort wurde das Vollzitat nachträglich automatisiert entfernt]
ROFL…
Function WelchesBetriebssystem()
WelchesBetriebssystem = "Windows"
End Function
aber ernsthaft:
Private Type OSVERSIONINFO
dwOSVersionInfoSize As Long
dwMajorVersion As Long
dwMinorVersion As Long
dwBuildNumber As Long
dwPlatformId As Long
szCSDVersion As String \* 128 ' Maintenance string for PSS usage
End Type
' API declarations:
Private Declare Function GetVersionEx Lib "kernel32" \_
Alias "GetVersionExA" \_
(lpVersionInformation As OSVERSIONINFO) As Long
Public Function WindowsVersion()
Dim o As OSVERSIONINFO
o.dwOSVersionInfoSize = Len(o)
GetVersionEx o
WindowsVersion = o.dwPlatformId & ":" & \_
o.dwMajorVersion & "." & o.dwMinorVersion & "." & o.dwBuildNumber
End Function
Reinhard
Sieht beides sehr vielversprechend aus. Danke für die Hilfe.
Harald