{"id":449,"date":"2008-05-05T02:13:20","date_gmt":"2008-05-05T02:13:20","guid":{"rendered":"http:\/\/6teen.ru\/?p=466"},"modified":"2008-05-05T02:13:20","modified_gmt":"2008-05-05T02:13:20","slug":"4817","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=449","title":{"rendered":"\u041a\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u044e \u043a\u043d\u043e\u043f\u043a\u0443 \u0432 toolbar-\u0435 IE explorera"},"content":{"rendered":"<p>\u041a\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u044e \u043a\u043d\u043e\u043f\u043a\u0443 \u0432 toolbar-\u0435 IE explorera<br \/>\n<!--more--><\/p>\n<pre class=\"alt2\" style=\"margin:0px; padding:6px; border:1px inset; width:580px; height:320px; overflow:auto\"><div>\u041a\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u044e \u043a\u043d\u043e\u043f\u043a\u0443 \u0432 toolbar-\u0435 IE explorera\n\n...Add a button to the Internet Explorer Toolbar? Author: Dave 0 Comments to this tip [Write new comment] [ Print tip ]\n\n{\nThis is a simple little example that allows you to add a button\nto Internet Explorer 3.0 or above\nValues:\nButtonText := The text you want to be displayed at the bottom of the button\nMenuText := The tools option at the top of IE will now contain\na reference to your program.\nMenuStatusbar := Script option we are not using this object. (Ignore)\nCLSID := Your classID. I won`t explain it because its complex.\nThat it has to unique. You can use GUIDTOSTRING\nTo create a new CLSID with the unit ActiveX.\n\nDefault Visible := Display it.\nExec := Your program path to execute.\nHoticon := (Mouse Over Event) ImageIndex in shell32.dll i've picked 4\nIcon := I've selected to display shell32.dll image 4.\n}\n\nprocedure CreateExplorerButton(Path: string);\nconst\nTagit = '\\{10954C80-4F0F-11d3-B17C-00C0DFE39736}\\';\nvar\nReg: TRegistry;\nPath: string;\nPath1: string;\nMerge: string;\nbegin\nPath := 'c:\\your_program_path';\nReg := TRegistry.Create;\ntry\nwith Reg do\nbegin\nRootKey := HKEY_LOCAL_MACHINE;\nPath1 := 'Software\\Microsoft\\Internet Explorer\\Extensions';\nMerge := Path1 + Tagit;\nOpenKey(Merge, True);\nWriteString('ButtonText', 'ButtonText');\nWriteString('MenuText', 'Tools Menu Item');\nWriteString('MenuStatusBar', 'Run Script');\nWriteString('ClSid', '{1FBA04EE-3024-11d2-8F1F-0000F87ABD16}');\nWriteString('Default Visible', 'Yes');\nWriteString('Exec', Path + '\\ProgramName.exe');\nWriteString('HotIcon', ',4');\nWriteString('Icon', ',4');\nend\nfinally\nReg.CloseKey;\nReg.Free;\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u0441\u043e\u0437\u0434\u0430\u0442\u044c \u0441\u0432\u043e\u044e \u043a\u043d\u043e\u043f\u043a\u0443 \u0432 toolbar-\u0435 IE explorera<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,457],"tags":[1134,1194,796,1750],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/449"}],"collection":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=449"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/449\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=449"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=449"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=449"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}