Конференция VBStreets

**Unstat** » 10.01.2005 (Пн) 0:43

Как мне можно отличить какой мастдай стоит на компе юзера.

**EvilCoder** » 10.01.2005 (Пн) 1:10

в Смысле Удаленно?

**Zer** » 10.01.2005 (Пн) 1:20

По оформлению.... :wink:

GM » 10.01.2005 (Пн) 2:29

В смысле это:

Код: Выделить всё: 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 Private Sub Form_Load() Dim OSInfo As OSVERSIONINFO, PId As String 'KPD-Team 1998 'URL: http://www.allapi.net/ 'KPDTeam@Allapi.net 'Set the graphical mode to persistent Me.AutoRedraw = True 'Set the structure size OSInfo.dwOSVersionInfoSize = Len(OSInfo) 'Get the Windows version Ret& = GetVersionEx(OSInfo) 'Chack for errors If Ret& = 0 Then MsgBox "Error Getting Version Information": Exit Sub 'Print the information to the form Select Case OSInfo.dwPlatformId Case 0 PId = "Windows 32s " Case 1 PId = "Windows 95/98" Case 2 PId = "Windows NT " End Select Print "OS: " + PId Print "Win version:" + str$(OSInfo.dwMajorVersion) + "." + LTrim(str(OSInfo.dwMinorVersion)) Print "Build: " + str(OSInfo.dwBuildNumber) End Sub

**Unstat** » 10.01.2005 (Пн) 11:09

2GM да в смысле то.
2EvilCoder можно и в этом смысле

**HotKitten** » 11.02.2005 (Пт) 0:08

но этот код не оличит win2k от XP и NT 4.0

**HotKitten** » 11.02.2005 (Пт) 0:13

определяет версию винды и сервис пак, 4.10.2222 - win98, 5.0 - Win2k итд

**tyomitch** » 11.02.2005 (Пт) 0:13

Отличит. Win2000=NT5.0, WinXP=NT5.1
Вот WinXP от Win2003 - не отличит :-)

**tyomitch** » 11.02.2005 (Пт) 0:17

Это что, загадка "найди 10 отличий"?
Там GetVersionEx, и тут тоже GetVersionEx.

**HotKitten** » 11.02.2005 (Пт) 0:34

упс и правда отличит, я код не полностью читал сорри

**HotKitten** » 11.02.2005 (Пт) 0:35

зато мой исходник о SP расскажет!

**tyomitch** » 11.02.2005 (Пт) 0:54

HotKitten писал(а):зато мой исходник о SP расскажет!

GM-овский - тоже, и тоже в поле szCSDVersion. Да о чём вообще речь, если одна и та же функция вызывается?

**HotKitten** » 11.02.2005 (Пт) 1:08

да ладно, че то я глючу, спать надо

98 or XP