program SetBk;uses
  SysUtils,
  Windows,
  CommCtrl;var
  Hdl: THandle;begin
  { TODO -oUser -cConsole Main : Insert code here }
  //First get desktop handle
  Hdl:= FindWindow('ProgMan', nil);
  Hdl:= GetWindow(Hdl, GW_CHILD);
  Hdl:= GetWindow(Hdl, GW_CHILD);
  ListView_SetTextBkColor(Hdl, $FFFFFFFF);
  ListView_RedrawItems(Hdl, 0, ListView_GetItemCount(Hdl));
end.