Aleksandr N
Advanced Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Skif_off
Подумал о о том что могут быть ещё загружены, но не должны. Перед этим идёт код выгрузки всего что загружено. Скрипт управляет запуском программы. По завершении работы программы скрипт удаляет всё ненужное и сам выгружается. На самом деле это скрипт отсюда: https://github.com/vboxme/Portable-VirtualBox/blob/master/source/Portable-VirtualBox.au3 Удалит хочу библиотеку. Вынь 7 32
Встывыш моего кода в оригинальный скрипт:
Копирование:
If @OSArch = "x64" Then
If NOT FileExists (@SystemDir&"\msvcp80.dll") OR NOT FileExists (@SystemDir&"\msvcr80.dll") Then
FileCopy (@ScriptDir&"\app64\msvcp80.dll", @SystemDir, 9)
FileCopy (@ScriptDir&"\app64\msvcr80.dll", @SystemDir, 9)
Local $msv = 2
Else
Local $msv = 0
EndIf
EndIf
--- моё
If @OSArch = "x86" Then
If NOT FileExists (@SystemDir&"\ssleay32.dll") Then
If FileExists (@ScriptDir&"\app32\ssleay32.dll") Then
FileCopy (@ScriptDir&"\app32\ssleay32.dll", @SystemDir, 9)
EndIf
If FileExists (@ScriptDir&"\app32\libeay32.dll") Then
FileCopy (@ScriptDir&"\app32\libeay32.dll", @SystemDir, 9)
EndIf
$SSLLib = 1
EndIf
EndIf
If @OSArch = "x64" Then
If NOT FileExists (@SystemDir&"\ssleay32.dll") Then
If FileExists (@ScriptDir&"\app64\ssleay32.dll") Then
FileCopy (@ScriptDir&"\app64\ssleay32.dll", @SystemDir, 9)
EndIf
If FileExists (@ScriptDir&"\app64\libeay32.dll") Then
FileCopy (@ScriptDir&"\app64\libeay32.dll", @SystemDir, 9)
EndIf
$SSLLib = 1
EndIf
EndIf
--- моё
If FileExists (@ScriptDir&"\"& $arch &"\") AND FileExists (@ScriptDir&"\vboxadditions\") Then
DirMove (@ScriptDir&"\vboxadditions\doc", @ScriptDir&"\"& $arch, 1)
DirMove (@ScriptDir&"\vboxadditions\ExtensionPacks", @ScriptDir&"\"& $arch, 1)
DirMove (@ScriptDir&"\vboxadditions\nls", @ScriptDir&"\"& $arch, 1)
FileMove (@ScriptDir&"\vboxadditions\guestadditions\*.*", @ScriptDir&"\"& $arch &"\", 9)
Endif
Удаление:
If $msv = 2 Then
FileDelete (@SystemDir&"\msvcp80.dll")
FileDelete (@SystemDir&"\msvcr80.dll")
EndIf
--- моё
If $SSLLib = 1 Then
If FileExists (@SystemDir&"\ssleay32.dll") Then
FileDelete (@SystemDir&"\ssleay32.dll")
EndIf
If FileExists (@SystemDir&"\libeay32.dll") Then
FileDelete (@SystemDir&"\libeay32.dll")
EndIf
EndIf
--- моё
If $DRV = 1 Then
RunWait ("sc delete VBoxDRV", @ScriptDir, @SW_HIDE)
EndIf |
