| Thanks to Stuart Eggerton for the following tip
(who in turn thanks http://www.kellys-korner-xp.com
for the google example used as the basis for the idea).
Whilst IE does not have the nice Mozilla bookmarks feature, by adding registry entries for IE, you
can provide the same functionailty.
Copy the following text into a file with vbs extension. Double click it to execute it and
thereby add registry entries for IE:
Option Explicit
Set ws = WScript.CreateObject("WScript.Shell")
Dim ws, n, p, itemtype, MyBox, Title, vbdefaultbutton
p = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\d\"
itemtype = "REG_SZ"
n = "http://www.delphibasics.co.uk/RTL.asp?Name=%s"
Ws.RegWrite p, n, itemtype
p = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\d\ "
itemtype = "REG_SZ"
n = "+"
Ws.RegWrite p, n, itemtype
p = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\d\%"
itemtype = "REG_SZ"
n = "%25"
Ws.RegWrite p, n, itemtype
p = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\d\&"
itemtype = "REG_SZ"
n = "%26"
Ws.RegWrite p, n, itemtype
p = "HKEY_CURRENT_USER\Software\Microsoft\Internet Explorer\SearchUrl\d\+"
itemtype = "REG_SZ"
n = "%2B"
Ws.RegWrite p, n, itemtype
Title = "To use, type in: d followed by a space then the search term."
MyBox = MsgBox(Title,4096,"Quick access to Delphi Basics from the Address Bar")
d Array will take you to http://www.delphibasics.co.uk/RTL.asp?Name=Array
d Inc will take you to http://www.delphibasics.co.uk/RTL.asp?Name=Inc
|