Strona: [  << <   1   > >>  ]  z  1     
Autor Temat: Windows
~`Mhz`~




Typ: neutral
Postów: 40
Zarejestrowany: Jan 2003
Windows

Jak sprawdzić którą wersję windowsa
używa użytkowik
wiem że to było opisane w faq ale
na moim 2000 wywołuje błędy nie
wiem dla czego
więc może ktoś zna jakąś działającą
funkcję na ustalanie czy to
win 9x czy 2k

29-04-2003 16:48
Pokaż profil ~`Mhz`~  Wyślij email do ~`Mhz`~   Odwiedź stronę ~`Mhz`~  
Ushy




Typ: neutral
Postów: 87
Zarejestrowany: Mar 2003

Private Declare Function GetVersion Lib "kernel32" () As Long
Public Function GetWinVersion() As String
    Dim Ver As Long, WinVer As Long
    Ver = GetVersion()
    WinVer = Ver And &HFFFF&
    'retrieve the windows version
    GetWinVersion = Format((WinVer Mod 256) + ((WinVer \ 256) / 100), "Fixed"
End Function
Private Sub Form_Load()
    MsgBox "Windows version: " + GetWinVersion
End Sub

sampel z www.allapi.net


_____________________________________________
www.KURDE.pl

29-04-2003 23:09
Pokaż profil Ushy  Wyślij email do Ushy   Odwiedź stronę Ushy       3299912
Wszystkich odpowiedzi: 1 :: Maxymalnie na stronę: 20
Strona: [  << <   1   > >>  ]  z  1