Declare-Windows

From Xojo Documentation

You are currently browsing the old Xojo documentation site. Please visit the new Xojo documentation site!

Flash App Indicator in Task Bar

Declare Function FlashWindow Lib "User32" (HWND As Integer, invert As Boolean) As Boolean
Call FlashWindow(MyWindow.Handle, True) ' flash once

Enable Window Compositing

Sub EnableComposite(w As Window)
#If TargetWindows
Const GWL_EXSTYLE = -20
Const WS_EX_COMPOSITED = &h2000000

Declare Function GetWindowLongW Lib "user32" (hwnd As Ptr, nIndex As Int32) As Integer
Dim style As Integer = GetWindowLongW(w.Handle, GWL_EXSTYLE)
style = BitwiseOr(style, WS_EX_COMPOSITED)

Declare Sub SetWindowLongW Lib "user32" (hwnd As Ptr, nIndex As Int32, dwNewLong As Integer)
SetWindowLongW(w.Handle, GWL_EXSTYLE, style)
#EndIf
End Sub

Declare Example Projects

  • Examples/Advanced/GetPID
  • Examples/Advanced/WindowOpacity
  • Examples/Platform-Specific/Windows/CommandLinkExample
  • Examples/Platform-Specific/Windows/CPUUsage
  • Examples/Platform-Specific/Windows/CustomWindowShape
  • Examples/Platform-Specific/Windows/DeclareDrawing
  • Examples/Platform-Specific/Windows/SetWindowIcon

Other Resources

These external sources of information might also be helpful when working with Declares on Windows:

See Also

Declare