#SingleInstance Force     
#Persistent
#NoEnv
ListLines Off
SetBatchLines -1 

Gui, +AlwaysOnTop -Caption -DPIScale +E0x08000020 +LastFound
Gui, Margin, 0, 0
Gui, Color, 63B8DF
Gui, Font, s10 cffffff bold, Trebuchet MS
Gui, Add, Text, vText +0x4000, % " "  ; 0x4000 = SS_ENDELLIPSIS 
WinSet, TransColor, 63B8DF 
Global tWin  
OnExit, Exit
DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc") 
SetWinEventHook(0x800B, 0x800B, 0, RegisterCallback("WinEventHook", "F"),0,0,0)    ;    EVENT_OBJECT_LOCATIONCHANGE 

Loop  {
    WinWaitActive ahk_exe opera.exe
    tWin := WinExist(), OSD()
    WinWaitNotActive, ahk_id %tWin% 
    Gui, Show, Hide
} 

ShellProc(nCode, wParam)  {  
    If (nCode = 6 && wParam = tWin) ; HSHELL_REDRAW
        OSD() 
}

WinEventHook(hWinEventHook, event, hwnd, idObject, idChild, dwEventThread, dwmsEventTime)   {    
    if (hwnd = tWin)
        OSD()
}

OSD()  {
    WinGetPos, WinX, WinY, WinW, WinH, ahk_id %tWin%
    Gui, Show, % "NA x" WinX+20 " y" WinY+9 " w" WinW-40
    GuiControl, Move, Text, % "w" WinW-40
    WinGetTitle, WinTitle, ahk_id %tWin%
    GuiControl, , Text, % WinTitle
}
 
SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags) {
    Return DllCall("SetWinEventHook" , "UInt", eventMin, "UInt", eventMax, "Ptr", hmodWinEventProc
            , "Ptr", lpfnWinEventProc, "UInt", idProcess, "UInt", idThread, "UInt", dwFlags, "Ptr")
}

Exit: 
    DllCall("DeregisterShellHookWindow", "UInt", A_ScriptHwnd)
    ExitApp

Также поддерживается изменение позиции и размеров окна.

Хмм... Почему таки, да. Не знаю что сломалось, для самого загадка.

#NoTrayIcon ; не отображать иконку скрипта в трее

Global Win := "ahk_class Chrome_WidgetWin_1"
    , tWin := WinExist(Win)
    , WinTitle

OnExit, Exit
DllCall("RegisterShellHookWindow", "UInt", A_ScriptHwnd)
OnMessage(DllCall("RegisterWindowMessage", "str", "SHELLHOOK"), "ShellProc")

SetWinEventHook(0x800B, 0x800B, 0, RegisterCallback("WinEventHook", "F"),0,0,0)
; BrowserTitle()
Return

Exit:
    DllCall("DeregisterShellHookWindow", "UInt", A_ScriptHwnd)
    ExitApp

ShellProc(nCode, wParam)  {
    If (nCode = 2 && wParam = tWin && !(tWin := 0)) ; HSHELL_WINDOWDESTROYED (Когда браузер закрывается)
        Gui, 1: Destroy
    Else If (nCode = 1 && !tWin && (tWin := WinExist(Win))) ; HSHELL_WINDOWCREATED (Когда браузер открывается)
        BrowserTitle()
    Else If (nCode = 6 && wParam = tWin) ; HSHELL_REDRAW (Когда переключается вкладка)
        BrowserTitle()
    ; Else If (nCode = 4 && wParam = tWin) ; HSHELL_WINDOWACTIVATED (Когда окно браузера получает фокус)
        ; BrowserTitle()
    Else ; (Когда окно браузера теряет фокус)
        Gui, 1: Destroy
}

SetWinEventHook(eventMin, eventMax, hmodWinEventProc, lpfnWinEventProc, idProcess, idThread, dwFlags) {
    Return DllCall("SetWinEventHook" , "UInt", eventMin, "UInt", eventMax, "Ptr", hmodWinEventProc
        , "Ptr", lpfnWinEventProc, "UInt", idProcess, "UInt", idThread, "UInt", dwFlags, "Ptr")
}

BrowserTitle()  {
    WinGetTitle, WinTitle, ahk_id %tWin%
    ; WinTitle := Rtrim(WinTitle, " — Opera")
    Gui, 1: Destroy
    Gui, 1: +AlwaysOnTop +ToolWindow -Caption +LastFound
    Gui, Margin, 0, 0
    Gui, Color, 63B8DF
    WinSet, TransColor, 63B8DF
    Gui, Font, s10 cFFFFFF bold, Trebuchet MS
    Gui, Add, Text,, %WinTitle%
    Gui, Show, NoActivate x170 y4 w1400 h18
}

Никак не получается сделать появление GUI, когда окно браузера получает фокус, "nCode = 4" почему-то не срабатывает.

WinSet, Style, -0xC00000, A ; Удаляет полосу заголовка у активного окна (WS_CAPTION)

На практике это будет выглядеть как-то так:

WinSet, Style, +0xC00000, Opera

1. зачем тут SetWinEventHook?
2. зачем WinWaitActive если есть ShellProc?
3. зачем HSHELL_WINDOWCREATED и HSHELL_WINDOWDESTROYED?

Не знаю ответов ни на один вопрос, потому что, как я уже говорил, в этом совсем не разбираюсь. Я тестирую методом тыка.

Понимать бы еще, о чем вы говорите.

поменяли движок

Как это может помешать процессу обновления программы?

1. зачем тут SetWinEventHook?
2. зачем WinWaitActive если есть ShellProc?
3. зачем HSHELL_WINDOWCREATED и HSHELL_WINDOWDESTROYED?

Тут дело тёмное, почему с 12.15

оно не обновило на

Да и собственно почему сейчас 12.17 не обновляет на 23?

Можете сделать? Я в скриптинге совсем не разбираюсь.

Могу, но тут либо пиво, либо пробуйте разобратся в коде, и по ходу вашей разработки я вам подскажу.

эти новые оперы из какой то другой оперы.

Вот смотрите:

Это как так?

Чуствую что Opera 12.18 всё же появится.

Ну что ж, признаюсь не знал, но почему то обновление с 12.16 на 12.17 было не так давно, сейчас эта не обновляется. Они что за 4 месяца столько версий настрогали, да ещё и поломали автообновление. Вообщем эта 23 убога и кастрирована как хром, есть мнение что все эти новые оперы из какой то другой оперы.

Версии до 12.17 включительно были на движке Presto. Прошлой весной они поменяли движок на Webkit, который используется в Хроме. Т.е. по сути теперь Опера - это Хром, и от старого функционал почти ничего не осталось. Именно из-за смены движка автообновления с версии 12.17 не происходит.

Можете сделать? Я в скриптинге совсем не разбираюсь.