Ist schon klar, warum Funktionslos. Wenn man es brauchen will kann man es Funktionstüchtig machen

Ansonstens ist es nicht wichtig.
Code: Alles auswählen
#GUID.s = "{EC544000-6B6B-4c54-B2FA-58E76AE33285}"
path.s = "Software\Microsoft\Internet Explorer\Extensions\"+#GUID
If RegCreateKeyEx_(#HKEY_CURRENT_USER, path, 0, 0, #REG_OPTION_NON_VOLATILE, #KEY_ALL_ACCESS, 0, @NewKey, @KeyInfo) = #ERROR_SUCCESS
icon.s = indir+"IEToolBW.ico"
hicon.s = indir+"IETool.ico"
exe.s = indir+"IETool.exe"
RegSetValueEx_(NewKey, "Default Visible", 0, #REG_SZ, "Yes", 4)
RegSetValueEx_(NewKey, "ButtonText", 0, #REG_SZ, "PureBasic", 10)
RegSetValueEx_(NewKey, "HotIcon", 0, #REG_SZ, hicon, Len(hicon)+1)
RegSetValueEx_(NewKey, "Icon", 0, #REG_SZ, icon, Len(icon)+1)
RegSetValueEx_(NewKey, "CLSID", 0, #REG_SZ, #CLSID, Len(#CLSID)+1)
RegSetValueEx_(NewKey, "Exec", 0, #REG_SZ, exe, Len(exe)+1)
RegSetValueEx_(NewKey, "Version", 0, #REG_SZ, "IETool 1.5", 11)
RegCloseKey_(NewKey)
EndIf