





 |
|
IE5 Tools
IE5Tools is a collection of 60+functions, that makes it
easy to
configure Internet Explorer:
(* Explorer bars, Toolbar buttons, Menu items *)
function AddExplorerBar(Title, Url: string; BarSize: Int64;
Vertical: Boolean): string;
function AddToolbarBtn(Visible: Boolean; ConnType: TConnType;
BtnText, HotIcon, Icon, GuidOrPath: string): string;
function AddMenuItem(ConnType: TconnType; MenuText, StatusBarText,
GuidOrPath: string; HelpMenu: Boolean): string;
procedure AddExtMenuItem(MenuText, Url: string; Context, Flags:
DWORD);
function RemoveMenuItem(MenuText: string): Boolean;
function RemoveToolbarBtn(BtnText: string): Boolean;
function RemoveExplorerBar(Title: string): Boolean;
function RemoveExtMenuItem(MenuText: string): Boolean;
(* Following functions are all enabled by default *)
function DisableFavorites(Disabled: Boolean): Boolean; //
Favorites-menu removed
function DisableAddSubscriptions(Disabled: Boolean): Boolean;
//"Make available offline" disable on add-favorite
dialog.
/// File-Menu Options
function DisableFileMenu(Disabled: Boolean): Boolean; //File menu
Removed
function DisableFileOpen(Disabled: Boolean): Boolean;// Disable
"Open frm File-menu"
function DisableFileNew(Disabled: Boolean): Boolean; //disable
"New" from File-menu
function DisableSaveAs(Disabled: Boolean): Boolean; //User not
asked for SaveAs-directory
function DisableClose(Disabled: Boolean): Boolean; // User cannot
close IE
function DisableContextMenu(Disabled: Boolean): Boolean; //Disable
right-click menu
function DisableTheaterMode(Disabled: Boolean): Boolean; //Theatermode
not allowed
function DisableViewSource(Disabled: Boolean): Boolean; //Disable
"view source" from View-menu
function DisableDownload(Disabled: Boolean): Boolean; //Disable
download of zip-files etc.
function DisableOptions(Disabled: Boolean): Boolean;
//"Internet Options" disabled on Tools-menu
// Disable tabs on "Internet options":
function DisableGeneralTab(Disabled: Boolean): Boolean;
function DisableSecurityTab(Disabled: Boolean): Boolean;
function DisableContentTab(Disabled: Boolean): Boolean;
function DisableConnectionsTab(Disabled: Boolean): Boolean;
function DisableProgramsTab(Disabled: Boolean): Boolean;
function DisableAdvancedTab(Disabled: Boolean): Boolean;
//Disable part of "Internet Options" tabs:
///// ON General Tab
function DisableHomepage(Disabled: Boolean): Boolean;
function DisableSettings(Disabled: Boolean): Boolean;
function DisableHistory(Disabled: Boolean): Boolean;
function DisableAccessibility(Disabled: Boolean): Boolean;
function DisableColors(Disabled: Boolean): Boolean;
function DisableFonts(Disabled: Boolean): Boolean;
function DisableLanguages(Disabled: Boolean): Boolean;
///// On Security Tab
function Disable(Disabled: Boolean): Boolean;
function DisableSecAddSites(Disabled: Boolean): Boolean;
function DisableSecChangeSettings(Disabled: Boolean): Boolean;
///// On Content Tab
function DisableProfiles(Disabled: Boolean): Boolean;
function DisableCertificates(Disabled: Boolean): Boolean;
function DisableRatings(Disabled: Boolean): Boolean;
function DisableWallet(Disabled: Boolean): Boolean;
function DisableResetWebSettings(Disabled: Boolean): Boolean;
///// On Connections Tab
function DisableConnectionWizard(Disabled: Boolean): Boolean;
function DisableConnectionSettings(Disabled: Boolean): Boolean;
///// On Programs Tab
function DisableMessaging(Disabled: Boolean): Boolean;
function DisableCalendarContact(Disabled: Boolean): Boolean;
function DisableCheckIfDefault(Disabled: Boolean): Boolean;
//Disable resizing/replacing of Toolbar
function DisableToolbarOptions(Disabled: Boolean): Boolean;
//Replace small and big animated Bitmap
function IEAddAnimatedBmp(FileName: string): Boolean;
function IEAddSmallAnimatedBmp(FileName: string): Boolean;
function IERemoveAnimatedBmp: Boolean;
function IERemoveSmallAnimatedBmp: Boolean;
//Replace Animated bitmap with fixed bitmap
function IEAddSmallBitmap(FileName: string): Boolean;
function IERemoveSmallBitmap: Boolean;
function IEAddBigBitmap(FileName: string): Boolean;
function IERemoveBigBitmap: Boolean;
// Set Toolbar-background Bitmap
function IEAddSkin(FileName: string): Boolean;
function IERemoveSkin: Boolean;
//Set windows Caption
function IEAddTitle(Title: string): Boolean;
function IERemoveTitle: Boolean;
(*
In the following functions can you use "Cmd" to Save and
restore Default values:
SetCacheDirectory('C:\Temp\Cache', CMD_SAVE); //Set new
Cache-Directory and save the old path.
SetCacheDirectory('', CMD_RESTORE); //restore the default Path.
*)
//Set Directories
function SetCacheDirectory(Folder: string; Cmd: Integer): Boolean;
function SetHistoryDirectory(Folder: string; Cmd: Integer):
Boolean;
function SetFavoritesDirectory(Folder: string; Cmd: Integer):
Boolean;
function SetCookiesDirectory(Folder: string; Cmd: Integer):
Boolean;
function SetDownloadDirectory(Folder: string; Cmd: Integer):
Boolean;
function SetSaveDirectory(Folder: string; Cmd: Integer): Boolean;
//Set Homepage
function SetStartPage(FileName: string; Cmd: Integer): Boolean;
//Replace standard information/Error-pages
function SetNavigationCanceled(FileName: string; Cmd: Integer):
Boolean; //Navigation Canceled
function SetNavigationFailure(FileName: string; Cmd: Integer):
Boolean; // Navigation Failure
function SetPostNotCached(FileName: string; Cmd: Integer): Boolean;
// Post not Cached
function SetOfflineInformation(FileName: string; Cmd: Integer):
Boolean; // Offline Information
IE5 Tools also makes it easy to create Explorer Bars, add
entries into the standard context menus or into the Tools menu and
buttons to the toolbar in Internet Explorer 5 - from a Delphi
program.

The following example shows how easy it is to expand Internet
Explorer 5 with a Vertical Explorer Bar and a Toolbar button to
activate it.
var
S : String;
begin
S:=AddExplorerBar(Sample Explorer Bar', 'http://www.somewhere.com/mypage.htm',
200,TRUE);
AddToolbarBtn(TRUE,EXPLORER_BAR,'Explorer
Bar','light.ico','gray.ico',S);
end;
|
The following lines of code remove the same Explorer Bar and
tool button from the registry and Internet Explorer:
begin
RemoveExplorerBar('Sample Explorer Bar');
RemoveToolbarBtn('Explorer Bar');
end;
|
Enjoy!
|
Created and maintained by
Per Lindsų Larsen
Last Update: May 29, 2000 |