Single Post - Total Commander 11.57 RC5-6

Hidden text

Code:

#Requires AutoHotkey v2.0

; 1. Создаем GUI
MyGui := Gui("+Resize", "Embedded MPC-HC")
MyGui.OnEvent("Size", Gui_Size)
MyGui.OnEvent("Close", (*) => ExitApp())

; Добавляем контейнер (текстовое поле или просто пустую область), где будет плеер
; Это поможет нам позиционировать плеер внутри GUI
MyGui.AddText("vContainer w800 h450 +Border", "")
MyGui.Show()

; 2. Запускаем MPC-HC в режиме slave
; Передаем HWND нашего скрипта, чтобы плеер знал, кому слать отчеты
MpcPath := "c:\Program Files (x86)\K-Lite Codec Pack\MPC-HC\mpc-hc.exe" ; Проверьте путь!
MyHwnd := MyGui.Hwnd
;Run('"' MpcPath '" /slave ' MyHwnd, , , &MpcPID)
Run('"' MpcPath '"', , , &MpcPID)

; Ждем появления окна плеера
if !WinWait("ahk_pid " MpcPID, , 5) {
MsgBox "Не удалось запустить MPC-HC"
ExitApp
}

MpcHwnd := WinExist("ahk_pid " MpcPID)

; 3. Встраивание (Embedding)
; Убираем рамки и меню у MPC для чистого вида
WinSetStyle("-0xC00000", MpcHwnd) ; WS_CAPTION (убрать заголовок)
WinSetStyle("-0x80000", MpcHwnd) ; WS_SYSMENU (убрать системное меню)

; Делаем наше GUI родительским окном для MPC
DllCall("SetParent", "Ptr", MpcHwnd, "Ptr", MyHwnd)

; Начальная подгонка размера
MoveMpc()

;MyGui.Show()

; Функция для подгонки размера при изменении окна GUI
Gui_Size(thisGui, MinMax, Width, Height) {
if (MinMax = -1) ; Окно свернуто
return
MoveMpc()
}

MoveMpc() {
try {
; Получаем координаты нашего контейнера внутри GUI
MyGui["Container"].GetPos(&x, &y, &w, &h)
; Перемещаем плеер точно в эти координаты
WinMove(x, y, w, h, "ahk_id " MpcHwnd)
}
}

MoveMpc2() {
if !WinExist("ahk_id " MpcHwnd)
return
try {
MyGui["Container"].GetPos(&x, &y, &w, &h)
WinMove(x, y, w, h, "ahk_id " MpcHwnd)
}
}

; Пример управления через сообщения (Play/Pause)
#HotIf WinActive("ahk_id " MyHwnd)
Space:: {
; Код команды Play/Pause для MPC-HC часто 887 или через WM_COPYDATA
; Самый простой способ - отправить стандартную команду WM_COMMAND (0x111)
PostMessage(0x111, 887, 0, , "ahk_id " MpcHwnd)
}
#HotIf

MyGui.OnEvent("Close", GuiClose)

; В обработчике закрытия GUI:
GuiClose(*) {
; 1. Немедленно скрываем плеер, чтобы он не пытался перерисовываться
try WinHide("ahk_id " MpcHwnd)

; 2. Отключаем обработку изменения размеров, чтобы MoveMpc не вызвался случайно
MyGui.OnEvent("Size", (*) => 0)

; 3. Выводим плеер из состава GUI (возвращаем в Desktop)
; Это критично! Если этого не сделать, уничтожение MyGui уничтожит и дескриптор,
; на который завязан поток рендеринга MPC.
DllCall("SetParent", "Ptr", MpcHwnd, "Ptr", 0)

; 4. Посылаем команду закрытия (WM_CLOSE = 0x10)
PostMessage(0x10, 0, 0, , "ahk_id " MpcHwnd)

; 5. Ждем завершения процесса (не более 2 секунд)
if !ProcessWaitClose(MpcPID, 2)
ProcessClose(MpcPID) ; Жесткое завершение, если завис

ExitApp()
}