Opt("TrayIconHide",1)
$path=('K-Lite Codec Pack\Configuration')
$search = FileFindFirstFile(@ProgramsDir&'\'&$path&'\*.lnk')
; Check if the search was successful
If $search = -1 Then
MsgBox(0, "Ошибка", "Нет файлов для поиска")
Exit
EndIf
While 1
$file = FileFindNextFile($search)
If @error Then ExitLoop
$array = FileGetShortcut($file)
; проверка добавление секции и параметра в ini-файл. Работает если указаны явно, а с переменными проблема
IniWrite(@ScriptDir&'\Shortcut.ini', 'Shortcut', 'FileCreateShortcut('&$array[0]&',@ProgramsDir&"\'&$file&','&$array[1]&',"", '&$array[3]&', "'&$array[4]&'", "'&$array[5]&'", "0", @SW_SHOW) ;', '')
; проверка команды батника добавления строки в файл
RunWait ( @Comspec & ' /C Echo FileCreateShortcut('&$array[0]&',@ProgramsDir&"\'&$file&','&$array[1]&',"", '&$array[3]&', "'&$array[4]&'", "'&$array[5]&'" >> Shortcut2.au3', '', @SW_HIDE )
WEnd
; конец поиска.
FileClose($search)
; переименование ini в au3
Sleep (500)
RunWait ( @Comspec & ' /C ren Shortcut.ini Shortcut.au3', '', @SW_HIDE )
;MsgBox(0, "0", $array[0]) ; путь к файлу
;MsgBox(0, "1", $array[1]) ; рабочая папка
;MsgBox(0, "2", $array[2]) ; параметры командной строки
;MsgBox(0, "3", $array[3]) ; описание, дискрипшн
;MsgBox(0, "4", $array[4]) ; иконка файла (по умолчанию иконка стартового файла)
;MsgBox(0, "5", $array[5]) ; номер иконки (по умолчанию первая)
;MsgBox(0, "6", $array[6]) ; 1-нормально,2-минимизировано,3-максимизировано |
Я что-то этого не нашёл 
)))))))))))))))))))))))))) ...пожрет моё творение пол системы, вот будет nice testing 
