mirror of
https://git.lyx.org/repos/lyx.git
synced 2024-11-11 05:33:33 +00:00
adc618f6e7
git-svn-id: svn://svn.lyx.org/lyx/lyx-devel/trunk@17366 a592a061-630c-0410-9148-cb99ea01b6c8
69 lines
1.2 KiB
Plaintext
69 lines
1.2 KiB
Plaintext
/*
|
|
|
|
Checks for Windows version
|
|
|
|
*/
|
|
|
|
#--------------------------------
|
|
#Macros
|
|
|
|
!macro CheckPrivileges
|
|
|
|
Push $R0
|
|
|
|
UserInfo::GetAccountType
|
|
Pop $R0
|
|
|
|
${if} $R0 == "Admin"
|
|
StrCpy $AdminOrPowerUser ${TRUE}
|
|
${elseif} $R0 == "Power"
|
|
StrCpy $AdminOrPowerUser ${TRUE}
|
|
${else}
|
|
StrCpy $AdminOrPowerUser ${FALSE}
|
|
${endif}
|
|
|
|
Pop $R0
|
|
|
|
!macroend
|
|
|
|
#--------------------------------
|
|
#Functions
|
|
|
|
Function CheckPrivileges
|
|
!insertmacro CheckPrivileges
|
|
FunctionEnd
|
|
|
|
Function un.CheckPrivileges
|
|
!insertmacro CheckPrivileges
|
|
FunctionEnd
|
|
|
|
Function CheckWindows
|
|
|
|
#Check for Windows NT 5.0 or later (2000, XP, 2003 etc.)
|
|
|
|
${unless} ${IsNT}
|
|
${andunless} ${AtLeastWin2000}
|
|
|
|
MessageBox MB_OK|MB_ICONSTOP "${APP_NAME} ${APP_VERSION} only supports Windows 2000, XP, 2003 and later."
|
|
|
|
${endif}
|
|
|
|
FunctionEnd
|
|
|
|
Function UpdatePathEnvironment
|
|
|
|
Push $R0
|
|
Push $R1
|
|
|
|
#Updates the path environment variable of the instaler process to the latest system value
|
|
|
|
ReadRegStr $R0 HKLM "SYSTEM\CurrentControlSet\Control\Session Manager\Environment" Path
|
|
ReadRegStr $R1 HKCU "Environment" Path
|
|
|
|
System::Call 'kernel32::SetEnvironmentVariableA(t, t) i("Path", "$R0;$R1").r0'
|
|
|
|
Pop $R1
|
|
Pop $R0
|
|
|
|
FunctionEnd
|