Что нового

Создание ярлыка Компьютер на рабочем столе.

rafzak

Новичок
Сообщения
27
Репутация
1
Версия AutoIt: 3.3.8.1
Здравствуйте.
Описание:
Необходимо чтобы, при выполнении скрипта, была одной из задач - создание ярлыка "Компьютер" на рабочем столе.
Примечания:
Реализовать можно через реестр:

Код:
Windows Registry Editor Version 5.00
[HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel]
"{20D04FE0-3AEA-1069-A2D8-08002B30309D}"=dword:00000000

но ярлык на рабочем столе не будет отображаться, нужно обновление explorer.exe
для этого можно сделать Win+M, потом F5

возможны другие варианты autoit, по этому и спрашиваю.

Создание ярлыка с названием компьютер, не прокатывает (нужен функционал контекстного меню)

обязателен возврат в скрипт, далее выполняются другие функции.

Спасибо.
 

---Zak---

Скриптер
Сообщения
455
Репутация
120
Код:
WinMinimizeAll()


RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "1")
_UpdateExplorer()
Sleep(5000)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "0")
_UpdateExplorer()
Sleep(5000)
RegWrite("HKEY_CURRENT_USER\Software\Microsoft\Windows\CurrentVersion\Explorer\HideDesktopIcons\NewStartPanel", "{20D04FE0-3AEA-1069-A2D8-08002B30309D}", "REG_DWORD", "1")
_UpdateExplorer()

Func _UpdateExplorer()
    Local $Opt = Opt('WinSearchChildren', 1)
    Local $List = WinList('[CLASS:SHELLDLL_DefView]')
    For $i = 1 To UBound($List) - 1
        DllCall('user32.dll', 'long', 'SendMessage', 'hwnd', $List[$i][1], 'int', 0x0111, "int", 0x7103, 'int', 0)
    Next
    Opt('WinSearchChildren', $Opt)
EndFunc   ;==>_UpdateExplorer


Источник: F1, http://autoit-script.ru/index.php?topic=9863.msg65421#msg65421
 

inververs

AutoIT Гуру
Сообщения
2,135
Репутация
465
Код:
FileCreateShortcut('::{20D04FE0-3AEA-1069-A2D8-08002B30309D}',@DesktopDir&'\Мой компьютер')
 
Автор
R

rafzak

Новичок
Сообщения
27
Репутация
1
---Zak---
Спасибо, Ваш скрипт подходит.
inververs
Красиво, только если зайти в свойства, через контекстное меню, открываются свойства ярлыка, а не компьютера.
Спасибо
 
Верх