Archived
1
0

+ get names of "Application Data" and "Local Settings" from registry for multi-language

This commit is contained in:
mbirth 2007-04-24 09:55:37 +00:00
parent 51742e5457
commit 180a78acc2

View File

@ -1,3 +1,28 @@
; get names in local language for "Application Data", "Local Settings" and "Application Data" below "Local Settings"
RegRead AD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, AppData
RegRead LS, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, Local Settings
RegRead LAD, HKEY_CURRENT_USER, Software\Microsoft\Windows\CurrentVersion\Explorer\Shell Folders, Local AppData
If LAD
LAD := AD
StringRight ADc, AD, 1
StringRight LSc, LS, 1
StringRight LADc, LAD, 1
If (ADc = "\")
StringTrimRight AD, AD, 1
If (LSc = "\")
StringTrimRight LS, LS, 1
If (LADc = "\")
StringTrimRight LAD, LAD, 1
SplitLast(null, ADn, AD, "\")
SplitLast(null, LSn, LS, "\")
SplitLast(null, LADn, LAD, "\")
EnvSet USERPROFILE, %U3_APP_DATA_PATH%
; %HOMEPATH% is without drive letter and colon, do it also here
@ -5,7 +30,7 @@ EnvGet eSystemDrive, SystemDrive
StringReplace eHOMEPATH, U3_APP_DATA_PATH, %eSystemDrive%
EnvSet HOMEPATH, %U3_APP_DATA_PATH%
EnvSet HOMEDRIVE, % EnvValue("U3_DEVICE_PATH")
EnvSet APPDATA, % U3_APP_DATA_PATH . "\Application Data"
EnvSet APPDATA, % U3_APP_DATA_PATH . "\" . ADn
; add custom PATH directories
EnvGet ePATH, PATH
@ -24,6 +49,10 @@ IfNotExist %APPDATA%
{
FileCreateDir %APPDATA%
}
IfNotExist %U3_APP_DATA_PATH%\%LSn%\%LADn%
{
FileCreateDir %U3_APP_DATA_PATH%\%LSn%\%LADn%
}
SetWorkingDir %U3_HOST_EXEC_PATH%
cmdl := AppExe