{"id":115,"date":"2021-07-22T11:26:25","date_gmt":"2021-07-22T02:26:25","guid":{"rendered":"https:\/\/notes.sys-support.jp\/?p=115"},"modified":"2021-07-22T11:26:25","modified_gmt":"2021-07-22T02:26:25","slug":"%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%82%b3%e3%83%94%e3%83%bc","status":"publish","type":"post","link":"https:\/\/notes.sys-support.jp\/?p=115","title":{"rendered":"\u30d5\u30a1\u30a4\u30eb\u30b3\u30d4\u30fc"},"content":{"rendered":"<p>Delphi\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u30b3\u30d4\u30fc\u3059\u308b\u95a2\u6570\u306f\u306a\u3044\u306e\u3067\u3001Windows API\u306eCopyFile\u95a2\u6570\u3092\u4f7f\u7528\u3002<\/p>\n<p>\u66f8\u5f0f\uff1aCopyFile(\u30b3\u30d4\u30fc\u5143\u30d5\u30a1\u30a4\u30eb\u540d,\u30b3\u30d4\u30fc\u5148\u30d5\u30a1\u30a4\u30eb\u540d,\u30d5\u30e9\u30b0)<\/p>\n<p>\u30d5\u30e9\u30b0<br \/>\n\u3000Ture\uff1a\u3000\u30b3\u30d4\u30fc\u5148\u306b\u540c\u540d\u30d5\u30a1\u30a4\u30eb\u304c\u3042\u308b\u5834\u5408\u306f\u3001\u51e6\u7406\u3092\u4e2d\u6b62\u3057False\u3092\u8fd4\u3057\u307e\u3059\u3002<br \/>\n\u3000False\uff1a \u30b3\u30d4\u30fc\u5148\u306b\u540c\u540d\u30d5\u30a1\u30a4\u30eb\u304c\u3042\u308b\u5834\u5408\u306f\u3001\u4e0a\u66f8\u304d\u3057\u307e\u3059\u3002<\/p>\n<p>*CopyFile\u95a2\u6570\u306fAPI\u95a2\u6570\u306e\u70ba\u3001\u30d5\u30a1\u30a4\u30eb\u540d\u3092String\u578b\u3067\u4e0e\u3048\u308b\u6642\u306f\u3001PChar\u578b\u306b\u30ad\u30e3\u30b9\u30c8\u3059\u308b\u3002<\/p>\n<p>\u30b5\u30f3\u30d7\u30eb<\/p>\n<p>uses SysUtils,  MMSystem ,WINDOWS;<br \/>\nvar<br \/>\n F1,F2:string;<br \/>\n tm:int64;<br \/>\nbegin<br \/>\n  tm:=timeGettime;<br \/>\n  WriteLn(&#8216;\u25c6CopyFile\u3092\u4f7f\u7528&#8217;);<br \/>\n  F1:=&#8217;input.txt&#8217;;<br \/>\n  F2:=&#8217;output.txt&#8217;;<br \/>\n  CopyFile(PChar(F1),PChar(F2),false);<br \/>\n  WriteLn(&#8216;\u51e6\u7406\u6642\u9593\uff1a&#8217;,inttostr(timeGettime-tm),&#8217;ms&#8217;);<br \/>\nend.<\/p>\n","protected":false},"excerpt":{"rendered":"<p>Delphi\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u30b3\u30d4\u30fc\u3059\u308b\u95a2\u6570\u306f\u306a\u3044\u306e\u3067\u3001Windows API\u306eCopyFile\u95a2\u6570\u3092\u4f7f\u7528\u3002 \u66f8\u5f0f\uff1aCopyFile(\u30b3\u30d4\u30fc\u5143\u30d5\u30a1\u30a4\u30eb\u540d,\u30b3\u30d4\u30fc\u5148\u30d5\u30a1\u30a4\u30eb\u540d,\u30d5\u30e9\u30b0) \u30d5\u30e9\u30b0 \u3000Ture\uff1a\u3000\u30b3\u30d4\u30fc\u5148\u306b\u540c\u540d\u30d5\u30a1\u30a4 &hellip; <\/p>\n<p class=\"link-more\"><a href=\"https:\/\/notes.sys-support.jp\/?p=115\" class=\"more-link\"><span class=\"screen-reader-text\">&#8220;\u30d5\u30a1\u30a4\u30eb\u30b3\u30d4\u30fc&#8221; \u306e<\/span>\u7d9a\u304d\u3092\u8aad\u3080<\/a><\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"closed","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_crdt_document":"","footnotes":""},"categories":[2],"tags":[],"class_list":["post-115","post","type-post","status-publish","format-standard","hentry","category-delphi"],"_links":{"self":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/115","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=115"}],"version-history":[{"count":2,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/115\/revisions"}],"predecessor-version":[{"id":117,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=\/wp\/v2\/posts\/115\/revisions\/117"}],"wp:attachment":[{"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=115"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=115"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/notes.sys-support.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=115"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}