Professional Softs Links part 61 pdf

; Set default values for variables (Cho biến các giá trị mặc định)
;
StrCpy "$PROGRAMEXE" "${EXE}" ; dùng thiết lập mặc định
StrCpy "$PROGRAMPARMS" ""
StrCpy "$SPLASHSCREEN" "enabled" ; cho phép splashscreen
;
; Kiểm tra cấu hình thư mục nào được dùng và thiết lập các biến theo
đó
;
IfFileExists "$EXEDIR\App\${APP}\$PROGRAMEXE" ""
CheckPortableDIR
StrCpy "$PROGRAMDIR" "$EXEDIR\App\${APP}"
StrCpy "$DATADIR" "$EXEDIR\Data"
Goto InitVarEnd
CheckPortableDIR:
IfFileExists
"$EXEDIR\${PNAME}\App\${APP}\$PROGRAMEXE" ""
CheckPortableAppsDIR
StrCpy "$PROGRAMDIR"
"$EXEDIR\${PNAME}\App\${APP}"
StrCpy "$DATADIR" "$EXEDIR\${PNAME}\Data"
Goto InitVarEnd
CheckPortableAppsDIR:
IfFileExists
"$EXEDIR\PortableApps\${PNAME}\App\${APP}\$PROGRAMEXE" ""
CheckAppsDIR
StrCpy "$PROGRAMDIR"
"$EXEDIR\PortableApps\${PNAME}\App\${APP}"
StrCpy "$DATADIR"
"$EXEDIR\PortableApps\${PNAME}\Data"
Goto InitVarEnd

CheckAppsDIR:
IfFileExists
"$EXEDIR\Apps\${PNAME}\${APP}\$PROGRAMEXE" "" NoDIR
StrCpy "$PROGRAMDIR"
"$EXEDIR\Apps\${PNAME}\${APP}"
StrCpy "$DATADIR" "$EXEDIR\Data\${PNAME}"
Goto InitVarEnd
NoDIR:
;
; Không tìm thấy cấu hình thư mục được cho phép nào
;
MessageBox MB_OK|MB_ICONEXCLAMATION
`$PROGRAMEXE không tìm thấy. Xin kiểm tra cấu hình của bạn`
Abort ; kết thúc launcher
InitVarEnd: ;kết thúc hàm
FunctionEnd

;
******************************************************************
********
; * Hàm: Làm việc với các khóa hoặc cây registry (backup, restore, delete)
;
******************************************************************
********
Function DoAction
StrCmp "$ACTIONPARAMETERS" "" Sau vòng lặp ; nếu không có tham
số nào thì thôi ngay
StrCpy "$R8" "0" ; reset bộ đếm
StrCpy "$R2" "$ACTION" 6 # ; chỉ lấy 6 ký tự đầu của hành động đc yêu
cầu

StrCmp "$R2" "Backup" "" GoOn ; sao lưu thư mục yêu cầu
IfFileExists "$ACTIONDIRECTORY\*.*" GoOn ; tạo thư mục sao lưu nếu
nó không tồn tại
CreateDirectory $ACTIONDIRECTORY
GoOn:
StrCpy "$R0" "$ACTIONPARAMETERS" ; chép hằng số để làm việc đăng
ký
Loop:
;
; Lấy tham số đơn ra khỏi danh sách
;
StrCmp "$R0" "" Sau vòng lặp ; không phân tích registry, khi không
có khóa nào được đưa ra
IntOp $R8 $R8 + 1 ; tăng bộ đếm
${WordFind} "$R0" "||" "+01" $R9 ; lưu tham số đầu tiên để đăng ký
${WordFind} "$R0" "||" "+02*}" $R0 ; xóa phần đầu tiên từ giá trị đã
lưu
StrCmp "$R0" "$R9" LastLoop ; nếu các giá trị đăng ký trùng nhau ->
không còn delimiters
Goto DoWork ; không xóa danh sách giá trị
LastLoop:
StrCpy "$R0" "" ; Nếu không có delimiter sẵn có thì làm trống rỗng
các biến làm việc
;
;Quyết định làm gì với tham số
;
DoWork:
StrCpy "$R2" "$ACTION" "" -4 # ; lấy 7 ký tự cuối của biến hoạt
động
!ifdef REGKEYS

