Обновление ListIconGadget

Structure ProcInfo :   Name.s :   File.s{#MAX_PATH} :   PID.l : EndStructure
Structure cpu_load_times : LastProcessTime.l : LastSystemTime.l : dCpuUsage.d : EndStructure
Procedure.d GetProcessCpuLoad(pid)
   
 Static NewMap clt.cpu_load_times()
 Protected pid$ = Str(pid)
 
 Protected iCores =  CountCPUs(#PB_System_CPUs)
 Protected hProcess = OpenProcess_(#PROCESS_QUERY_INFORMATION,#False,pid)
 
 If (hProcess)
    Protected CurrentProcessTime.l, CurrentSystemTime.l
    Protected ftCreationTime.FILETIME , ftExitTime.FILETIME , ftKernelTime.FILETIME , ftUserTime.FILETIME
    Protected KernelTime.ULARGE_INTEGER , UserTime.ULARGE_INTEGER
   
    If GetProcessTimes_(hProcess, @ftCreationTime, @ftExitTime, @ftKernelTime, @ftUserTime)   
        KernelTime\HighPart = ftKernelTime\dwHighDateTime
        KernelTime\LowPart = ftKernelTime\dwLowDateTime
        UserTime\HighPart = ftUserTime\dwHighDateTime
        UserTime\LowPart = ftUserTime\dwLowDateTime
 
        CurrentProcessTime = (PeekQ(@KernelTime) + PeekQ(@UserTime)) / (iCores * 100)
        CurrentSystemTime = GetTickCount_() ; use GetTickCount64() if needed
 
        If(FindMapElement(clt(), pid$)) And clt()\LastSystemTime
            clt()\dCpuUsage = (CurrentProcessTime - clt()\LastProcessTime + 0.0) / (CurrentSystemTime - clt()\LastSystemTime)
            If (CurrentSystemTime - clt()\LastSystemTime) > 3000 ; smoothing
                clt()\LastSystemTime = 0
                clt()\LastProcessTime = 0
            EndIf
        Else
            clt(pid$)\LastProcessTime = CurrentProcessTime           
            clt()\LastSystemTime = CurrentSystemTime
        EndIf
    EndIf   
   
    CloseHandle_(hProcess)
   
    ProcedureReturn clt()\dCpuUsage
 EndIf
 
 ProcedureReturn -1 ; wrong PID
EndProcedure
Procedure ProcessList(List ProcList.ProcInfo())
  Protected pe32.PROCESSENTRY32, hprocess, kernel32=0, x=0
  Protected hthSnapshot, psapilib=0, *GetModuleFileNameEx=0
  
  kernel32=OpenLibrary(#PB_Any,"kernel32.dll")
  
  If OSVersion()>=#PB_OS_Windows_Vista And kernel32
    CompilerIf #PB_Compiler_Unicode
      *GetModuleFileNameEx=GetFunction(kernel32,"QueryFullProcessImageNameW")
    CompilerElse
      *GetModuleFileNameEx=GetFunction(kernel32,"QueryFullProcessImageNameA")
    CompilerEndIf
  EndIf
  
  If *GetModuleFileNameEx=0
    psapilib=OpenLibrary(#PB_Any,"psapi.dll")
    If psapilib
      CompilerIf #PB_Compiler_Unicode
        *GetModuleFileNameEx=GetFunction(psapilib,"GetModuleFileNameExW")
      CompilerElse
        *GetModuleFileNameEx=GetFunction(psapilib,"GetModuleFileNameExA")
      CompilerEndIf
    EndIf
  EndIf
  
  pe32\dwSize = SizeOf(PROCESSENTRY32)
  ClearList(ProcList())
  
  hthSnapshot = CreateToolhelp32Snapshot_(#TH32CS_SNAPPROCESS, 0)
  If hthSnapshot
    Process32First_(hthSnapshot, @pe32) 
    While Process32Next_(hthSnapshot, @pe32) 
      If AddElement(ProcList())
        ProcList()\Name = PeekS(@pe32\szExeFile)
        ProcList()\PID  = pe32\th32ProcessID
        If *GetModuleFileNameEx
          hprocess=OpenProcess_(#PROCESS_QUERY_INFORMATION|#PROCESS_VM_READ,#Null,pe32\th32ProcessID)
          If hprocess
            If *GetModuleFileNameEx
              If psapilib
                CallFunctionFast(*GetModuleFileNameEx,hprocess,#Null,@ProcList()\File,#MAX_PATH)
              Else
                x=#MAX_PATH
                CallFunctionFast(*GetModuleFileNameEx,hprocess,#Null,@ProcList()\File,@x)
              EndIf
            EndIf
            CloseHandle_(hprocess)
          EndIf
        EndIf
      EndIf
    Wend 
    CloseHandle_(hthSnapshot)
  EndIf
  
  If kernel32
    CloseLibrary(kernel32)
  EndIf
  
  If psapilib
    CloseLibrary(psapilib)
  EndIf
EndProcedure 
 Procedure process(x)
 NewList ProcList.ProcInfo()
 ;HideGadget(10,1)
ProcessList(ProcList())
 
ForEach ProcList()
  AddGadgetItem(10,-1,ProcList()\Name + Chr(10) + GetProcessCpuLoad(ProcList()\PID) + Chr(10) + Str(ProcList()\PID) +  Chr(10) + ProcList()\File) ;Str(ClientID))
;Value$ + ProcList()\Name +"," + GetProcessCpuLoad(ProcList()\PID) + "," + ProcList()\PID + "," + ProcList()\File+#CR$
Next
Delay(10000)
 
Repeat
  x=0
  NewList ProcList.ProcInfo()
  ProcessList(ProcList())
  ForEach ProcList()
    
  SetGadgetItemText(10, x, ProcList()\Name ,0) : SetGadgetItemText(10, x, Str(GetProcessCpuLoad(ProcList()\PID)) ,1) : SetGadgetItemText(10, x, Str(ProcList()\PID) ,2) : SetGadgetItemText(10, x, ProcList()\File,3)
x = x+1
Next
Delay(10000)
ForEver
EndProcedure
 
 
 
 
 
 
 
 
 
 
 
   OpenWindow(10,0,0,650,600,"ProcessList",#PB_Window_ScreenCentered|#PB_Window_MinimizeGadget|#PB_Window_Invisible) 
        ListIconGadget(10,2,40,640,530,"Имя",120,#PB_ListIcon_GridLines|#PB_ListIcon_FullRowSelect)
        ;SetGadgetFont(10,LoadFont(0,"MS Sans Serif",6) )
        AddGadgetColumn(10, 1, "LOAD", 60)
        AddGadgetColumn(10, 2, "PID", 60)
        AddGadgetColumn(10, 3, "Path", 420)
        AddGadgetColumn(10, 4, "ID", 0)
        HideWindow(10,0)
        
      CreateThread(@process(), 0)  
 
       Repeat
      Event = WindowEvent()
      ;If Event = 
    
      
      
      Delay(20) 
      
    Until Event = #PB_Event_CloseWindow