vb@rchiv
VB Classic
VB.NET
ADO.NET
VBA
C#
 Schützen Sie Ihre Software vor Software-Piraterie - mit sevLock 1.0 DLL!  
 vb@rchiv Quick-Search: Suche startenErweiterte Suche starten   Impressum  | Datenschutz  | vb@rchiv CD Vol.6  | Shop Copyright ©2000-2025
 
zurück

 Sie sind aktuell nicht angemeldet.Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Visual-Basic Einsteiger
WinVersion prüfen 
Autor: Maik
Datum: 10.12.02 15:43
Hallöchen,

ich versuche gerade mit der in Tipps&Tricks vorgeschlagenen Methode (Version II) das aktuelle Betrübssystem zu ermitteln. Dies ist notwenig, da ich bei NT4 einen Menüpunkt verstecken will, der die RASAPI32 verwendet, die ja unter NT 4 nicht so richtig will.

Dazu habe ich in der Funktion die das OS ermittelt für jedes OS Zahlen vergeben und prüfe nun bei Form_Load darauf. Hier der Code: 

'Check auf NT 4.0, da dort keine RASApi32.dll vorhanden ist
'Funktion starten
 
    Betriebssystem
 
        Dim os As Long
        os = OSString
 
    If os = 490 Then
 
        'Updates ausblenden wenn OS = NT 4.0
 
                mnu_search_for_updates.Visible = False
 
        Else
 
           MsgBox "OS nicht erkannt! ;-("
 
    End If
(Okay, die 490 deutet auf WinME, ich hab eben grad nix anderes als Testplattform da und XP wird ja nicht erkannt. *gg*)

Starte ich nun die kompilierte EXE auf meinem Testsystem, dann funktioniert die Erkennung aber nicht.

Woran könnte das liegen?

Bis denne,

Maik
alle Nachrichten anzeigenGesamtübersicht  |  Zum Thema  |  Suchen

 ThemaViews  AutorDatum
WinVersion prüfen322Maik10.12.02 15:43
Re: WinVersion prüfen173ModeratorDieter10.12.02 15:47
Re: WinVersion prüfen181Maik10.12.02 15:54

Sie sind nicht angemeldet!
Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden.

Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  GesamtübersichtSuchen 

nach obenzurück
  
   

Copyright ©2000-2025 vb@rchiv Dieter Otter
Alle Rechte vorbehalten.
Microsoft, Windows und Visual Basic sind entweder eingetragene Marken oder Marken der Microsoft Corporation in den USA und/oder anderen Ländern. Weitere auf dieser Homepage aufgeführten Produkt- und Firmennamen können geschützte Marken ihrer jeweiligen Inhaber sein.

Diese Seiten wurden optimiert für eine Bildschirmauflösung von mind. 1280x1024 Pixel