{"id":6313,"date":"2013-12-14T09:07:47","date_gmt":"2013-12-14T00:07:47","guid":{"rendered":"http:\/\/www.gesource.jp\/weblog\/?p=6313"},"modified":"2017-07-16T09:16:01","modified_gmt":"2017-07-16T00:16:01","slug":"getbinarytype%e9%96%a2%e6%95%b0%e3%81%a7%e3%80%81%e5%ae%9f%e8%a1%8c%e5%8f%af%e8%83%bd%e3%81%aa%e3%83%95%e3%82%a1%e3%82%a4%e3%83%ab%e3%81%ae%e7%a8%ae%e9%a1%9e%e3%82%92%e8%aa%bf%e3%81%b9%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.gesource.jp\/weblog\/?p=6313","title":{"rendered":"GetBinaryType\u95a2\u6570\u3067\u3001\u5b9f\u884c\u53ef\u80fd\u306a\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3092\u8abf\u3079\u308b"},"content":{"rendered":"

GetBinaryType\u95a2\u6570<\/a>\u3092\u4f7f\u3046\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u5b9f\u884c\u53ef\u80fd\u304b\u3069\u3046\u304b\u3001\u5b9f\u884c\u53ef\u80fd\u306a\u5834\u5408\u306f\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3092\u8abf\u3079\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002<\/p>\n

GetBinaryType\u95a2\u6570<\/a>\u306f\u5f15\u6570FileName\u304c\u5b9f\u884c\u53ef\u80fd\u306a\u30d5\u30a1\u30a4\u30eb\u306a\u3089True\u3092\u3057\u307e\u3059\u3002<\/p>\n

if GetBinaryType(PChar(FileName), BinaryType) then\nbegin\n  \/\/\u30d5\u30a1\u30a4\u30eb\u304c\u5b9f\u884c\u53ef\u80fd\u306a\u3068\u304d\nend;\n<\/code><\/pre>\n
\u5f15\u6570BinaryType\u306b\u306f\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u304c\u683c\u7d0d\u3055\u308c\u307e\u3059\u3002<\/p>\n
case BinaryType of\n  SCS_32BIT_BINARY:\n    ShowMessage('Win32 \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n  SCS_DOS_BINARY:\n    ShowMessage('MS-DOS \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n  SCS_OS216_BINARY:\n    ShowMessage('6 \u30d3\u30c3\u30c8\u7248 OS\/2 \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n  SCS_PIF_BINARY:\n    ShowMessage('MS-DOS \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u5b9f\u884c\u3059\u308b PIF \u30d5\u30a1\u30a4\u30eb');\n  SCS_POSIX_BINARY:\n    ShowMessage('POSIX \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n  SCS_WOW_BINARY:\n    ShowMessage('16 \u30d3\u30c3\u30c8\u7248 Windows \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n  SCS_64BIT_BINARY:\n    ShowMessage('Win64 \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\nend;\n<\/code><\/pre>\n
\u6b21\u306e\u30b5\u30f3\u30d7\u30eb\u30d7\u30ed\u30b0\u30e9\u30e0\u306f\u3001\u5909\u6570FileName\u306b\u683c\u7d0d\u3055\u308c\u3066\u3044\u308b\u30d5\u30a1\u30a4\u30eb\u540d\u304c\u5b9f\u884c\u53ef\u80fd\u306a\u30d5\u30a1\u30a4\u30eb\u306a\u3089\u3001\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3092\u8868\u793a\u3057\u307e\u3059\u3002<\/p>\n
var\n  BinaryType: DWORD;\nbegin\n  if GetBinaryType(PChar(FileName), BinaryType) then\n  begin\n    case BinaryType of\n      SCS_32BIT_BINARY:\n        ShowMessage('Win32 \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n      SCS_DOS_BINARY:\n        ShowMessage('MS-DOS \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n      SCS_OS216_BINARY:\n        ShowMessage('6 \u30d3\u30c3\u30c8\u7248 OS\/2 \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n      SCS_PIF_BINARY:\n        ShowMessage('MS-DOS \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3092\u5b9f\u884c\u3059\u308b PIF \u30d5\u30a1\u30a4\u30eb');\n      SCS_POSIX_BINARY:\n        ShowMessage('POSIX \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n      SCS_WOW_BINARY:\n        ShowMessage('16 \u30d3\u30c3\u30c8\u7248 Windows \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n      SCS_64BIT_BINARY:\n        ShowMessage('Win64 \u30d9\u30fc\u30b9\u306e\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3');\n    end;\n  end;\nend;\n<\/code><\/pre>\n
\n
<\/a><\/div>\n
\n
API\u3067\u5b66\u3076Windows\u30d7\u30ed\u30b0\u30e9\u30df\u30f3\u30b0 (\u65e5\u7d4cBP\u30d1\u30bd\u30b3\u30f3\u30d9\u30b9\u30c8\u30e0\u30c3\u30af)<\/a><\/p>\n
posted with \u30e8\u30e1\u30ec\u30d0<\/a><\/div>\n<\/div>\n
\u5b89\u5ba4 \u6d69\u548c \u65e5\u7d4cBP\u793e 2010-06-15    <\/div>\n
\n
Amazon\u3067\u8abf\u3079\u308b<\/a><\/div>\n
\u697d\u5929\u30d6\u30c3\u30af\u30b9\u3067\u8abf\u3079\u308b<\/a><\/div>\n<\/p><\/div>\n<\/div>\n
<\/div>\n<\/div>\n","protected":false},"excerpt":{"rendered":"
GetBinaryType\u95a2\u6570\u3092\u4f7f\u3046\u3068\u3001\u30d5\u30a1\u30a4\u30eb\u304c\u5b9f\u884c\u53ef\u80fd\u304b\u3069\u3046\u304b\u3001\u5b9f\u884c\u53ef\u80fd\u306a\u5834\u5408\u306f\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3092\u8abf\u3079\u308b\u3053\u3068\u304c\u3067\u304d\u307e\u3059\u3002 GetBinaryType\u95a2\u6570\u306f\u5f15\u6570FileName\u304c\u5b9f\u884c\u53ef\u80fd\u306a\u30d5\u30a1\u30a4\u30eb\u306a\u3089True\u3092\u3057\u307e\u3059\u3002  …<\/p>\n
Continue reading ‘GetBinaryType\u95a2\u6570\u3067\u3001\u5b9f\u884c\u53ef\u80fd\u306a\u30d5\u30a1\u30a4\u30eb\u306e\u7a2e\u985e\u3092\u8abf\u3079\u308b’ »<\/a><\/p>\n","protected":false},"author":2,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"_jetpack_memberships_contains_paid_content":false,"footnotes":"","jetpack_publicize_message":"","jetpack_publicize_feature_enabled":true,"jetpack_social_post_already_shared":false,"jetpack_social_options":{"image_generator_settings":{"template":"highway","default_image_id":0,"font":"","enabled":false},"version":2}},"categories":[48],"tags":[156],"class_list":["post-6313","post","type-post","status-publish","format-standard","hentry","category-delphi","tag-delphi"],"jetpack_publicize_connections":[],"jetpack_featured_media_url":"","jetpack_sharing_enabled":true,"_links":{"self":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/posts\/6313","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=6313"}],"version-history":[{"count":0,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=\/wp\/v2\/posts\/6313\/revisions"}],"wp:attachment":[{"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=6313"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=6313"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/www.gesource.jp\/weblog\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=6313"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}