git.sur5r.net Git - bacula/bacula/blob - bacula/src/win32/util.nsh

   1 ; GetWindowsVersion
   2  ;
   3  ; Based on Yazno's function, http://yazno.tripod.com/powerpimpit/
   4  ; Returns on top of stack
   5  ;
   6  ; Windows Version (95, 98, ME, NT x.x, 2000, XP, .NET Server)
   7  ; or
   8  ; '' (Unknown Windows Version)
   9  ;
  10  ; Usage:
  11  ;   Call GetWindowsVersion
  12  ;   Pop $R0
  13  ;   ; at this point $R0 is "NT 4.0" or whatnot
  14
  15
  16  Function IsNT
  17    Push $R0
  18    Push $R1
  19    ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
  20    StrCmp $R0 "" 0 lbl_winnt
  21
  22    StrCpy $R0 'false'
  23    Goto lbl_done
  24
  25    lbl_winnt:
  26     Strcpy $R0 'true'
  27
  28    lbl_done:
  29    Pop $R1
  30    Exch $R0
  31  FunctionEnd
  32
  33  Function GetWindowsVersion
  34    Push $R0
  35    Push $R1
  36    ReadRegStr $R0 HKLM "SOFTWARE\Microsoft\Windows NT\CurrentVersion" CurrentVersion
  37    StrCmp $R0 "" 0 lbl_winnt
  38    ; we are not NT.
  39    ReadRegStr $R0 HKLM SOFTWARE\Microsoft\Windows\CurrentVersion VersionNumber
  40
  41    StrCpy $R1 $R0 1
  42    StrCmp $R1 '4' 0 lbl_error
  43
  44    StrCpy $R1 $R0 3
  45
  46    StrCmp $R1 '4.0' lbl_win32_95
  47    StrCmp $R1 '4.9' lbl_win32_ME lbl_win32_98
  48
  49    lbl_win32_95:
  50      StrCpy $R0 '95'
  51    Goto lbl_done
  52
  53    lbl_win32_98:
  54      StrCpy $R0 '98'
  55    Goto lbl_done
  56
  57    lbl_win32_ME:
  58      StrCpy $R0 'ME'
  59    Goto lbl_done
  60
  61    lbl_winnt:
  62
  63      StrCpy $R1 $R0 1
  64
  65      StrCmp $R1 '3' lbl_winnt_x
  66      StrCmp $R1 '4' lbl_winnt_x
  67
  68      StrCpy $R1 $R0 3
  69
  70      StrCmp $R1 '5.0' lbl_winnt_2000
  71      StrCmp $R1 '5.1' lbl_winnt_XP
  72      StrCmp $R1 '5.2' lbl_winnt_dotNET lbl_error
  73
  74      lbl_winnt_x:
  75        StrCpy $R0 "NT $R0" 6
  76      Goto lbl_done
  77
  78      lbl_winnt_2000:
  79        Strcpy $R0 '2000'
  80      Goto lbl_done
  81
  82      lbl_winnt_XP:
  83        Strcpy $R0 'XP'
  84      Goto lbl_done
  85
  86      lbl_winnt_dotNET:
  87        Strcpy $R0 '.NET Server'
  88      Goto lbl_done
  89
  90    lbl_error:
  91      Strcpy $R0 ''
  92    lbl_done:
  93    Pop $R1
  94    Exch $R0
  95  FunctionEnd