{"id":554,"date":"2008-05-13T06:05:08","date_gmt":"2008-05-13T06:05:08","guid":{"rendered":"http:\/\/6teen.ru\/?p=373"},"modified":"2008-05-13T06:05:08","modified_gmt":"2008-05-13T06:05:08","slug":"8981","status":"publish","type":"post","link":"http:\/\/pblog.ru\/lab\/?p=554","title":{"rendered":"\u041a\u0430\u043a \u043fp\u0438\u043d\u0438\u043c\u0430\u0442\u044c \u044fp\u043b\u044b\u043a\u0438 \u043fp\u0438 \u043f\u0435p\u0435\u0442\u044f\u0433\u0438\u0432\u0430\u043d\u0438\u0438 \u0438\u0445 \u043d\u0430 \u043a\u043e\u043d\u0442p\u043e\u043b"},"content":{"rendered":"<p>\u041a\u0430\u043a \u043fp\u0438\u043d\u0438\u043c\u0430\u0442\u044c \u044fp\u043b\u044b\u043a\u0438 \u043fp\u0438 \u043f\u0435p\u0435\u0442\u044f\u0433\u0438\u0432\u0430\u043d\u0438\u0438 \u0438\u0445 \u043d\u0430 \u043a\u043e\u043d\u0442p\u043e\u043b<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 \u043fp\u0438\u043d\u0438\u043c\u0430\u0442\u044c \u044fp\u043b\u044b\u043a\u0438 \u043fp\u0438 \u043f\u0435p\u0435\u0442\u044f\u0433\u0438\u0432\u0430\u043d\u0438\u0438 \u0438\u0445 \u043d\u0430 \u043a\u043e\u043d\u0442p\u043e\u043b\n\ntform1 = class(tform)\n...\nprivate\n{ private declarations }\nprocedure wmdropfiles(var m: twmdropfiles); message wm_dropfiles;\n...\nend;\n\nvar\nform1: tform1;\n\nimplementation\n\nuses\nstrutils, shellapi, comobj, shlobj, activex;\n\nprocedure tform1.formcreate(sender: tobject);\nbegin\n...\ndragacceptfiles(handle, true);\n...\nend;\n\nprocedure tform1.formdestroy(sender: tobject);\nbegin\n...\ndragacceptfiles(handle, false);\n...\nend;\n\nprocedure tform1.wmdropfiles(var m: twmdropfiles);\nvar\nhdrop: cardinal;\nn: integer;\ns: string;\nbegin\nhdrop := m.drop;\nn := dragqueryfile(hdrop, 0, nil, 0);\nsetlength(s, n);\ndragqueryfile(hdrop, 0, pchar(s), n + 1);\ndragfinish(hdrop);\nm.result := 0;\nfileopen(s);\nend;\n\nprocedure tform1.fileopen(filename: string);\nbegin\nif comparetext(extractfileext(filename), '.lnk') = 0 then\nfilename := resolveshortcut(application.handle, filename);\ndocname := extractfilename(filename);\ncaption := application.title + ' - ' + docname;\n...\nend;\n\nfunction resolveshortcut(wnd: hwnd; shortcutpath: string): string;\nvar\nobj: iunknown;\nisl: ishelllink;\nipf: ipersistfile;\npfd: twin32finddataa;\nbegin\nresult := '';\nobj := createcomobject(clsid_shelllink);\nisl := obj as ishelllink;\nipf := obj as ipersistfile;\nipf.load(pwchar(widestring(shortcutpath)), stgm_read);\nwith isl do\nbegin\nresolve(wnd, slr_any_match);\nsetlength(result, max_path);\ngetpath(pchar(result), length(result), pfd, slgp_uncpriority);\nresult := pchar(result);\nend;\nend;\n<\/div><\/pre>\n<p><\/p>\n","protected":false},"excerpt":{"rendered":"<p>\u041a\u0430\u043a \u043fp\u0438\u043d\u0438\u043c\u0430\u0442\u044c \u044fp\u043b\u044b\u043a\u0438 \u043fp\u0438 \u043f\u0435p\u0435\u0442\u044f\u0433\u0438\u0432\u0430\u043d\u0438\u0438 \u0438\u0445 \u043d\u0430 \u043a\u043e\u043d\u0442p\u043e\u043b<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[386,454],"tags":[1396,1532,1533,1540,1880],"_links":{"self":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/554"}],"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=554"}],"version-history":[{"count":0,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=\/wp\/v2\/posts\/554\/revisions"}],"wp:attachment":[{"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=554"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=554"},{"taxonomy":"post_tag","embeddable":true,"href":"http:\/\/pblog.ru\/lab\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=554"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}