StrCmp "$R2" "Keys" DoWorkRegistry ; hành động phải được
thực hiện với registry
!endif
!ifdef SETTINGSFILES
StrCmp "$R2" "File" DoWorkFiles ; hành động phải được thực
hiện với file
!endif
!ifdef SETTINGSDIRS
StrCmp "$R2" "Dirs" DoWorkDirectory ; hành động phải được
thực hiện với các thư mục
!endif
Goto Continue ; có gì đó không xác định
;
; Thao tác với các khóa registry
;
!ifdef REGKEYS
DoWorkRegistry:
StrCmp "$ACTION" "BackupKeys" BackupRegistryKey
; sao lưu khóa registry
StrCmp "$ACTION" "RestoreKeys" RestoreRegistryKey
; phục hồi khóa registry, VD ghi chúng vào registry
StrCmp "$ACTION" "DeleteKeys" DeleteRegistryKey ;
Xóa các khóa registry
Goto Continue ; có gì đó không xác định
BackupRegistryKey:
${registry::KeyExists} "$R9" $R7 ; kiểm tra khóa
registry có tồn tại hay không
StrCmp "$R7" "0" 0 Continue ; khóa registry không tồn
tại, không lưu lại gì cả
${registry::SaveKey} "$R9"

"$ACTIONDIRECTORY\RegKey$R8.reg" "/G=1" $R7 ; Sao lưu khóa registry
Sleep 50
Goto Continue
RestoreRegistryKey:
IfFileExists "$ACTIONDIRECTORY\RegKey$R8.reg"
0 Continue ; chỉ phục hồi nếu 1 file registry tồn tại
${registry::RestoreKey}
"$ACTIONDIRECTORY\RegKey$R8.reg" $R7 ; Phục hồi các khóa registry đã
lưu
Sleep 50
Goto Continue
DeleteRegistryKey:
${registry::DeleteKey} "$R9" $R7 ; Xóa khóa registry
Sleep 50
Goto Continue
!endif
;
; Thao tác với file
;
!ifdef SETTINGSFILES
DoWorkFiles:
StrCmp "$ACTION" "BackupFile" BackupFile ; thực
hiện sao lưu file
StrCmp "$ACTION" "RestoreFile" RestoreFile ; phục
hồi các file đã lưu, VD ghi nó vào máy host
StrCmp "$ACTION" "DeleteFile" DeleteFile ; xóa file từ
host computer
BackupFile:
IfFileExists "$R9" 0 Continue ; kiểm tra xem file có tồn
tại hay không

CopyFiles "$R9" "$ACTIONDIRECTORY\File$R8.dat"
; sao lưu file
Goto Continue
RestoreFile:
IfFileExists "$ACTIONDIRECTORY\File$R8.dat" 0
Continue ; chỉ phục hồi khi file có sẵn
CopyFiles "$ACTIONDIRECTORY\File$R8.dat" "$R9"
; phục hồi file
Goto Continue
DeleteFile:
Delete "$R9" ; xóa file
Goto Continue
!endif
;
; Thao tác với thư mục
;
!ifdef SETTINGSDIRS
DoWorkDirectory:
StrCmp "$ACTION" "BackupDirs" BackupDirectory ;
sao lưu thư mục
StrCmp "$ACTION" "RestoreDirs" RestoreDirectory ;
phục hồi thư mục đã sao lưu, VD ghi nó vào máy host
StrCmp "$ACTION" "DeleteDirs" DeleteDirectory ; xóa
thư mục từ máy host
BackupDirectory:
IfFileExists "$R9\*.*" 0 Continue ; kiểm tra xem thư
mục nguồn có tồn tại hay không
IfFileExists "$ACTIONDIRECTORY\Dir$R8.dat" +2 0 ;
thư mục đích có tồn tại hay không?
CreateDirectory "$ACTIONDIRECTORY\Dir$R8.dat" ;

tạo thư mục đích
CopyFiles "$R9\*.*"
"$ACTIONDIRECTORY\Dir$R8.dat" ; sao lưu thư mục
Goto Continue
RestoreDirectory:
IfFileExists "$ACTIONDIRECTORY\Dir$R8.dat\*.*" 0
Continue ; kiểm tra xem các sao lưu có tồn tại không
IfFileExists "$R9\*.*" +2 0 ; thư mục đích có tồn tại
không
CreateDirectory "$R9" ; create target directory
CopyFiles "$ACTIONDIRECTORY\Dir$R8.dat\*.*"
"$R9" ; phục hồi các thư mục
Goto Continue
DeleteDirectory:
RMDir "/r" "$R9" ; xóa thư mục
Goto Continue
!endif
;
; End of Loop