NSIS自动改变桌面主题

admin

1. Name "ChangeStyleXP"
   
2. OutFile "ChangeStyleXP.exe"
   
3. !include "FileFunc.nsh"
   
4. !insertmacro GetFileName
   
5. !define BM_CLICK 0x00F5
   
6. !define WM_CLOSE 0x0010
   
7. Section
   
8. IfFileExists "$WINDIRResourcesThemesWindows Classic.theme" 0 error
   
9. ExecShell 'open' '$WINDIRResourcesThemesWindows Classic.theme'
   
10. FindWindow $0 '#32770' '' $HWNDPARENT
    
11. StrCpy $3 0
    
12. wait:
    
13. IntOp $3 $3 + 1
    
14. StrCmp $3 50 error
    
15. Sleep 100
    
16. System::Call 'user32::GetForegroundWindow()i .r1'
    
17. StrCmp $0 $1 wait
    
18. System::Call 'user32::GetWindowModuleFileName(i r1, t .r2, i ${NSIS_MAX_STRLEN})'
    
19. ${GetFileName} '$2' $2
    
20. StrCmp $2 'comctl32.dll' 0 wait
    
21. HideWindow
    
22. System::Call 'user32::SetWindowPos(i $1,i 0,i 0,i 0,i 0,i 0,i 0)'
    
23. GetDlgItem $2 $1 1
    
24. SendMessage $2 ${BM_CLICK} 0 0
    
25. BringToFront
    
26. MessageBox MB_OK "Success" IDOK quit
    
27. error:
    
28. MessageBox MB_OK "Error"
    
29. quit:
    
30. quit
    
31. SectionEnd

复制代码