\u5c06\u6587\u4ef6\u590d\u5236\u6216\u526a\u5207\u5230\u526a\u8d34\u677f\uff0c\u53ef\u4ee5\u5728\u8d44\u6e90\u7ba1\u7406\u5668\u3001\u684c\u9762\u7b49\u5730\u65b9\u7c98\u8d34\u3002\u5728\u7f51\u4e0a\u627e\u4e86\u4e0b\uff0c\u627e\u5230\u4e00\u4e9b\u4ee3\u7801\uff0c\u4e0d\u8fc7\u53d1\u73b0\u90fd\u6709\u70b9bug\uff0c\u73b0\u5728\u5c06\u4fee\u6b63\u540e\u7684\u5206\u4eab\u51fa\u6765\u3002<\/p>\n
procedure CutOrCopyFiles(FileList: AnsiString; bCopy: Boolean);\r\ntype\r\n PDropFiles = ^TDropFiles;\r\n\r\n TDropFiles = record\r\n pfiles: DWORD;\r\n pt: TPoint;\r\n fNC: BOOL;\r\n fwide: BOOL;\r\n end;\r\nconst\r\n DROPEFFECT_COPY = 1;\r\n DROPEFFECT_MOVE = 2;\r\nvar\r\n hGblFileList: hGlobal;\r\n pFileListDate: Pbyte;\r\n HandleDropEffect: UINT;\r\n hGblDropEffect: hGlobal;\r\n pdwDropEffect: PDWORD;\r\n iLen: Integer;\r\nbegin\r\n iLen := Length(FileList) + 2;\r\n FileList := FileList + #0#0;\r\n hGblFileList := GlobalAlloc(GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_SHARE,\r\n SizeOf(TDropFiles) + iLen);\r\n pFileListDate := GlobalLock(hGblFileList);\r\n PDropFiles(pFileListDate)^.pfiles := SizeOf(TDropFiles);\r\n PDropFiles(pFileListDate)^.pt.Y := 0;\r\n PDropFiles(pFileListDate)^.pt.X := 0;\r\n PDropFiles(pFileListDate)^.fNC := False;\r\n PDropFiles(pFileListDate)^.fwide := False;\r\n Inc(pFileListDate, SizeOf(TDropFiles)); \/\/ \u00d6\u00b8\u00d5\u00eb\u00ba\u00f3\u00d2\u00c6\r\n CopyMemory(pFileListDate, @FileList[1], iLen);\r\n GlobalUnlock(hGblFileList);\r\n HandleDropEffect := RegisterClipboardFormat('Preferred DropEffect ');\r\n hGblDropEffect := GlobalAlloc(GMEM_ZEROINIT or GMEM_MOVEABLE or GMEM_SHARE,\r\n SizeOf(DWORD));\r\n pdwDropEffect := GlobalLock(hGblDropEffect);\r\n if (bCopy) then pdwDropEffect^ := DROPEFFECT_COPY\r\n else pdwDropEffect^ := DROPEFFECT_MOVE;\r\n GlobalUnlock(hGblDropEffect);\r\n if OpenClipboard(0) then begin\r\n EmptyClipboard();\r\n SetClipboardData(HandleDropEffect, hGblDropEffect);\r\n SetClipboardData(CF_HDROP, hGblFileList);\r\n CloseClipboard();\r\n end;\r\nend;\r\n\r\nprocedure CopyFileClipbrd(const FName: string);\r\nbegin\r\n CutOrCopyFiles(AnsiString(FName), True);\r\nend;\r\n<\/pre>\n <\/p>\n
<\/p>\n","protected":false},"excerpt":{"rendered":"
\u5c06\u6587\u4ef6\u590d\u5236\u6216\u526a\u5207\u5230\u526a\u8d34\u677f\uff0c\u53ef\u4ee5\u5728\u8d44\u6e90\u7ba1\u7406 […]<\/p>\n","protected":false},"author":3,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"site-sidebar-layout":"default","site-content-layout":"","ast-site-content-layout":"default","site-content-style":"default","site-sidebar-style":"default","ast-global-header-display":"","ast-banner-title-visibility":"","ast-main-header-display":"","ast-hfb-above-header-display":"","ast-hfb-below-header-display":"","ast-hfb-mobile-header-display":"","site-post-title":"","ast-breadcrumbs-content":"","ast-featured-img":"","footer-sml-layout":"","ast-disable-related-posts":"","theme-transparent-header-meta":"","adv-header-id-meta":"","stick-header-meta":"","header-above-stick-meta":"","header-main-stick-meta":"","header-below-stick-meta":"","astra-migrate-meta-layouts":"default","ast-page-background-enabled":"default","ast-page-background-meta":{"desktop":{"background-color":"var(--ast-global-color-4)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"ast-content-background-meta":{"desktop":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"tablet":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""},"mobile":{"background-color":"var(--ast-global-color-5)","background-image":"","background-repeat":"repeat","background-position":"center center","background-size":"auto","background-attachment":"scroll","background-type":"","background-media":"","overlay-type":"","overlay-color":"","overlay-opacity":"","overlay-gradient":""}},"footnotes":""},"categories":[8],"tags":[73],"class_list":["post-671","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-73"],"views":5551,"_links":{"self":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/671","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/users\/3"}],"replies":[{"embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=671"}],"version-history":[{"count":1,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/671\/revisions"}],"predecessor-version":[{"id":672,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=\/wp\/v2\/posts\/671\/revisions\/672"}],"wp:attachment":[{"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=671"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=671"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/blog.qdac.cc\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=671"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}