Class TMainForm (unit F2BMain) |
Inherits from
TForm
Folder level (position in folder tree
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.
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
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]);
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