Perfekt, Danke, auch an Alex, aber nat�rlich habe ich erst im Netzt gesucht, bevor ich hier gefragt habe, und im meinem Zeitdruck... naja, den kennen wir hier ja alle. Andreas Roth -------------------------------------- [EMAIL PROTECTED] *jetzt mit Chat* http://www.EuphoriasChild.DarkTech.org -------------------------------------- > -----Urspr�ngliche Nachricht----- > Von: Frank Matthiesen [mailto:[EMAIL PROTECTED]] > Gesendet: Mittwoch, 12. September 2001 10:55 > An: AspGerman Kaffeehaus > Betreff: [aspdecoffeehouse] Re: Nochmal eine Frage wegen des Vb > Install-Programms > > > andreas wrote: > > Wie lese ich das Betriebsystem bei Visual Basic aus, je nachdem muss > ich > > unterschiedliches installieren? > > > ' Hinweis: Sollten Sie nur im Besitz dieser Text-Datei und nicht > ' des zugeh�rigen Projektes sein, gehen Sie folgenderma�en vor: > ' 1.) �ffnen Sie Visual Basic > ' 2.) Erstellen Sie ein neues Projekt > ' 3.) Markieren und kopieren den auf dieser Seite unten stehen- > ' den Source-Code > ' 4.) F�gen Sie den kopierten Text in Ihr Form ein > ' 5.) Erstellen Sie folgende Steuerelemente auf Ihrem Form : > > Ein Form: Form1 > > ' 6.) Speichern Sie das ganze ab und starten Sie das Programm > > > 'Dieser Source stammt von http://www.activevb.de > 'und kann frei verwendet werden. F�r eventuelle Sch�den > 'wird nicht gehaftet. > > 'Um Fehler oder Fragen zu kl�ren, nutzen Sie bitte unser Forum. > 'Ansonsten viel Spa� und Erfolg mit diesem Source ! > > 'Dank an Heino f�r den 2k > Option Explicit > > Private Declare Function GetVersionEx Lib "kernel32" Alias _ > "GetVersionExA" (lpVersionInformation As OSVERSIONINFO) _ > As Long > > Private Type OSVERSIONINFO > dwOSVersionInfoSize As Long > dwMajorVersion As Long > dwMinorVersion As Long > dwBuildNumber As Long > dwPlatformId As Long > szCSDVersion As String * 128 > End Type > > Const VER_PLATFORM_WIN32s = 0 > Const VER_PLATFORM_WIN32_WINDOWS = 1 > Const VER_PLATFORM_WIN32_NT = 2 > > Private Sub Form_Load() > Dim OSString$, OSVersion As OSVERSIONINFO, BuildNr& > > OSVersion.dwOSVersionInfoSize = Len(OSVersion) > Call GetVersionEx(OSVersion) > > OSString = "Unbekanntes Betriebssystem" > > With OSVersion > If (.dwBuildNumber And &HFFFF&) > &H7FFF Then > BuildNr = (.dwBuildNumber And &HFFFF&) - &H10000 > Else > BuildNr = .dwBuildNumber And &HFFFF& > End If > > If .dwPlatformId = VER_PLATFORM_WIN32_NT Then > If .dwMajorVersion = 4 Then > OSString = "Windows NT" > ElseIf .dwMajorVersion = 5 Then > OSString = "Windows 2000" > End If > ElseIf .dwPlatformId = VER_PLATFORM_WIN32_WINDOWS Then > If (.dwMajorVersion > 4) Or _ > (.dwMajorVersion = 4 And .dwMinorVersion = 10) Then > If BuildNr = 1998 Then > OSString = "Windows 98" > Else > OSString = "Windows 98 SE" > End If > ElseIf (.dwMajorVersion = 4 And .dwMinorVersion = 0) Then > OSString = "Windows 95" > End If > ElseIf .dwPlatformId = VER_PLATFORM_WIN32s Then > OSString = "Windows 32s" > End If > End With > > Me.Caption = OSString > End Sub > > > > > > | [aspdecoffeehouse] als [EMAIL PROTECTED] subscribed > | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv > | Sie k�nnen sich unter folgender URL an- und abmelden: > | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp | [aspdecoffeehouse] als [email protected] subscribed | http://www.aspgerman.com/archiv/aspdecoffeehouse/ = Listenarchiv | Sie k�nnen sich unter folgender URL an- und abmelden: | http://www.aspgerman.com/aspgerman/listen/anmelden/aspdecoffeehouse.asp
