Angel Hranite
Junior Member | Редактировать | Профиль | Сообщение | ICQ | Цитировать | Сообщить модератору
Цитата: добился распаковки приложения автоматически рядом с *.ехе в папку *.рс1 * - имя приложения рс1 - имя компьютера | создаете фаил *.vbs в одном каталоге с Package.ini, в нем пишите Цитата: Function OnFirstParentStart Set WSHShell = CreateObject("Wscript.Shell") Set fso = CreateObject("Scripting.FileSystemObject") Origin = GetEnvironmentVariable("TS_ORIGIN") ApplName = Right(Origin, Len(Origin)-InStrRev(Origin, "\")) ApplName1 = Left(ApplName,InStrRev(ApplName, ".")-1) LastSlash = InStrRev(Origin, "\") SourcePath = Left(Origin, LastSlash) Computername = WshShell.ExpandEnvironmentStrings("%COMPUTERNAME%") Folder = ApplName1 & "." & Computername WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\ControlSet001\Control\Session Manager\Environment\" & ApplName1 & "_SANDBOX_DIR", SourcePath & Folder WSHShell.RegWrite "HKEY_LOCAL_MACHINE\SYSTEM\CurrentControlSet\Control\Session Manager\Environment\" & ApplName1 & "_SANDBOX_DIR", SourcePath & Folder If Not fso.FolderExists(SourcePath & Folder) Then newfolder = fso.CreateFolder (SourcePath & Folder) End if End Function | В ##Attributes.ini надо прописать Цитата: [Isolation] DirectoryIsolationMode=Merged RegistryIsolationMode=Merged | и положить в одном каталоге с Package.ini проверял работоспособность нескольких программ одновременно, у меня работает. Спасибо hpoint и CrazyDeath за помощь! |