MIHMIH007
Advanced Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Для переключения на точку после запуска проги:
Function OnFirstSandboxOwner
RegFileName = ExpandPath("%Personal%\Path1.reg")
Set fso = CreateObject("Scripting.FileSystemObject")
Set RegFile = fso.CreateTextFile(RegFileName, true)
RegFile.WriteLine("Windows Registry Editor Version 5.00")
RegFile.WriteBlankLines(1)
RegFile.WriteLine("[HKEY_CURRENT_USER\Control Panel\International]" & VBCRLF & """sDecimal""="".""")
RegFile.WriteBlankLines(1)
RegFile.Close
RegEditPid = ExecuteExternalProcess("regedit /s " & chr(34) & RegFileName & chr(34))
WaitForProcess RegEditPid, 0
fso.DeleteFile(RegFileName)
End Function
Для переключения на запятую после закрытия проги:
Function OnLastProcessExit
RegFileName = ExpandPath("%Personal%\Path2.reg")
Set fso = CreateObject("Scripting.FileSystemObject")
Set RegFile = fso.CreateTextFile(RegFileName, true)
RegFile.WriteLine("Windows Registry Editor Version 5.00")
RegFile.WriteBlankLines(1)
RegFile.WriteLine("[-HKEY_CURRENT_USER\Software\Microsoft\Windows\ShellNoRoam\MUICache]")
RegFile.WriteLine("[HKEY_CURRENT_USER\Control Panel\International]" & VBCRLF & """sDecimal""="",""")
RegFile.WriteBlankLines(1)
RegFile.Close
RegEditPid = ExecuteExternalProcess("regedit /s " & chr(34) & RegFileName & chr(34))
WaitForProcess RegEditPid, 0
fso.DeleteFile(RegFileName)
End Function
Сделано на основе руководства от vyachko |
Всего записей: 743 | Зарегистр. 05-12-2006 | Отправлено: 08:44 16-09-2008 | Исправлено: MIHMIH007, 08:56 16-09-2008 |
|
