PureBoard

Code: Alles auswählen

Global start.i
Global ende.i
Global mindest.i
mindest = 2000

Structure tFolderWindow
   hWnd     .i [ $FF ]
   sTitle   .s [ $FF ]
   nEntries .i
   nCurrent .i
EndStructure

Procedure.i _ExamineFolderProc ( hWnd.i , *FolderWindows.tFolderWindow )
   Protected sClassName .s = Space ( $FF )
   Protected sWindowName.s
   
   GetClassName_( hWnd , @ sClassName , $FF )
   If sClassName = "CabinetWClass"
      sWindowName = Space ( $FF )
      GetWindowText_( hWnd , @ sWindowName , $FF )
      *FolderWindows\hWnd   [ *FolderWindows\nEntries ] = hWnd
      *FolderWindows\sTitle [ *FolderWindows\nEntries ] = sWindowName
      *FolderWindows\nEntries + 1
   EndIf
   
   ProcedureReturn #True
EndProcedure

Procedure ExamineFolderWindows ()
   Shared FolderWindows.tFolderWindow

   FolderWindows\nEntries = 0
   FolderWindows\nCurrent = 0
   
   ProcedureReturn EnumWindows_( @ _ExamineFolderProc () , FolderWindows )
EndProcedure

Procedure NextFolderWindow ()
   Shared FolderWindows.tFolderWindow
   Static Current      .tFolderWindow

   If FolderWindows\nCurrent => FolderWindows\nEntries
      ProcedureReturn #Null
   EndIf
   
   Current\hWnd   = FolderWindows\hWnd    [ FolderWindows\nCurrent ]
   Current\sTitle = FolderWindows\sTitle  [ FolderWindows\nCurrent ]

   FolderWindows\nCurrent + 1

   ProcedureReturn Current
EndProcedure

If OpenWindow(0, 650, 150, 500, 500, "Offene Fenster")
  ListViewGadget(0,2,2,400,500)
  Define.tFolderWindow *FolderWindow

    again:
    ClearGadgetItems(0)
    If ExamineFolderWindows()
      Repeat
        *FolderWindow = NextFolderWindow()
        If *FolderWindow
          AddGadgetItem(0, -1,*FolderWindow\sTitle+Chr(10)+Str(*FolderWindow\hWnd))
        EndIf     
      Until Not *FolderWindow
    EndIf
    start = ElapsedMilliseconds()
    pos1:
    ende = ElapsedMilliseconds()
    If ende - start < mindest
      Delay(1)
      Goto pos1
    Else
      Goto again
    EndIf
    Repeat : Until WaitWindowEvent() = #PB_Event_CloseWindow
    
EndIf