Добавил в батник, запускаемый из guirunonce
Код:
@echo off
REGEDIT.EXE /S "%windir%\tweaks.reg"
del /F /Q "%windir%\tweaks.reg"
copy /y "%AllUsersProfile%\Application Data\Microsoft\User Account Pictures\Default Pictures\2Pac.bmp" "%AllUsersProfile%\Application Data\Microsoft\User Account Pictures\%UserName%.bmp"
Dc.exe -width=1024 -height=768 -depth=max
del /F /Q "%windir%\tweaks.cmd"
exit
Не знаю сработает или нет...
Цитата BigBoo:
|
А можно ли удалить каким-нибудь твиком значок из панели быстрого запуска? »
|
А если добавить в автозагрузку vbs-ку:
Код:
On Error Resume Next
Set WshShell = WScript.CreateObject("WScript.Shell")
Set fso = CreateObject("Scripting.FileSystemObject")
AllUsersProfile = WshShell.ExpandEnvironmentStrings("%AllUsersProfile%")
UserProfile = WshShell.ExpandEnvironmentStrings("%UserProfile%")
fso.DeleteFile AllUsersProfile & "\Application Data\Microsoft\Internet Explorer\Quick Launch\Запустить обозреватель Internet Explorer.lnk", True
fso.DeleteFile UserProfile & "\Application Data\Microsoft\Internet Explorer\Quick Launch\Запустить обозреватель Internet Explorer.lnk", True
FileDelete fso, WScript.ScriptFullName, True
Function FileDelete(oFile, sFileName, bForce)
If oFile.FileExists(sFileName) Then
oFile.DeleteFile sFileName, bForce
End If
End Function
Function FolderDelete(oFile, sFolderName, bForce)
If oFile.FolderExists(sFileName) Then
oFile.DeleteFolder sFolderName, bForce
End If
End Function
Сделает все как надо, гарантирую.
