发新话题
打印

哪个API可以得到当前操作系统的版本?

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                '  Maintenance  string  for  PSS  usage  
       osName  As  String                                        '  我自己加的,  操作系统的名称  
End  Type  

Private  Sub  Command1_Click()  
Dim  v  As  OSVERSIONINFO  
v  =  GetWindowsVersion()  
MsgBox  v.osName  
End  Sub  

'  获得  Windows  操作系统的版本  
'  OSVERSIONINFO  结构中的  osName  返回操作系统的名称  
Private  Function  GetWindowsVersion()  As  OSVERSIONINFO  
Dim  ver  As  OSVERSIONINFO  
ver.dwOSVersionInfoSize  =  148  
GetVersionEx  ver  
With  ver  
       Select  Case  .dwPlatformId  
               Case  1  
                       Select  Case  .dwMinorVersion  
                               Case  0  
                                       .osName  =  "Windows  95"  
                               Case  10  
                                       .osName  =  "Windows  98"  
                               Case  90  
                                       .osName  =  "Windows  Mellinnium"  
                       End  Select  
               Case  2  
                       Select  Case  .dwMajorVersion  
                               Case  3  
                                       .osName  =  "Windows  NT  3.51"  
                               Case  4  
                                       .osName  =  "Windows  NT  4.0"  
                               Case  5  
                                       If  .dwMinorVersion  =  0  Then  
                                               .osName  =  "Windows  2000"  
                                       Else  
                                               .osName  =  "Windows  XP"  
                                       End  If  
                       End  Select  
                 Case  Else  
                       .osName  =  "Failed"  
       End  Select  
End  With  
GetWindowsVersion  =  ver  
End  Function  

先在窗体中加一个Command,然后把上面的代码拷贝到窗体模块中,单击按钮就会出现对话框显示操作系统的名称。
换个头像,看见广告就眼红,直接封ID。

TOP

发新话题