IT天空

 找回密码
 加入我们

手机号码,快捷登录

搜索

[求助] win10系统下不生效问题

[复制链接]
ahbzlong 发表于 2020-10-12 10:10:07 | 显示全部楼层 |阅读模式

IT天空 定制版高速U盘 64G/128G/256G | 固态U盘 256G Pro/512G Pro
  1. #NoTrayIcon
  2. #AutoIt3Wrapper_icon=D:\autoit3\Aut2Exe\Icons\FOLDER.ico
  3. ;~ #AutoIt3Wrapper_Compression=4
  4. #AutoIt3Wrapper_UseAnsi=y
  5. #AutoIt3Wrapper_Res_Comment=2011-04-08, 00:00
  6. #AutoIt3Wrapper_Res_Description=桌面图标同步程序
  7. #AutoIt3Wrapper_Res_Fileversion=1.0.0.0
  8. #AutoIt3Wrapper_Res_LegalCopyright=Amu
  9. #include <GuiListView.au3>
  10. Opt("MustDeclareVars", 1)
  11. Global $hWndManager = WinGetHandle("Program Manager")
  12. Global $hWndDesktop = ControlGetHandle("Program Manager","",1)
  13. If Not IsDeclared("GWL_STYLE") Then Global Const $GWL_STYLE = -16
  14. Global $LVS_Style = _WinAPI_GetWindowLong($hWndDesktop, $GWL_STYLE)
  15. Global $inifile, $iSet, $iRefresh, $SNAPTOGRID
  16. If $CmdLine[0] Then
  17.      For $i = 1 To $CmdLine[0]
  18.          Select
  19.              Case StringRegExp($CmdLine[$i], '^[/-](?i)load[=:].+$|^[/-](?i)l[=:].+win10系统下不生效,有大神给完善下吗
  20. 原帖地址:https://www.itsk.com/thread-112873-1-1.html
  21. ) And Not $inifile         
  22.                  $iSet = 1
  23.                  $inifile = StringRegExpReplace($CmdLine[$i], '^[/-](?i)load[=:]?|^[/-](?i)l[=:]?', "")
  24.                  
  25.              Case StringRegExp($CmdLine[$i], '^[/-](?i)save[=:].+$|^[/-](?i)s[=:].+win10系统下不生效,有大神给完善下吗
  26. 原帖地址:https://www.itsk.com/thread-112873-1-1.html
  27. ) And Not $inifile
  28.                  $iSet = 0
  29.                  $inifile = StringRegExpReplace($CmdLine[$i], '^[/-](?i)save[=:]?|^[/-](?i)s[=:]?', "")
  30.                  
  31.              Case StringRegExp($CmdLine[$i], '^[/-](?i)SnapToGrid[=:]\d+$|^[/-](?i)g[=:]\d+win10系统下不生效,有大神给完善下吗
  32. 原帖地址:https://www.itsk.com/thread-112873-1-1.html
  33. ) And $inifile         
  34.                  $SNAPTOGRID = Number (StringRegExpReplace($CmdLine[$i], '^[/-](?i)SnapToGrid[=:]?|^[/-](?i)g[=:]?', "") )
  35.                  
  36.              Case StringRegExp($CmdLine[$i], '^[/-](?i)Refresh$|^[/-](?i)rwin10系统下不生效,有大神给完善下吗
  37. 原帖地址:https://www.itsk.com/thread-112873-1-1.html
  38. )
  39.                  $iRefresh = 1
  40.                  
  41.              Case StringRegExp($CmdLine[$i], '^[/-](?i)Help$|^[/-](?i)[?h]win10系统下不生效,有大神给完善下吗
  42. 原帖地址:https://www.itsk.com/thread-112873-1-1.html
  43. )
  44.                  MsgBox(64,"参数帮助!","AutoIcon.exe [</load|/save>=<file>] [/G=<0|1>] [/R]" & @CRLF & "" & @CRLF & _
  45.                      "/load=file 要加载的配置文件。" & @CRLF & "/save=file 要保存的配置文件。" & @CRLF & _
  46.                          "/G=<0|1>   为“0”取消图标对齐到网格,为“1”图标对齐到网格,默认不作更改。" & @CRLF & "/R         相当于桌面右键“刷新”")
  47.                  Exit
  48.              Case Not $inifile
  49.                  $inifile = $CmdLine[$i]
  50.                  If FileExists($inifile) Then $iSet = 1
  51.          EndSelect     
  52.      Next
  53. Else
  54.          $inifile = @ScriptDir &"\icoSpace.ini"
  55.          If FileExists ($inifile) Then
  56.                 $iSet = 1
  57.         Else
  58.                 $iSet = 0
  59.         EndIf
  60. EndIf
  61. If $iSet Then
  62.      If $SNAPTOGRID Then $SNAPTOGRID = $LVS_EX_SNAPTOGRID
  63.      If IsNumber ($SNAPTOGRID) Then _SendMessage($hWndDesktop, $LVM_SETEXTENDEDLISTVIEWSTYLE, $LVS_EX_SNAPTOGRID, $SNAPTOGRID)
  64.      If BitAND($LVS_Style, $LVS_AUTOARRANGE) Then _WinAPI_SetWindowLong($hWndDesktop, $GWL_STYLE, $LVS_Style - $LVS_AUTOARRANGE );取消自动排列
  65.      
  66.      If $iRefresh Then DllCall("shell32.dll", "none", "SHChangeNotify", "long", 0x8000000, "int", 0, "ptr", 0, "ptr", 0);刷新图标
  67.      _SaveAndLoadIconPos($inifile, 1)
  68.      ;Run("RunDll32.exe USER32.DLL,UpdatePerUserSystemParameters");刷新桌面(通过复制文件的方式替换壁纸文件适用)
  69. Else
  70.      _SaveAndLoadIconPos($inifile)
  71. EndIf
  72. Func _SaveAndLoadIconPos($iFile, $iLoad = 0)
  73.      Local $iCount, $iIndex, $sName, $xy     
  74.      If Not IsHWnd($hWndManager) Then $hWndManager = WinGetHandle("Program Manager")
  75.      If Not IsHWnd($hWndDesktop) Then $hWndDesktop = ControlGetHandle("Program Manager","",1)
  76.      $iCount = ControlListView($hWndManager, "", $hWndDesktop, "GetItemCount")
  77.      If @error Then
  78.          SetError(1)
  79.          Return 0
  80.      EndIf
  81.      If Not $iLoad And FileExists($iFile) Then IniDelete($iFile, "图标位置")
  82.      For $iIndex = 0 to $iCount - 1
  83.          $sName = ControlListView($hWndManager, "", $hWndDesktop,"GetText", $iIndex)
  84.          If $iLoad Then
  85.              $xy = StringSplit (IniRead ($iFile, "图标位置", $sName, ""), ",")
  86.              If $xy[0] = 2 Then _
  87.              _SendMessage($hWndDesktop, $LVM_SETITEMPOSITION, $iIndex, BitOR(BitShift($xy[2], -16), BitAND($xy[1], 0xffff) ) )
  88.          Else;保存图标信息
  89.              $xy = _GUICtrlListView_GetItemPosition($hWndDesktop, $iIndex)
  90.              IniWrite($iFile, "图标位置", $sName, $xy[0] & "," & $xy[1] )
  91.          EndIf     
  92.      Next
  93.      Return 1
  94. EndFunc
