17-10-12, 12:59 AM
كاتب الموضوع : AhmedEssawy
كود :
Public Function GetWinPlatform() As Long
Dim osvi As OSVERSIONINFO
Dim strCSDVersion As String
osvi.dwOSVersionInfoSize = Len(osvi)
If GetVersionEx(osvi) = 0 Then
Exit Function
End If
GetWinPlatform = osvi.dwPlatformId
End Function