Class TMainForm (unit F2BMain)

Inherits from

TForm

Folder level (position in folder tree

Constructors



Functions

procedure Button1Click(Sender: TObject);

Function to sort the list of favorites alphabetically

procedure Button2Click(Sender: TObject);

Alternatively you could use ExecuteFile

procedure Button3Click(Sender: TObject);


procedure MakeBookmark(UrlRec: PUrlRec);

End section containing bookmarks

procedure MakeDocumentBottom;


procedure MakeDocumentTop;

Insert bookmark

procedure MakeHeaderBottom(UrlRec: PUrlRec);

/ BmkList.

procedure MakeHeaderTop(UrlRec: PUrlRec);

/ BmkList.

procedure GetFavoritesFolder;

Favorites converted into bookmarks

---------------------- TMainForm ---------------------


procedure MakeBookmarkFile;

// Add a dummy record UrlRec := New(PUrlRec); UrlRec.

procedure SearchURL(Folder: String; Level: Integer);

Find the directory of the Internet Explorer favorites

procedure TraverseFavList(Idx, PrevIdx: Integer);

Called recursively / MakeHeaderBottom(FavList[FavList.

Properties

Events

Variables

Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


CheckBox1 : TCheckBox;


Edit1 : TEdit;


Label1 : TLabel;


BmkList : TStringList;

List of the favorite links

FavFolder : String;


FavList : TList;

Path of the favorites folder


Constructors


Functions


procedure Button1Click(Sender: TObject);

Function to sort the list of favorites alphabetically


procedure Button2Click(Sender: TObject);

Alternatively you could use ExecuteFile


procedure Button3Click(Sender: TObject);


procedure MakeBookmark(UrlRec: PUrlRec);

End section containing bookmarks


procedure MakeDocumentBottom;


procedure MakeDocumentTop;

Insert bookmark


procedure MakeHeaderBottom(UrlRec: PUrlRec);

/ BmkList.Add('Level: ' + IntToStr(UrlRec.Level));


procedure MakeHeaderTop(UrlRec: PUrlRec);

/ BmkList.Add(''); BmkList.Add('

');


procedure GetFavoritesFolder;

Favorites converted into bookmarks

---------------------- TMainForm ---------------------


procedure MakeBookmarkFile;

// Add a dummy record UrlRec := New(PUrlRec); UrlRec.Rep := ''; UrlRec.UrlName := ''; UrlRec.UrlPath := ''; UrlRec.Level := 0; FavList.Add(UrlRec);


procedure SearchURL(Folder: String; Level: Integer);

Find the directory of the Internet Explorer favorites


procedure TraverseFavList(Idx, PrevIdx: Integer);

Called recursively / MakeHeaderBottom(FavList[FavList.Count-1]);


Properties


Events


Variables


Button1 : TButton;


Button2 : TButton;


Button3 : TButton;


CheckBox1 : TCheckBox;


Edit1 : TEdit;


Label1 : TLabel;


BmkList : TStringList;

List of the favorite links


FavFolder : String;


FavList : TList;

Path of the favorites folder