DynaRun(tempScript, streamName = "")
{
(streamName = "" && streamName := "AHK_" . A_TickCount)
streamName := "\\.\" . A_ScriptFullPath . ":" . streamName
stream := FileOpen(streamName, "rw")
stream.Write(tempScript)
stream.Close()
Run, % A_AhkPath . " """ . streamName . """",, UseErrorLevel HIDE, processID
if ErrorLevel
MsgBox, 262144, ERROR, % "Could not open file:`n """ . streamName . """"
Sleep 50 ; иначе скрипт не успевает загрузится из потока
DllCall("DeleteFile", "Str", streamName, "UInt")
return processID
}
var := "msgbox % A_ScriptFullPath"
DynaRun(var)
msgbox % A_ScriptFullPathСтранно, что FileDelete, file:stream не работает как ожидается.
]]>Без лишних записей на диск, видимо. Функция взята с оф. форума и слегка модифицирована.
Можно пометить файл как временный, тогда мусора на винчестере не будет(а на NTFS можно ещё и в поток к своему скрипту записать). Пайпы нужны для взаимодействия потоков внутри рабочей группы/домена, по сути это всё равно, что использовать сокеты.
]]>В частных случаях можно обойтись:
; ahk_l unicode
; способ подразумевает отсутствие взаимодействия запущенной команды и запускающего скрипта
var := "msgbox"
DynaRun(var)
DynaRun(tempScript, pipeName = "")
{
static DefaultArgs := ["UInt", 2, "UInt", 0, "UInt", 255, "UInt", 0, "UInt", 0, "Ptr", 0, "Ptr", 0, "Ptr"]
static BOM := Chr(0xFEFF)
(pipeName = "" && pipeName := "AHK_" . A_TickCount)
pipeGA := DllCall("CreateNamedPipe", "Str", "\\.\pipe\" pipeName, DefaultArgs*)
pipe := DllCall("CreateNamedPipe", "Str", "\\.\pipe\" pipeName, DefaultArgs*)
if (pipe = -1 || pipeGA = -1)
return false
Run, % A_AhkPath . " ""\\.\pipe\" . pipeName . """",, UseErrorLevel HIDE, processID
if ErrorLevel
MsgBox, 262144, ERROR, % "Could not open file:`n ""\\.\pipe\" . pipeName . """"
DllCall("ConnectNamedPipe", "Ptr", pipeGA, "Ptr", 0), DllCall("CloseHandle", "Ptr", pipeGA)
DllCall("ConnectNamedPipe", "Ptr", pipe, "Ptr", 0)
, tempScript := BOM . tempScript
, tempScriptSize := (StrLen(tempScript)+1)*2
if !DllCall("WriteFile", "Ptr", pipe, "Str", tempScript, "UInt", tempScriptSize, "UInt*", 0, "Ptr", 0)
return A_LastError
DllCall("CloseHandle", "Ptr", pipe)
return processID
}