AutoHotkey Community

TrayTip, AHK, This is a BalloonTip Test.,,1

TrayTip, AHK, This is a BalloonTip Test.,  ,1

BalloonTip("This is a BalloonTip Test.", 10 ,10)

Sleep, 20000
ExitApp

BalloonTip(sText, xpos, ypos, sTitle = "AHK", hBGRcolor="") {
    Old_DetectHiddenWindows := A_DetectHiddenWindows
    DetectHiddenWindows, On
    hWnd := DllCall("CreateWindowEx", "Uint", 0x8, "str", "tooltips_class32", "Uint", 0, "Uint", 0xC3, "int", 0, "int", 0, "int", 0, "int", 0, "Uint", 0, "Uint", 0, "Uint", 0, "Uint", 0)
    VarSetCapacity(ti, 40, 0)
    ti := Chr(40)
    DllCall("ntdll\RtlFillMemoryUlong", "Uint", &ti + 4, "Uint", 4, "Uint", 0x20)
    DllCall("ntdll\RtlFillMemoryUlong", "Uint", &ti +36, "Uint", 4, "Uint", &sText)
    SendMessage, 1028, 0, &ti,, ahk_id %hWnd%
    SendMessage, 1041, 1, &ti,, ahk_id %hWnd%
    SendMessage, 1042, 0, xpos | ypos << 16,, ahk_id %hWnd%
    If hBGRcolor {
        SendMessage, 1043, hBGRcolor, 0,, ahk_id %hWnd%
        SendMessage, 1044,~hBGRcolor & 0xFFFFFF, 0,, ahk_id %hWnd%
      }
    SendMessage, 1056, 1, &sTitle,, ahk_id %hWnd%
    SendMessage, 1036, 0, &ti,, ahk_id %hWnd%
    DetectHiddenWindows, %Old_DetectHiddenWindows%
  }

#Persistent
BalloonTip("This is a BalloonTip Test.")
BalloonTip("Second BalloonTip Test.", "Toralf", 100, "", 2, 3000 , "Position")
MsgBox, 0,Ballon Test,wait,6
ExitApp
Return

BalloonTip(sText                   ; text of balloon tip
         , sTitle = "AutoHotkey"   ; title of balloon tip
         , xpos=""                 ; x position, "": mouse x position
         , ypos=""                 ; y position, "": mouse y position
         , hIcon="1"               ; icon of ballon tip, 0: None, 1:Info, 2: Warning, 3: Error. n > 3: assumed to be an hIcon
         , iTimeout = "0"          ; timeout in milliseconds for balloon tip, 0: no timeout
         , nColor="")              ; BGR color for background, text uses compliment color, "Position": color at xpos/ypos
          {
   static hWnd
   hWnd := DllCall("CreateWindowEx", "Uint", 0x8, "str", "tooltips_class32", "str", "", "Uint", 0xC3, "int", 0, "int", 0, "int", 0, "int", 0, "Uint", 0, "Uint", 0, "Uint", 0, "Uint", 0)

   VarSetCapacity(ti, 40, 0)
   ti := Chr(40)
   DllCall("ntdll\RtlFillMemoryUlong", "Uint", &ti + 4, "Uint", 4, "Uint", 0x20)   ; TTF_TRACK
   DllCall("ntdll\RtlFillMemoryUlong", "Uint", &ti +36, "Uint", 4, "Uint", &sText)

   DllCall("GetCursorPos", "int64P", pt)
   If !xpos
       xpos := pt << 32 >> 32            ; can be negative
   If !ypos
       ypos := pt       >> 32            ; can be negative

   If (nColor = "Position"){
       hDC_Scr := DllCall("GetDC", "Uint", 0)
       nColor  := DllCall("GetPixel", "Uint", hDC_Scr, "int", xpos, "int", ypos)
       DllCall("ReleaseDC", "Uint",0, "Uint", hDC_Scr)
     }

   _DetectHiddenWindows_ := A_DetectHiddenWindows
   DetectHiddenWindows, On
   SendMessage, 1028, 0, &ti,, ahk_id %hWnd%      ; TTM_ADDTOOL
   SendMessage, 1041, 1, &ti,, ahk_id %hWnd%      ; TTM_TRACKACTIVATE
   SendMessage, 1042, 0, (xpos & 0xFFFF)|(ypos & 0xFFFF)<<16,, ahk_id %hWnd%   ; TTM_TRACKPOSITION
   If (nColor <> ""){
       SendMessage, 1043, nColor, 0,, ahk_id %hWnd%      ; TTM_SETTIPBKCOLOR
       SendMessage, 1044,~nColor & 0xFFFFFF, 0,, ahk_id %hWnd%   ; TTM_SETTIPTEXTCOLOR
     }
   SendMessage, 1056, hIcon, &sTitle,, ahk_id %hWnd%      ; TTM_SETTITLE   ; 0: None, 1:Info, 2: Warning, 3: Error. n > 3: assumed to be an hIcon.
   SendMessage, 1036, 0, &ti,, ahk_id %hWnd%      ; TTM_UPDATETIPTEXT
   DetectHiddenWindows, %_DetectHiddenWindows_%
   
   If iTimeOut
      SetTimer, BalloonTip_TimeOut, %iTimeOut%
   Return
   
   BalloonTip_TimeOut:
      SetTimer, BalloonTip_TimeOut, Off
      WinClose, ahk_id %hWnd%
   Return
}

hWnd := DllCall("CreateWindowEx", "Uint", 0x8, "str", "tooltips_class32", "Uint", 0, "Uint", 0xC3, "int", 0x80000000, "int", 0x80000000, "int", 0x80000000, "int", 0x80000000, "Uint", 0, "Uint", 0, "Uint", 0, "Uint", 0)

   SendMessage, 1048, 0, A_ScreenWidth,, ahk_id %hWnd%   ; TTM_SETMAXTIPWIDTH