Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Показать сообщение отдельно

Ветеран


Сообщения: 565
Благодарности: 41

Профиль | Сайт | Отправить PM | Цитировать


Я пользуюсь таким способом. Есть архив, где лежит фар с плагинами, ярлыком и reg-файлом с настройками.
Это батник, который всем занимается:
Код: Выделить весь код
..\7z x -y far.zip -o"%ProgramFiles%"
SET curdir=%cd%
cd /D "%ProgramFiles%\far"
call RestoreSettings.bat
cd /D "%curdir%"
set curdir=%cd%

REM здесь идет отдельная установка архиватора 7Zip и плагина к нему

cd ..\7zip
call 7zip_cons.bat
cd %curdir%

if "%OS%"=="Windows_NT" goto WinNT  
goto exit

:WinNT

rem Здесь идет модификация профилей ВСЕХ пользователей, которые есть на компе. В т.ч. и DEFAULT.

..\ModifyProfile.exe /PROFILE:ALL /REG:"%programfiles%\far\Far.reg" /KEYNAME:TEMP
:exit

rem  Здесь удаляются все ярлыки, какие могут быть на рабочем столе у данного юзера, и кладется новый ярлык на рабочий стол ВСЕМ 
rem  юзерам

..\autoit3.exe farlnk.au3
По соотв. путям должны лежать соот-щие утилиты, т.е. autoit3 и modifyprofile.
Вот последний скрипт, который ярлык выкладывает:

Код: Выделить весь код
$n=5
DIm $lnk[$n+1]
$lnk[1]="Far Manager"
$lnk[2]="far"
$lnk[3]="Ярлык для Far"
$lnk[4]="Ярлык для Far Manager"
$lnk[5]="Shortcut to Far"
Dim $add[6]

$add[1]=""

For $i = 2 to $n
	$add[$i]=" (" & String($i) & ")"
Next
Opt	("WinTitleMatchMode",	1)	;1=start, 2=subStr, 3=exact, 4=...
Opt	("WinWaitDelay",	250)	;250 milliseconds
$Title_1 = "FAR version 1.70 beta 5"
$Title_2 = "The FAR manager SETUP"
For $i=1 to $n 
For $j=1 to $n	
	If FileExists(@DesktopCommonDir & "\" & $lnk[$i] & $add[$j] & ".lnk") Then FileDelete(@DesktopCommonDir & "\" & $lnk[$i] & $add[$j] & ".lnk")
	If FileExists(@DesktopDir & "\" &$lnk[$i] & $add[$j] & ".lnk") Then	FileDelete(@DesktopDir & "\"  & $lnk[$i] & $add[$j] & ".lnk")
		
Next
Next
FileCopy(@ProgramFilesDir & "\Far\Far.lnk",@DesktopCommonDir & "\Far.lnk",1)

Отправлено: 03:38, 21-05-2006 | #12