XYplorer Beta Club

Code: Select all

#NoEnv
#NoTrayIcon
#Persistent
#SingleInstance force

xyPath := "C:\Program Files (x86)\XYplorer"
xyExe  := "XYplorer.exe"
xyID   := "ahk_class ThunderRT6FormDC ahk_exe " xyExe

#e::
    xyHWnd := WinExist(xyID)

    if (xyHWnd) {
        Send_WM_COPYDATA(xyHWnd, "::tab('new');")
        WinActivate, % "ahk_id " xyHWnd
    } else {
        Run, "%xyPath%\%xyExe%"
    }
return


Send_WM_COPYDATA(xyHWnd, message) {
    size := StrLen(message)
    if !(A_IsUnicode) {
        VarSetCapacity(data, size * 2, 0)
        StrPut(message, &data, size, "UTF-16")
    } else {
        data := message
    }
    VarSetCapacity(COPYDATA, A_PtrSize * 3, 0)
    NumPut(4194305, COPYDATA, 0, "Ptr")
    NumPut(size * 2, COPYDATA, A_PtrSize, "UInt")
    NumPut(&data, COPYDATA, A_PtrSize * 2, "Ptr")
    result := DllCall("User32.dll\SendMessageW", "Ptr", xyHWnd, "UInt", 74, "Ptr", 0, "Ptr", &COPYDATA, "Ptr")
    return
}