007Alex007
Junior Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Dim fso, DestPath, DrvFolder, SourceFolder, id
Set fso=CreateObject("Scripting.FileSystemObject")
DestPath = ExpandPath("%TEMP%")
DrvFolder = DestPath & "\" & "drivers"
SourceFolder = ExpandPath("%ProgramFilesDir%\UltraISO\drivers")
Function OnFirstSandboxOwner
fso.CopyFolder SourceFolder, DestPath & "\"
id=ExecuteExternalProcess(chr(34) & DrvFolder & "\loader.exe" & chr(34) & " drivers " & chr(34) & DrvFolder & "\ISODrive.sys" & chr(34))
WaitForProcess id, 0
End Function
Function OnLastProcessExit
id=ExecuteExternalProcess(chr(34) & DrvFolder & "\loader.exe" & chr(34) & " drivers delete")
WaitForProcess id, 0
fso.DeleteFolder DrvFolder
End Function |
Всего записей: 138 | Зарегистр. 18-04-2008 | Отправлено: 20:09 13-03-2015 | Исправлено: 007Alex007, 20:13 13-03-2015 |
|
