coherent
Silver Member | Редактировать | Профиль | Сообщение | Цитировать | Сообщить модератору
Option Explicit
Dim fso,Origin, SourcePath, MyProgPath, SandboxParent, SandboxName, SandboxPath, MyProgSourceExe, MyProgSourceIni, MyProgDestExe, MyProgDestIni, id, cmd32, cmd
Function OnLastProcessExit
Set fso = CreateObject("Scripting.FileSystemObject")
Origin = GetEnvironmentVariable("TS_ORIGIN")
SourcePath = Left(Origin, InStrRev(Origin, "\") - 1)
MyProgPath = ExpandPath("%ProgramFilesDir%\Data")
cmd32 = chr(34) & ExpandPath("%SystemRoot%\system32\cmd.exe") & chr(34)
SandboxParent = GetBuildOption("SandboxPath")
SandboxName = GetBuildOption("SandboxName")
If SandboxParent = "." Then
SandboxPath = SourcePath & Chr(92) & SandboxName
Else
SandboxPath = SandboxParent & Chr(92) & SandboxName
End If
MyProgSourceExe = MyProgPath & "\MyProgram.exe"
MyProgSourceIni = MyProgPath & "\MyProgram.ini"
MyProgDestExe = SandboxPath & "\MyProgram.exe"
MyProgDestIni = SandboxPath & "\MyProgram.ini"
If not fso.FileExists(MyProgDestExe) then
fso.CopyFile MyProgSourceExe, MyProgDestExe
End If
If not fso.FileExists(MyProgDestIni) then
fso.CopyFile MyProgSourceIni, MyProgDestIni
End If
cmd = cmd32 & " /C" & chr(34)& MyProgDestExe & chr(34)
id = ExecuteExternalProcess(cmd)
WaitForProcess id, 0
If fso.FileExists(MyProgDestExe) Then
fso.DeleteFile(MyProgDestExe)
End if
End Function |
Всего записей: 3881 | Зарегистр. 20-02-2007 | Отправлено: 20:46 05-06-2014 | Исправлено: coherent, 21:23 05-06-2014 |
|
