PureBoard

Code: Alles auswählen

#MB_TIMEDOUT = $7D00

Prototype.i MBTimeOut(hwnd.i, lpText.s, lpCaption.s, uType.l, wLanguageId.w, dwMilliseconds.l)

Procedure MessageBoxTimeout(hwnd.i, lpText.s, lpCaption.s, uType.l, dwMilliseconds.l)
  Protected hDLL = GetModuleHandle_("user32")
  Protected FuncString.s
  Protected MBTimeOut.MBTimeOut
  
  CompilerIf #PB_Compiler_Unicode
    FuncString.s = Space(17)
    PokeS(@FuncString, "MessageBoxTimeoutW", -1, #PB_Ascii)
  CompilerElse
    FuncString.s = "MessageBoxTimeoutA"
  CompilerEndIf
  
  If hDLL
    MBTimeOut = GetProcAddress_(hDLL, @FuncString)
    If MBTimeOut
      ProcedureReturn MBTimeOut(hwnd, lpText, lpCaption, uType, 0, dwMilliseconds)
    EndIf
  Else
    Debug "Error: MessageBoxTimeout"
  EndIf
EndProcedure

; Beispiel:
Select MessageBoxTimeout(0, "Mögen Sie PureBasic?" + #LF$ + "Sie haben 5 Sekunden zu antworten!", "Frage:", #MB_YESNO, 5000)
  Case #IDYES
    Debug "Sie haben 'Ja' gewählt!"
  Case #IDNO
    Debug "Sie haben 'Nein' gewählt!"
  Case #MB_TIMEDOUT
    Debug "Sie waren zu langsam ;-)"
EndSelect

Code: Alles auswählen

Procedure IsProgramReady(Program.i, MillisecondsToWait.i)
  Protected ProgramHandle.i, RetVal.i
  
  ProgramHandle = OpenProcess_(#PROCESS_QUERY_INFORMATION, #False, ProgramID(Program))
  If ProgramHandle = 0
    ProcedureReturn -1
  EndIf
  
  Select WaitForInputIdle_(ProgramHandle, MillisecondsToWait)
    Case #WAIT_FAILED:  RetVal = -1
    Case #WAIT_TIMEOUT: RetVal = #False
    Case 0:             RetVal = #True
  EndSelect
  
  CloseHandle_(ProgramHandle)
  ProcedureReturn RetVal
EndProcedure

Program = RunProgram("C:\Program Files\Paint.NET\PaintDotNet.exe", "", "", #PB_Program_Open)
If IsProgram(Program)
  
  ; Warte bis Programm bereit ist
  Repeat
    If ProgramRunning(Program)
      If IsProgramReady(Program, 100) = #True
        Break
      EndIf
    EndIf
  ForEver
  
  Debug "Programm ist nun bereit"
  
EndIf

Code: Alles auswählen

Procedure EnableBlurBehindWindow(hWnd.l, enable.b = #True, region.l = 0, transitionOnMaximized.b = #False)
  Protected blurBehind.DWM_BLURBEHIND
  Protected Lib
  Protected *pAfunc
  
  blurBehind\dwFlags = #DWM_BB_ENABLE | #DWM_BB_TRANSITIONONMAXIMIZED
  ;blurBehind\dwFlags = #DWM_BB_ENABLE
  blurBehind\fEnable = enable
  blurBehind\fTransitionOnMaximized = transitionOnMaximized
  
  ;Lib = LoadLibrary_("dwmapi.dll")
  Lib = OpenLibrary(#PB_Any, "dwmapi.dll")
  If Lib
    If (enable And 0) <> region
      blurBehind\dwFlags = #DWM_BB_BLURREGION
      blurBehind\hRgnBlur = region
    EndIf
      ;*pAfunc = GetProcAddress_(Lib, "DwmEnableBlurBehindWindow")
      *pAfunc = GetFunction(Lib,  "DwmEnableBlurBehindWindow")
      CallFunctionFast(*pAfunc, hWnd, @blurBehind)
      ;FreeLibrary_(Lib)
      CloseLibrary(Lib)
  EndIf
   
  ProcedureReturn
EndProcedure

Code: Alles auswählen

Procedure.w MouseWheelDelta() 
  Static MouseDelta.w
  Define ret
  
  MouseDelta + ((EventwParam()>>16)&$FFFF)
  ret = MouseDelta/120
  MouseDelta - ret*120

  ProcedureReturn -ret

EndProcedure