AutoHotkey Community

Code: Select all

; FirstScript.exe is e.g. a simple script containing only
; RETURN
; and compiled with Unicode-32 AutoHotkeySC.bin.


; If I run the following script from AutoHotkey.exe,
; UpdateRes() takes about 3.5 s (SSD).


FirstScript  := A_ScriptDir . "\FirstScript.exe"
SecondScript := A_ScriptDir . "\SecondScript.exe" 
FileCopy, %FirstScript%, %SecondScript%
ScrString := "MsgBox SECOND SCRIPT"
UpdateRes(SecondScript, ScrString)
Run %SecondScript%

RETURN

UpdateRes(ExeFil, ScrStr)
{
   t0 := A_TickCount
   VarSetCapacity(BinScrStr, BinScrStr_Len := StrPut(ScrStr, "UTF-8") - 1)
   StrPut(ScrStr, &BinScrStr, "UTF-8")
   Module := DllCall("BeginUpdateResource", "str", ExeFil, "uint", 0, "ptr")
   If !Module
      MsgBox ERR MODULE
   If !DllCall("UpdateResource", "ptr", Module, "ptr", 10, "str", ">AHK WITH ICON<"
                , "ushort", 0x409, "ptr", &BinScrStr, "uint", BinScrStr_Len, "uint")
      MsgBox ERR UPDATE
   If !DllCall("EndUpdateResource", "ptr", Module, "uint", 0)
      MsgBox ERR ENDUPDATE
   t := A_TickCount - t0
   MsgBox TIME: %t%
}