\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u044f\u0440\u043b\u044b\u043a\u043e\u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u043c \u0441\u0442\u043e\u043b\u0435, \u0441\u0442\u0430\u0440\u0442 \u043c\u0435\u043d\u044e, \u043f\u0430\u043d\u0435\u043b\u0438 \u0431\u044b\u0441\u0442\u0440\u043e\u0433\u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0430
\n<\/p>\n
\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u044f\u0440\u043b\u044b\u043a\u043e\u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u043c \u0441\u0442\u043e\u043b\u0435, \u0441\u0442\u0430\u0440\u0442 \u043c\u0435\u043d\u044e, \u043f\u0430\u043d\u0435\u043b\u0438 \u0431\u044b\u0441\u0442\u0440\u043e\u0433\u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0430\n\nuses\nregistry,\nactivex,\ncomobj,\nshlobj;\n\ntype\nshortcuttype = (_desktop, _quicklaunch, _sendto, _startmenu, _otherfolder);\n\nfunction createshortcut(sourcefilename: string; \/\/ the file the shortcut points to\nlocation: shortcuttype; \/\/ shortcut location\nsubfolder, \/\/ subfolder of location\nworkingdir, \/\/ working directory property of the shortcut\nparameters,\ndescription: string): \/\/ description property of the shortcut\nstring;\nconst\nshell_folders_root = 'softwaremicrosoftwindowscurrentversionexplorer';\nquick_launch_root = 'softwaremicrosoftwindowscurrentversiongrpconv';\nvar\nmyobject: iunknown;\nmyslink: ishelllink;\nmypfile: ipersistfile;\ndirectory, linkname: string;\nwfilename: widestring;\nreg: treginifile;\nbegin\n\nmyobject := createcomobject(clsid_shelllink);\nmyslink := myobject as ishelllink;\nmypfile := myobject as ipersistfile;\n\nmyslink.setpath(pchar(sourcefilename));\nmyslink.setarguments(pchar(parameters));\nmyslink.setdescription(pchar(description));\n\nlinkname := changefileext(sourcefilename, '.lnk');\nlinkname := extractfilename(linkname);\n\n\/\/ quicklauch\nif location = _quicklaunch then\nbegin\nreg := treginifile.create(quick_launch_root);\ntry\ndirectory := reg.readstring('mapgroups', 'quick launch', '');\nfinally\nreg.free;\nend;\nend\nelse\n\/\/ other locations\nbegin\nreg := treginifile.create(shell_folders_root);\ntry\ncase location of\n_otherfolder : directory := subfolder;\n_desktop : directory := reg.readstring('shell folders', 'desktop', '');\n_startmenu : directory := reg.readstring('shell folders', 'start menu', '');\n_sendto : directory := reg.readstring('shell folders', 'sendto', '');\nend;\nfinally\nreg.free;\nend;\nend;\n\nif directory <> '' then\nbegin\nif (subfolder <> '') and (location <> _otherfolder) then\nwfilename := directory + '' + subfolder + '' + linkname\nelse\nwfilename := directory + '' + linkname;\n\n\nif workingdir = '' then\nmyslink.setworkingdirectory(pchar(extractfilepath(sourcefilename)))\nelse\nmyslink.setworkingdirectory(pchar(workingdir));\n\nmypfile.save(pwchar(wfilename), false);\nresult := wfilename;\nend;\nend;\n\nfunction getprogramdir: string;\nvar\nreg: tregistry;\nbegin\nreg := tregistry.create;\ntry\nreg.rootkey := hkey_current_user;\nreg.openkey('softwaremicrosoftwindowscurrentversionexplorershell folders', false);\nresult := reg.readstring('programs');\nreg.closekey;\nfinally\nreg.free;\nend;\nend;\n\n\/\/ some examples:\n\nprocedure tform1.button1click(sender: tobject);\nconst\nprogr = 'c:yourprogram.exe';\nvar\nrespath: string;\nbegin\n\/\/create a shortcut in the quckick launch toolbar\ncreateshortcut(progr, _quicklaunch, '','','','description');\n\n\/\/create a shortcut on the desktop\ncreateshortcut(progr, _desktop, '','','','description');\n\n\/\/create a shortcut in the startmenu \/\"programs\"-folder\nrespath := createshortcut(progr, _otherfolder, getprogramdir,'','','description');\nif respath <> '' then\nbegin\nshowmessage('shortcut successfully created in: ' + respath);\nend;\nend;\n<\/div><\/pre>\n<\/p>\n","protected":false},"excerpt":{"rendered":"
\u0421\u043e\u0437\u0434\u0430\u043d\u0438\u0435 \u044f\u0440\u043b\u044b\u043a\u043e\u0432 \u043e\u0431\u044a\u0435\u043a\u0442\u043e\u0432 \u043d\u0430 \u0440\u0430\u0431\u043e\u0447\u0435\u043c \u0441\u0442\u043e\u043b\u0435, \u0441\u0442\u0430\u0440\u0442 \u043c\u0435\u043d\u044e, \u043f\u0430\u043d\u0435\u043b\u0438 \u0431\u044b\u0441\u0442\u0440\u043e\u0433\u043e \u0437\u0430\u043f\u0443\u0441\u043a\u0430<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[448,462],"tags":[1234,742,835,866,884,1661,322,1768,1771,1886],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/803"}],"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=803"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/803\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=803"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=803"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=803"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}