semiono
17-05-2010, 02:13
Не могу понять в чём я ошибся, но скрипт запускается многократно вплоть до зависания.
Сам код ничего особенного не представляет:
ProgressOn("MyProg...", "")
ProgressSet(100)
ShellExecute("MyProg.exe", "", @ProgramFilesDir & "\MyProg")
Sleep(3000)
$PID = ProcessExists("MyProg.exe")
ProcessClose($PID)
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\MyProg.exe", "", "REG_SZ", @ProgramFilesDir & "\MyProg\MyProg.exe")
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\MyProg.exe", "Path", "REG_SZ", @ProgramFilesDir & "\MyProg")
FileCreateShortcut(@ProgramFilesDir & "\MyProg\MyProg.exe", @UserProfileDir & "\SendTo\MyProg.lnk", @ProgramFilesDir & "\MyProg", "", "MyProg", @ProgramFilesDir & "\MyProg\Sam.ico", "", 0, @SW_SHOWNORMAL)
FileCreateShortcut(@ProgramFilesDir & "\MyProg\MyProg.exe", @ProgramsDir & "\MyProg.lnk", @ProgramFilesDir & "\MyProg", "", "MyProg", @ProgramFilesDir & "\MyProg\Sam.ico", "", 0, @SW_SHOWNORMAL)
$file = FileOpen(@SystemDir & "\Sam.cmd", 10)
FileWrite($file, '@start "" "' & @ProgramFilesDir & '\MyProg\MyProg.exe"' & ' %*' & @CRLF)
FileClose($file)
FileDelete(@ProgramFilesDir & "\MyProg\MyProg.exe")
Sleep(1000)
FileMove(@ProgramFilesDir & "\MyProg\Sam.bin", @ProgramFilesDir & "\MyProg\MyProg.exe", 9)
Sleep(1000)
ProgressOff()
ShellExecute("MyProg.exe", "", @ProgramFilesDir & "\MyProg")
Exit
Всё что мне приходит на ум, это название моего скрипта reg.exe, хотя лгика мне всёравное не ясна.
Ещё одна фитча, то что у меня reg.exe прописан на удаление в реестре в PendingFileRenameOperations,
хотя это тоже как бы не причём.
Причём это сразу не проявилось, толи после кампиляции au3 в exe, вообщем какая-то странность!
Сам код ничего особенного не представляет:
ProgressOn("MyProg...", "")
ProgressSet(100)
ShellExecute("MyProg.exe", "", @ProgramFilesDir & "\MyProg")
Sleep(3000)
$PID = ProcessExists("MyProg.exe")
ProcessClose($PID)
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\MyProg.exe", "", "REG_SZ", @ProgramFilesDir & "\MyProg\MyProg.exe")
RegWrite("HKLM\Software\Microsoft\Windows\CurrentVersion\App Paths\MyProg.exe", "Path", "REG_SZ", @ProgramFilesDir & "\MyProg")
FileCreateShortcut(@ProgramFilesDir & "\MyProg\MyProg.exe", @UserProfileDir & "\SendTo\MyProg.lnk", @ProgramFilesDir & "\MyProg", "", "MyProg", @ProgramFilesDir & "\MyProg\Sam.ico", "", 0, @SW_SHOWNORMAL)
FileCreateShortcut(@ProgramFilesDir & "\MyProg\MyProg.exe", @ProgramsDir & "\MyProg.lnk", @ProgramFilesDir & "\MyProg", "", "MyProg", @ProgramFilesDir & "\MyProg\Sam.ico", "", 0, @SW_SHOWNORMAL)
$file = FileOpen(@SystemDir & "\Sam.cmd", 10)
FileWrite($file, '@start "" "' & @ProgramFilesDir & '\MyProg\MyProg.exe"' & ' %*' & @CRLF)
FileClose($file)
FileDelete(@ProgramFilesDir & "\MyProg\MyProg.exe")
Sleep(1000)
FileMove(@ProgramFilesDir & "\MyProg\Sam.bin", @ProgramFilesDir & "\MyProg\MyProg.exe", 9)
Sleep(1000)
ProgressOff()
ShellExecute("MyProg.exe", "", @ProgramFilesDir & "\MyProg")
Exit
Всё что мне приходит на ум, это название моего скрипта reg.exe, хотя лгика мне всёравное не ясна.
Ещё одна фитча, то что у меня reg.exe прописан на удаление в реестре в PendingFileRenameOperations,
хотя это тоже как бы не причём.
Причём это сразу не проявилось, толи после кампиляции au3 в exe, вообщем какая-то странность!