PureBoard

;-TOP
Define hDesktop, hDesktopDC

hDesktop = GetDesktopWindow_()
If hDesktop
  hDesktopDC = GetDC_(hDesktop)
 
  If hDesktopDC
    TextOut_(hDesktopDC, 1000, 40, "Hello, Windows!", 15)
    InvalidateRect_(hDesktop, 0, 0)
  EndIf
 
EndIf

Procedure FindDTWindow()
  Protected.i hWnd, hwndWorkW, hView, h, dResult
  hwnd = FindWindow_(@"Progman"), @"Program Manager"))
 
  SendMessageTimeout_(hWnd, $052C, 0, #Null, #SMTO_NORMAL, 1000, @dResult)
 
  hwndWorkW = #Null
  Repeat
    hwndWorkW = FindWindowEx_(#Null, hwndWorkW, @"WorkerW", #Null);
    If hwndWorkW = #Null
      Continue
    EndIf
   
    hView = FindWindowEx_(hwndWorkW, #Null, @"SHELLDLL_DefView", #Null);
    If hView = #Null
      Continue
    EndIf
   
    h = FindWindowEx_(#Null, hwndWorkW, @"WorkerW", #Null)
    While h <> #Null
      SendMessage_(h, #WM_CLOSE, 0, 0)
      h = FindWindowEx_(#Null, hwndWorkW, @"WorkerW", #Null);
    Wend
    Break
   
  Until #True
 
  ProcedureReturn hWnd ;Auch schon verschiedene "WinSpy" - Handles durchprobiert! (unter Win10)
EndProcedure

Global Ecki.rect
Ecki\bottom = 10
Ecki\left = 10
Ecki\right = 110
Ecki\top = 110

Global dc = GetDCEx_(FindDTWindow(), #Null, $403)
Debug dc
If dc <> 0
  FillRect_(dc, Ecki, CreateSolidBrush_(RGB(255,0,0)))
  InvalidateRect_(dc, Ecki, 0)
  ReleaseDC_(FindDTWindow(), dc)
EndIf