AZJIO
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Код: Opt("TrayIconHide", 1)
$DPCD = 'B:\Documents and Settings\Default User\Главное меню\Программы\!\Wim-soft на CD_HDD'
;$DPRM = 'B:\Documents and Settings\Default User\Главное меню\Программы\!\Wim-soft на RAM-Drive'
; 1 - Номер ярлыка
;$NME1 - Имя программы, оно же используется и каталогом и иконкой и wim-файл для удобства добавления ярлыков.
;$DIR1 - путь, где создаётся ярлык
;$LNK1 - путь и имя ярлыка (без расширения)
;$WRK1 - рабочий каталог программы (на момент старта ярлыка)
;$EXE1 - путь к стартовому файлу (wim-файлу) (без расширения)
;$DSC1 - описание ярлыка, отображается при всплывающей подсказке
;$ICO1 - иконка ярлыка (без расширения)
; 1
$NME1 = 'AVP8'
$DIR1 = $DPCD
$LNK1 = $DIR1&'\'&$NME1
$WRK1 = @ScriptDir&'\'&$NME1
$EXE1 = $WRK1&'\'&$NME1
$DSC1 = 'Антивирус Касперского 8'
$ICO1 = $WRK1&'\'&$NME1
; 2
$NME2 = 'mstTADsk'
$DIR2 = $DPCD
$LNK2 = $DIR2&'\mst Total Access Disk'
$WRK2 = @ScriptDir&'\'&$NME2
$EXE2 = $WRK2&'\'&$NME2
$DSC2 = 'Полный доступ к файлам и папкам'
$ICO2 = $WRK2&'\'&$NME2
; 3
$NME3 = 'DupeLocater'
$DIR3 = $DPCD
$LNK3 = $DIR3&'\'&$NME3
$WRK3 = @ScriptDir&'\'&$NME3
$EXE3 = $WRK3&'\'&$NME3
$DSC3 = 'Поиск дубликатов'
$ICO3 = $WRK3&'\'&$NME3
; 4
$NME4 = 'ActiveSMART'
$DIR4 = $DPCD
$LNK4 = $DIR4&'\'&$NME4
$WRK4 = @ScriptDir&'\'&$NME4
$EXE4 = $WRK4&'\'&$NME4
$DSC4 = 'Инфрмация о жёстком диске'
$ICO4 = $WRK4&'\'&$NME4
; Цикл создания вышеописанных ярлыков
;если 165 ярлыков, то меняем так:
;For $i=1 To 165
; ToolTip('Остался ' & (166-$i) & ' из ' & 165, 50, 100, 'Создание ярлыков')
;хотя строку ToolTip можно вообще убрать, это подсказка при создании ярлыков.
For $i=1 To 50
ToolTip('Остался ' & (51-$i) & ' из ' & 50, 50, 100, 'Создание ярлыков')
$DIR = Eval('DIR' & $i)
$LNK = Eval('LNK' & $i)
$WRK = Eval('WRK' & $i)
$EXE = Eval('EXE' & $i)
$ARG = Eval('ARG' & $i)
$DSC = Eval('DSC' & $i)
$ICO = Eval('ICO' & $i)
If NOT FileExists($DIR) Then DirCreate($DIR)
If FileExists ($EXE&'.wim') Then FileCreateShortcut($EXE&'.wim', $LNK&'.lnk', $WRK, $ARG, $DSC, $ICO&'.ico')
Next |
|
Всего записей: 4413 | Зарегистр. 03-05-2006 | Отправлено: 07:21 14-08-2009 | Исправлено: AZJIO, 11:27 14-08-2009 |
|
