Windowsユーザã®ãŸã‚ã®åˆã‚ã¦ã®Perlプãƒã‚°ãƒ©ãƒŸãƒ³ã‚° - 葉ã£ã±æ—¥è¨˜ActivePerl (Windows版) ã«ã¯ DynaLoader ãŒä»˜å±žã—ã¦ã„ã‚‹ã®ã§ã€ä»Šæ—¥ã‹ã‚‰ã™ãã« DynaLoader::dl_install_xsub を利用ã—ãŸãƒ—ãƒã‚°ãƒ©ãƒŸãƒ³ã‚°ãŒå‡ºæ¥ã¾ã™ã€‚ ç°¡å˜ãªãƒ¡ãƒƒã‚»ãƒ¼ã‚¸ãƒœãƒƒã‚¯ã‚¹ã‚’表示ã™ã‚‹Perlプãƒã‚°ãƒ©ãƒ ã¯ä»¥ä¸‹ã«ãªã‚Šã¾ã™ã€‚ #!/usr/bin/perl use DynaLoader; sub GetProcAddress { my ($DLL, $API) = @_; my $path = "$ENV{SystemRoot}\\system32\\$DLL"; my $libref = DynaLoader::dl_load_file($path); pack "L", DynaLoader::dl_find_symbol($libref, $API); } my $x86 = "" . "h\0\0\0\0" . "h" . pack(
{{#tags}}- {{label}}
{{/tags}}