复制代码
win10系统下不生效,有大神给完善下吗
原帖地址:https://www.itsk.com/thread-112873-1-1.html
您需要登录后才可以回帖 登录 | 加入我们

本版积分规则

ahbzlong

111

活跃

0

技术

0

互助
签到任务
最火的业界新闻
  • 硬件加速光追性能对比:RTX 3080领先RX 680
  • 失去华为重创索尼CMOS业务:削减38%利润、2
  • 华为Mate40 Pro+首发麒麟9000:鲁大师总成
  • 芯片行业又将出大收购?Marvell100亿美元收
  • AMD表示在研发类DLSS技术 能显著提升光追帧
  • 配备RT单元的RTX 3080 光追速度比RX 6000系
  • 微软表示XSX和XSS主机具有完整的RDNA 2功能
  • iPhone 12 mini真机上手泄露:单手党神器
  • 中消协点名 教育机构“预付费式消费”如何
  • 禁令生效前华为积极囤货:内存储备约够使用
炫酷的硬件Show
  • 振华SUPER FLOWER 铜皇450W 铜牌电源
  • 比小更小,Mini-STX装机
  • 华擎X99E-ITX + 银欣ML06 装机记
  • 最强双路泰坦硬管水冷 制作流程
  • 银欣FT02,双路E5工作站
  • 迟到的定制机箱小钢炮清理灰尘
  • 乔思伯UMX1 Plus,小巧的家用综合主机
  • 分体水冷第二弹-Inwin 805 infinity
  • 第一次DIY硬管水冷~~
  • 樱桃MX6.0 青轴 机械键盘 开箱
有趣的美图分享
  • 谁说钱买不来快乐?
  • 给狗子买衣服
  • 今日小数学题
  • 我想成为的动物
  • 望周知
  • 战斗民族动力
  • 不要做轻钢别墅,还是要用砖砌?
  • 地下车库总是招不到保安的原因
  • 父母看到我的电脑桌面
  • 思念
关注官方微信
快速回复 返回顶部 返回列表