Add Folders

{!NAME:      Add Folders - Illicit Images.pas}

{!DESC:      Adds a set of Bookmark folders to the Boomkarks module.}

{!AUTHOR:    CaglarArli}

unit Add_Bookmark_Folders;

interface

uses

  Common, DataEntry;

implementation

const

  ILLICIT_IMAGES_FOLDER = 'Pornografik Fotoğraflar';

  CATEGORY_FOLDER = 'Kategori';

var

  bmFolder: TEntry;

begin

  bmFolder := FindBookmarkbyName(ILLICIT_IMAGES_FOLDER);

  if bmFolder = nil then

    bmFolder := NewBookmark(FindDefaultBookmark(MY_BOOKMARKS_INDEX), ILLICIT_IMAGES_FOLDER);

  bmFolder := FindBookmarkByName(ILLICIT_IMAGES_FOLDER+'\'+CATEGORY_FOLDER+' 01 - No  Activity');

  if bmFolder = nil then

    

 end.