var
    lFolder: IItemIdList;
    lColumnProvider: IJamShellColumnProvider;
    lColumns: TArray<TShellColumnId>;
    lColumn: TShellColumnId;
    lColumnInfo: TColumnInfo;
  begin
    lFolder := TJamItemIdList.CreateForSpecialFolder(SF_DRIVES);
    lColumnProvider := TJamShellColumnProvider.Create;
    lColumns := lColumnProvider.GetColumns(lFolder, False);

    // Get specific column information
    for lColumn in lColumns do
      lColumnInfo := lColumnProvider.GetColumnInfo(lFolder, lColumn);
  end;