Level Extreme platform
Subscription
Corporate profile
Products & Services
Support
Legal
Français
Internet Explorer Toolbar - How to add one
Message
General information
Forum:
Visual FoxPro
Category:
Internet applications
Miscellaneous
Thread ID:
00850615
Message ID:
00850758
Views:
17
>I'm looking into creating a new toolbar for internet explorer that would allow me to run my own application. [kinda like the Google Bar]

Yes, it works! Run the following code and you'll get a VFP button on IE toolbar:
strKey = "HKLM\Software\Microsoft\Internet Explorer\Extensions\{7830DD8F-0362-4a99-BC85-4E4DF385805F}\"
strPath = _VFP.FullName

WshShell = CreateObject("WScript.Shell")

WshShell.RegWrite(strKey + "Default Visible", "Yes", "REG_SZ")
WshShell.RegWrite(strKey + "ButtonText", "Run FoxPro", "REG_SZ")
WshShell.RegWrite(strKey + "Icon", strPath + ",101", "REG_SZ")
WshShell.RegWrite(strKey + "HotIcon", strPath + ",101", "REG_SZ")
WshShell.RegWrite(strKey + "CLSID", "{1FBA04EE-3024-11D2-8F1F-0000F87ABD16}", "REG_SZ")
WshShell.RegWrite(strKey + "Exec", strPath, "REG_SZ")

* Uncomment to uninstall
* WshShell.RegDelete(strKey)
Previous
Next
Reply
Map
View

Click here to load this message in the networking platform