£Ã£è£á£ð£ô£å£ò.£¶£µ [ API¤Ë¤è¤ë¥µ¥¦¥ó¥ÉºÆÀ¸¡§´ðÁà ]
¢£²»¤Î¤¢¤ëÀ¤³¦
¤µ¤Æ¡¢º£²ó¤«¤é¤ÏÂÔ˾(¡©)¤Î¥µ¥¦¥ó¥ÉºÆÀ¸½èÍý¤Ë´Ø¤¹¤ëÆâÍÆ¤ò²òÀ⤷¤Æ¤¤¤¤Þ¤¹¡£
¼Â¤Ï¡¢VBAñÂΤǤϡ¢¥µ¥¦¥ó¥É¤Ë´Ø¤¹¤ë¤³¤È¤Ï¤Û¤È¤ó¤É¤Ç¤¤Þ¤»¤ó¡£Í£°ì¡¢»ä¤ÎÃΤäƤ¤¤ë²»¤Ë´Ø¤¹¤ë»ö¤È¸À¤¨¤Ð¡¢
¤³¤Î
¥²¡¼¥à¤Ç¤Ï¡¢¹¥¤¤Ê¤È¤¤Ë¹¥¤¤Ê²»¤òÌĤ餻¤Ê¤¤¤È°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£¤·¤«¤â¡¢¤Ç¤¤ë¤³¤È¤Ê¤éBGM¤òή¤·¤Ê¤¬¤é¸ú²Ì²»¤âºÆÀ¸¤¹¤ë¤È¤¤¤¦¡¢¤¤¤ï¤æ¤ë¿½ÅºÆÀ¸¤¬¤Ç¤¤ë¤³¤È¤¬ÍýÁÛŪ¤Ç¤¹¤è¤Í¡£
VBA¤Ç¿½ÅºÆÀ¸¤Ê¤É¤Î¹âÅ٤ʥµ¥¦¥ó¥É½èÍý¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡¢API¤ÎÎϤò¼Ú¤ê¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£¤Ç¤¹¤«¤é¡¢¤³¤ì¤Ï¤±¤·¤Æ´Êñ¤Ê½èÍý¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¥Ï¥Ã¥¥ê¸À¤Ã¤Æ¡¢¤³¤ì¤Þ¤Ç°·¤Ã¤Æ¤¤¿¹ÖºÂ¤ÎÆâÍÆ¤Î¤É¤ÎÉôʬ¤è¤ê¤â¡¢¤¢¤ë°ÕÌ£¹âÅÙ¤ÊÎΰè¤Ç¤¹¡£
ÉáÃʤ«¤éC¸À¸ì¤Ê¤É¤Ç¥×¥í¥°¥é¥à¤òÁȤó¤Ç¤¤¤ë¿Í¤«¤é¤¹¤ë¤È¡¢¤½¤ì¤Û¤ÉÆñ²ò¤Ç¤Ï¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤Ç¤¹¤¬¡¢³Î¼Â¤ËVBA¥×¥í¥°¥é¥Þ¡¼¤«¤é¸«¤ë¤È¹âÅÙ¤ÊÎΰè¤Ç¤¹¡£¤æ¤Ã¤¯¤ê¤Ç¤¤¤¤¤Ç¤¹¤«¤é¡¢¾¯¤·¤º¤Ä¤Ç¤âÍý²ò¤·¤Æ¤¤¤Ã¤Æ¤¯¤À¤µ¤¤¡£
¤Þ¤º¤Ï¹ÖºÂÆâÍÆ¤ò¤è¤¯¸«¤Ê¤¬¤é¡¢»ÅÁȤߤòÍý²ò¤¹¤ë¤³¤È¤«¤é»Ï¤á¤Æ¤¯¤À¤µ¤¤¤Í¡£
¢£¥Þ¥ë¥Á¥á¥Ç¥£¥¢¥³¥ó¥È¥í¡¼¥ë
¥¦¥£¥ó¥É¥¦¥º¤Ë»Ï¤á¤«¤éÅëºÜ¤µ¤ì¤Æ¤¤¤ëAPI¤È¸Æ¤Ð¤ì¤ë¥é¥¤¥Ö¥é¥ê·²¤Ë¤Ä¤¤¤Æ¤Ï¡¢°ÊÁ°¤Î¹ÖºÂ¤Ç¤â²òÀ⤷¤Þ¤·¤¿¤Í(Chapter30¡¦Chapter31¤ò»²¾È)¡£¤³¤ì¤é¤ÎAPI¤ÎÃæ¤Ë¤ÏÍÍ¡¹¤Êµ¡Ç½¤ò»ý¤Ä¤â¤Î¤¬¤¢¤ê¡¢¤½¤ÎÃæ¤Ë¤Ï¡¢°ìÈ̤ËMCI¤È¸Æ¤Ð¤ì¤Æ¤¤¤ë´Ø¿ô·²¤¬¤¢¤ê¤Þ¤¹¡£
MCI¤È¤Ï¡Ø
MCI¤òËܵ¤¤Ç¶Ë¤á¤ë¤È¡¢¥¦¥£¥ó¥É¥¦¥º¥á¥Ç¥£¥¢¥×¥ì¡¼¥ä¡¼Ê¤ߤΥ¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£¥µ¥¦¥ó¥É¤À¤±¤Ç¤Ê¤¯¡¢¥Ó¥Ç¥ª¥Õ¥¡¥¤¥ë¤ÎºÆÀ¸¤Ê¤É¤â¤Ç¤¤ë¤Î¤Ç¤¹¡£¤µ¤é¤Ë¸À¤¨¤Ð¡¢ºÆÀ¸Ää»ß¤À¤±¤Î´Êñ¤Ê½èÍý¤Ëα¤Þ¤é¤º¡¢°ì»þÄä»ß¤ä¡¢»ØÄꤷ¤¿¾ì½ê¤«¤é¤ÎºÆÀ¸¤äÏ¿²»¤Ê¤ó¤«¤â¤Ç¤¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤³¤ì¤À¤±Â¿µ¡Ç½¤Ç¡¢Èó¾ï¤ËÊØÍø¤ÊMCI¤Ç¤¹¤¬¡¢ÅöÁ³¥Ç¥á¥ê¥Ã¥È¤â¤¢¤ê¤Þ¤¹¡£¤½¤ì¤Ï¡ØÆñ²ò¡Ù¡¢¤½¤·¤Æ¡Ø°·¤¤¤¬Æñ¤·¤¤¡Ù¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
¹âÅ٤ǿµ¡Ç½¤Êʬ¤À¤±¡¢ÈæÎ㤷¤Æ°·¤¤¤¬Æñ¤·¤¯¤Ê¤ë¤Î¤Ç¤¹¤Í¡£¤³¤ì¤ÏÂçÄñ¤É¤ó¤Ê¤â¤Î¤Ç¤â¤½¤¦¤Ç¤·¤ç¤¦¡£¤Ç¤¹¤«¤é¡¢º£²ó¤Î¹ÖºÂ¤Ç¤Ï¡¢Èó¾ï¤Ë´Êñ¤Ê»È¤¤Êý¤òÀâÌÀ¤¹¤ë¤Ëα¤á¤Þ¤¹¡£²¿ÅÙ¤«¤Ëʬ³ä¤·¤Æ¡¢¾¯¤·¤º¤Ä¥¹¥Æ¥Ã¥×¥¢¥Ã¥×¤¹¤ë·Á¤Ç½¬ÆÀ¤òÌܻؤ·¤Æ¤Û¤·¤¤¤È»×¤¤¤Þ¤¹¡£¾Ç¤é¤º¡¢¤Ò¤È¤Ä¤Ò¤È¤Ä¤³¤Ê¤·¤Æ¤¤¤¤Þ¤·¤ç¤¦¡£
¢£Ê¸»ú¤òÁ÷¤ë
¾å¤Ç»¶¡¹Æñ¤·¤¤¤³¤È¤ò½ñ¤¤¤Æ¤ª¤¤¤Æº£¹¹¤Ç¤¹¤¬¡¢MCI¤Ë¤Ï¡¢¤Ç¤¤ë¤À¤±¥×¥í¥°¥é¥Þ¡¼¤¬°·¤¤¤ä¤¹¤¤¤è¤¦¤Ê»ÅÍͤÇÀ߷פµ¤ì¤Æ¤¤¤ë¡¢¥×¥í¥°¥é¥Þ¡¼¤ËÍ¥¤·¤¤API¤¬¤¢¤ê¤Þ¤¹¡£
¤½¤ì¤¬¡Ø
¤³¤ÎAPI¤Î̾Á°¤ò¤è¤¯¸«¤ë¤È¡¢MCI¤Ç¤¢¤ë¤³¤È¤¬¤¹¤°¤ï¤«¤ê¤Þ¤¹¤Í¡£Ì¾Á°¤ÎÀèÆ¬¤¬¤½¤Î¤Þ¤Þ¡Ø
ËÜÍè¡¢¥Ñ¥½¥³¥ó¤Ê¤É¤Î¥³¥ó¥Ô¥å¡¼¥¿¡¼¤Ï¡¢¤½¤ÎÁ´¤Æ¤¬ÆâÉôŪ¤Ë¤Ï¿ô»ú¤Ç´ÉÍý¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤â¤Î¤¹¤´¤¯¿¼¤¤Éôʬ¤Þ¤Ç¹Ô¤¯¤È¡¢ºÇ½ªÅª¤Ë¤Ï 0 ¤«¡¢¤½¤ì¤È¤â 1 ¤«¡¢¤È¤¤¤¦¤Õ¤¿¤Ä¤ÎÁªÂò»è¤À¤±¤ÇÁ´¤Æ¤Î½èÍý¤¬¹Ô¤ï¤ì¤Æ¤¤¤Þ¤¹¡£ËܼÁŪ¤Ë¤Ï¡¢¥³¥ó¥Ô¥å¡¼¥¿¡¼¤Ë¤Ï¡Ø¤Ï¤¤¡Ù¤«¡Ø¤¤¤¤¤¨¡Ù¤·¤«¤Ê¤¤¤Î¤Ç¤¹¤Í¡£
¤·¤«¤·¤³¤ì¤Ç¤Ï¡¢¿Í´Ö¤¬º¤¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£0¤È1¤¬Ê¤ó¤À¿ô»ú¤ÎÍåÎó¤ò¸«¤Æ¤â¡¢¤½¤ì¤¬¤É¤ó¤Ê°ÕÌ£¤ò»ý¤Ã¤Æ¤¤¤ë¤Î¤«¤ï¤«¤é¤Ê¤¤¤Ç¤¹¤â¤Î¤Í¡£
¤Þ¤¡¤³¤Îɽ¸½¤Ï¾¯¤·¶Ëü¤Ç¤¹¤¬¡¢Íפ¹¤ë¤Ë¡¢µ¡³£¤Ë¤Ï¿ô»ú¤ÇÌ¿Îᤷ¤Ê¤¯¤Æ¤Ï¤¤¤±¤Ê¤¤¾ì¹ç¤¬Â¿¤¯¡¢¤½¤Î°ÕÌ£¤òÁ´¤Æ²±¤¨¤Æ¤ª¤¯¤Î¤Ï¿Í´Ö¤Ë¤È¤Ã¤Æ¤½¤¦´Êñ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤½¤³¤Ç¡¢¿Í´Ö¤Ïʸ»ú¤ò»È¤¦¤³¤È¤ò¹Í¤¨¤¿¤ï¤±¤Ç¤¹¡£
Î㤨¤Ð¡¢¡Ø¥µ¥¦¥ó¥É¤òºÆÀ¸¤·¤Ê¤µ¤¤¡Ù¤È¤¤¤¦Ì¿Î᤬¡¢µ¡³£¤Î¸ÀÍդǤɤ¦É½¸½¤¹¤ë¤Î¤«¤Ï»ä¤Ë¤â¤ï¤«¤ê¤Þ¤»¤ó¡£¤·¤«¤·¡¢¡Ø PLAY ¡Ù¤È½ñ¤¤¤Æ¤¢¤ë¤Î¤ò¸«¤ì¤Ð¡¢¤Ê¤ó¤È¤Ê¤¯¤É¤¦¤¤¤¦Ì¿Îá¤ò½Ð¤½¤¦¤È¤·¤Æ¤¤¤ë¤Î¤«ÁÛÁü¤¬¤Ä¤¤Þ¤¹¤è¤Í¡£
¤µ¤Æ¡¢Á°ÃÖ¤¤¬Ä¹¤¯¤Ê¤ê¤Þ¤·¤¿¤¬¡¢¼ÂºÝ¤Ë
¼¡¤Î¥³¡¼¥É¤Ï¡¢
¤Ê¡¢¤Ê¤ó¤À¤³¤ì¤Ï¡¼¡ª¡¡¤È¤¤¤¦¶«¤Ó¤¬Ê¹¤³¤¨¤Æ¤¤½¤¦¤Ç¤¹¡£
¤¿¤¯¤µ¤ó¤Î±Ñ¸ì¤¬Ê¤ó¤Ç¤¤¤Æ¡¢¤Á¤ç¤Ã¤È¥Ó¥Ó¥Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤Í¡£
¢£¤½¤ì¤Ç¤É¤¦»È¤¦¤Î¡©
¤µ¤Æ¡¢
¤·¤«¤·¡¢³«¤¯¤È¤¤¤Ã¤Æ¤â¡¢¤½¤ì¤Ï¤¢¤¯¤Þ¤Ç¤â¥á¥â¥ê¾å¤Ë³«¤¤¤Æ¤ª¤¯¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£
¤³¤³¤Ç¡©¡©¡©¤È¤Ê¤Ã¤¿Êý¡¢Â¿Ê¬¤¤¤é¤Ã¤·¤ã¤ë¤È»×¤¤¤Þ¤¹¡£¥á¥â¥ê¾å¤Ë³«¤¤¤Æ¤ª¤¯¤Ã¤Æ¤É¤¦¤¤¤¦¤³¤È¡©¡¡¤È¤¤¤¦´¶¤¸¤Ç¤·¤ç¤¦¡£¤Ç¤â¿´ÇÛÍפê¤Þ¤»¤ó¡£¤½¤ì¤Ï¾¡¼ê¤Ë
¤³¤ì¤¬¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò³«¤¤Ê¤µ¤¤¤È¤¤¤¦Ì¿Îá¤ò¤·¤Æ¤¤¤ë¥³¡¼¥É¤Ç¤¹¡£
¤Þ¤º»Ï¤á¤Ë¡¢
¤½¤·¤Æ¡¢¼¡¤Ë¡Ø¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹(¾ì½ê)¡Ù¤È¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤¬ÃÖ¤«¤ì¤Æ¤¤¤ë¾ì½ê¤òɽ¤¹¥¢¥É¥ì¥¹(C:\Documents and Settings¡Ä¡Ä¤Ê¤É)¤ò»ØÄꤷ¤Þ¤¹¡£
¤Á¤ç¤Ã¤È¤ï¤«¤ê¤Å¤é¤¤¤Î¤¬¼¡¤Î¤È¤³¤í¤Ç¤·¤ç¤¦¡£¤³¤³¤Ë¤Ï¡Ø
¥µ¥ó¥×¥ë¤Ï¤³¤ó¤Ê´¶¤¸¤Ç¤¹¡£
¤³¤ì¤Ç¡¢¡Ø
¤½¤·¤Æ¡¢¾åµ¤Î¤è¤¦¤Ë¤·¤Æ³«¤¤¤¿¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤òºÆÀ¸¤¹¤ë¤È¤¤Ï¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
´Êñ¤Ç¤¹¤Í¡£¡Ø
¢£Âç»ö¤ÊÏÃ
¤µ¤Æ¡¢¤³¤ì¤Ç¡¢ÌÜŪ¤Î¥µ¥¦¥ó¥É¤òÌĤ餹¤³¤È¤¬¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¤¿¤À¤·¡¢¤³¤ì¤Ç½ª¤ï¤ê¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£Âç»ö¤Ê¤³¤È¤¬»Ä¤Ã¤Æ¤¤¤Þ¤¹¡£
Àè¤Û¤É¡¢¥Õ¥¡¥¤¥ë¤ò³«¤¯ºÝ¤Ë¡Ø¥á¥â¥ê¾å¤Ë³«¤¯¡Ù¤È¤¤¤¦É½¸½¤ò»È¤¤¤Þ¤·¤¿¡£¼Â¤Ï¡¢¥á¥â¥ê¾å¤Ë³«¤«¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¾ðÊó¤ò¡¢¤Û¤Ã¤¿¤é¤«¤·¤Ë¤·¤Æ¤ª¤¯¤Î¤Ï¥¿¥Ö¡¼¤Ç¤¹¡£
¤³¤ì¤Ï¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤À¤±¤ÎÏäǤϤ¢¤ê¤Þ¤»¤ó¡£API¤Ê¤É¤Ç¥á¥â¥ê¾å¤ËŸ³«¤µ¤ì¤¿¥Ç¡¼¥¿¤Ï¡¢ºÇ¸å¤Ë¤Ïɬ¤º¡Ø²òÊü¡Ù¤·¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£¤³¤ì¤Ï°ìÂΤɤ¦¤¤¤¦¤³¤È¤Ç¤·¤ç¤¦¡£
¥¦¥£¥ó¥É¥¦¥º¤Ï¡¢ÍÍ¡¹¤Ê½èÍý¤ò¹Ô¤¦¤¿¤á¤Ë¥á¥â¥ê¤ò»È¤¤¤Þ¤¹¡£¤½¤·¤Æ¡¢
¤Ç¤¹¤«¤é¡¢¥á¥â¥ê¾å¤ËŸ³«¤µ¤ì¤Æ¤¤¤ë¥Ç¡¼¥¿¤ò¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤¯¤È¡¢¥¦¥£¥ó¥É¥¦¥º¤Î¸ª¿È¤¬¤É¤ó¤É¤ó¶¹¤Þ¤Ã¤Æ¤¤¤¤Þ¤¹¡£¤½¤·¤ÆºÇ¸å¤Ë¤Ï¡¢É¬Íפʥá¥â¥êÎΰ褬¤ê¤Ê¤¯¤Ê¤Ã¤Æ¡¢¥Õ¥ê¡¼¥º¤·¤¿¤êÊÑ¤ÊÆ°ºî¤ò¤·¤¿¤ê¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¤¹¡£
API¤ò»È¤¦¤³¤È¤Î¶²¤µ¤È¤Ï¤³¤¦¤¤¤¦¤³¤È¤Ç¤¹¡£
MCI¤Ï¹âÅÙ¤Êʬ¤À¤±¡¢Æñ°×ÅÙ¤¬¹â¤¯°·¤¤¤¬Æñ¤·¤¤¤ÈºÇ½é¤Ë½ñ¤¤Þ¤·¤¿¤Í¡£¤½¤ì¤¬¤³¤¦¤¤¤¦¤³¤È¤Ê¤Î¤Ç¤¹¡£»È¤¤Êý¤ò¤Ò¤È¤Ä´Ö°ã¤¨¤ë¤È¡¢¥Ñ¥½¥³¥ó¤Ë¤È¤Ã¤ÆÃ×̿Ū¤Ê¥¨¥é¡¼¤¬È¯À¸¤¹¤ë²ÄǽÀ¤¬¤¢¤ë¤ï¤±¤Ç¤¹¡£
ºòº£¤Î¥Ñ¥½¥³¥ó¤Ç¤Ï¡¢¥á¥â¥ê¤¬¤¿¤¯¤µ¤óÀÑ¤Þ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò¤Ò¤È¤Ä¤Õ¤¿¤Ä¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤¤¤Æ¤â¡¢¥Õ¥ê¡¼¥º¤·¤Æ¤·¤Þ¤¦¤È¤¤¤¦¤³¤È¤Ï¹Í¤¨¤Ë¤¯¤¤¤Ç¤¹¡£¤·¤«¤·¡¢¤³¤¦¤¤¤Ã¤¿»ö¾ð¤Ï¥×¥í¥°¥é¥Þ¡¼¤È¤·¤ÆÇ§¼±¤·¤Æ¤ª¤«¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£
¥¥Á¥ó¤È³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ÏÊĤ¸¤ë¡¢¥á¥â¥ê¤ò²òÊü¤·¤Æ¤¤ì¤¤¤Ê¾õÂ֤ˤ·¤Æ¤ª¤¯¡¢¤³¤ì¤ò˺¤ì¤º¤Ë¤ä¤ê¤Þ¤·¤ç¤¦¡£
¤³¤Î¤è¤¦¤Ë¡¢¡Ø
ºÇ¸å¤Ë
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
Sub MCI_Test()
Dim P As String
P = """" & ActiveWorkbook.Path & "\sample.wav"
Call mciSendString("open " & P & " alias sample", vbNullString, 0, 0)
Call mciSendString("play sample", vbNullString, 0, 0)
Call mciSendString("close sample", vbNullString, 0, 0)
End Sub
¡Ø³«¤¯¡Ù¢Í¡ØºÆÀ¸¤¹¤ë¡Ù¢Í¡ØÊĤ¸¤ë¡Ù¤È¤¤¤¦°ìÏ¢¤Îή¤ì¤ò¤è¤¯³Îǧ¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢Ê̴ۤˤƥµ¥ó¥×¥ë¤âÍѰդ·¤Æ¤¤¤Þ¤¹¡£²¼¤Î¥ê¥ó¥¯¤«¤é¥À¥¦¥ó¥í¡¼¥É¤Ç¤¤Þ¤¹¤Î¤Ç¡¢¤è¤«¤Ã¤¿¤é»²¹Í¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
¥µ¥ó¥×¥ë¥À¥¦¥ó¥í¡¼¥É¡¡¢Í¡¡¥³¥Á¥é¤è¤ê¥À¥¦¥ó¥í¡¼¥É¤Ç¤¤Þ¤¹¡£¡ÊÊÌ´Û¡Ë
¢£³Ê¸À
MCI¤ò»È¤¨¤Ð¹âÅ٤ʥµ¥¦¥ó¥É½èÍý¤¬²Äǽ
¹âµ¡Ç½¤Êʬ°·¤¤¤¬Æñ¤·¤¤
³«¤¤¤¿¥Õ¥¡¥¤¥ë¤Ï¥¯¥í¡¼¥º¤¹¤ë
¤Á¤ç¤Ã¤ÈÆñ¤·¤¤ÏÃÂê¤Ç¤·¤¿¤¬¡¢Âç¾æÉפǤ·¤ç¤¦¤«¡£
¤µ¤Æ¡¢º£²ó¤«¤é¤ÏÂÔ˾(¡©)¤Î¥µ¥¦¥ó¥ÉºÆÀ¸½èÍý¤Ë´Ø¤¹¤ëÆâÍÆ¤ò²òÀ⤷¤Æ¤¤¤¤Þ¤¹¡£
¼Â¤Ï¡¢VBAñÂΤǤϡ¢¥µ¥¦¥ó¥É¤Ë´Ø¤¹¤ë¤³¤È¤Ï¤Û¤È¤ó¤É¤Ç¤¤Þ¤»¤ó¡£Í£°ì¡¢»ä¤ÎÃΤäƤ¤¤ë²»¤Ë´Ø¤¹¤ë»ö¤È¸À¤¨¤Ð¡¢
Beep ¤È¤¤¤¦¥¹¥Æ¡¼¥È¥á¥ó¥È¤°¤é¤¤¤Ç¤¹¡£¤³¤Î
Beep¤Ç¤¹¤¬¡¢¥²¡¼¥à¤Ë¤Ï¤Û¤È¤ó¤É»È¤¨¤Ê¤¤¤È¸À¤Ã¤Æ¤¤¤¤¤Ç¤·¤ç¤¦¡£¥á¥Ã¥»¡¼¥¸¤òɽ¼¨¤¹¤ëMsgBox¤ò¼Â¹Ô¤¹¤ë¤È¡¢¥Ý¥ó¡¢¤È¤«¡¢¥³¥ó¡¢¤ß¤¿¤¤¤Ê²»¤¬ÌĤê¤Þ¤¹¤¬¡¢¤¢¤ó¤ÊÄøÅ٤⻤·¤«°·¤¨¤Þ¤»¤ó¡£¤·¤«¤â¥á¥Ã¥»¡¼¥¸¤Îɽ¼¨»þ¤ËÌĤ벻¤äBeep¤ÇÌĤ餻¤ë²»¤Ï¡¢¥Ñ¥½¥³¥ó¤Î´Ä¶¤Ë¤è¤Ã¤ÆÊѤï¤Ã¤Æ¤¤Þ¤¹¡£¤Ä¤Þ¤ê¡¢¤É¤ó¤Ê¤È¤¤Ë¤âƱ¤¸¥µ¥¦¥ó¥É¸ú²Ì¤¬ÆÀ¤é¤ì¤ë¤È¤Ï¸Â¤é¤Ê¤¤¤Î¤Ç¤¹¡£¥²¡¼¥à¤Ç¤Ï¡¢¹¥¤¤Ê¤È¤¤Ë¹¥¤¤Ê²»¤òÌĤ餻¤Ê¤¤¤È°ÕÌ£¤¬¤¢¤ê¤Þ¤»¤ó¡£¤·¤«¤â¡¢¤Ç¤¤ë¤³¤È¤Ê¤éBGM¤òή¤·¤Ê¤¬¤é¸ú²Ì²»¤âºÆÀ¸¤¹¤ë¤È¤¤¤¦¡¢¤¤¤ï¤æ¤ë¿½ÅºÆÀ¸¤¬¤Ç¤¤ë¤³¤È¤¬ÍýÁÛŪ¤Ç¤¹¤è¤Í¡£
VBA¤Ç¿½ÅºÆÀ¸¤Ê¤É¤Î¹âÅ٤ʥµ¥¦¥ó¥É½èÍý¤ò¹Ô¤¦¤¿¤á¤Ë¤Ï¡¢API¤ÎÎϤò¼Ú¤ê¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£¤Ç¤¹¤«¤é¡¢¤³¤ì¤Ï¤±¤·¤Æ´Êñ¤Ê½èÍý¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¥Ï¥Ã¥¥ê¸À¤Ã¤Æ¡¢¤³¤ì¤Þ¤Ç°·¤Ã¤Æ¤¤¿¹ÖºÂ¤ÎÆâÍÆ¤Î¤É¤ÎÉôʬ¤è¤ê¤â¡¢¤¢¤ë°ÕÌ£¹âÅÙ¤ÊÎΰè¤Ç¤¹¡£
ÉáÃʤ«¤éC¸À¸ì¤Ê¤É¤Ç¥×¥í¥°¥é¥à¤òÁȤó¤Ç¤¤¤ë¿Í¤«¤é¤¹¤ë¤È¡¢¤½¤ì¤Û¤ÉÆñ²ò¤Ç¤Ï¤Ê¤¤¤«¤â¤·¤ì¤Þ¤»¤ó¡£¤Ç¤¹¤¬¡¢³Î¼Â¤ËVBA¥×¥í¥°¥é¥Þ¡¼¤«¤é¸«¤ë¤È¹âÅÙ¤ÊÎΰè¤Ç¤¹¡£¤æ¤Ã¤¯¤ê¤Ç¤¤¤¤¤Ç¤¹¤«¤é¡¢¾¯¤·¤º¤Ä¤Ç¤âÍý²ò¤·¤Æ¤¤¤Ã¤Æ¤¯¤À¤µ¤¤¡£
¤Þ¤º¤Ï¹ÖºÂÆâÍÆ¤ò¤è¤¯¸«¤Ê¤¬¤é¡¢»ÅÁȤߤòÍý²ò¤¹¤ë¤³¤È¤«¤é»Ï¤á¤Æ¤¯¤À¤µ¤¤¤Í¡£
¢£¥Þ¥ë¥Á¥á¥Ç¥£¥¢¥³¥ó¥È¥í¡¼¥ë
¥¦¥£¥ó¥É¥¦¥º¤Ë»Ï¤á¤«¤éÅëºÜ¤µ¤ì¤Æ¤¤¤ëAPI¤È¸Æ¤Ð¤ì¤ë¥é¥¤¥Ö¥é¥ê·²¤Ë¤Ä¤¤¤Æ¤Ï¡¢°ÊÁ°¤Î¹ÖºÂ¤Ç¤â²òÀ⤷¤Þ¤·¤¿¤Í(Chapter30¡¦Chapter31¤ò»²¾È)¡£¤³¤ì¤é¤ÎAPI¤ÎÃæ¤Ë¤ÏÍÍ¡¹¤Êµ¡Ç½¤ò»ý¤Ä¤â¤Î¤¬¤¢¤ê¡¢¤½¤ÎÃæ¤Ë¤Ï¡¢°ìÈ̤ËMCI¤È¸Æ¤Ð¤ì¤Æ¤¤¤ë´Ø¿ô·²¤¬¤¢¤ê¤Þ¤¹¡£
MCI¤È¤Ï¡Ø
Multimedia Control Interface¡Ù¤ÎƬʸ»ú¤ò¼è¤Ã¤¿Î¬¸ì¤Ç¤¹¡£¥Þ¥ë¥Á¥á¥Ç¥£¥¢¡¢¤Ä¤Þ¤ê¥µ¥¦¥ó¥É¤ä¥Ó¥Ç¥ª¤Ê¤É¤Î½èÍý¤Ë´Ø¤ï¤ëÉôʬ¤ò°ì¼ê¤Ë°ú¤¼õ¤±¤ë¤Î¤¬MCI¤Ç¤¹¡£MCI¤òËܵ¤¤Ç¶Ë¤á¤ë¤È¡¢¥¦¥£¥ó¥É¥¦¥º¥á¥Ç¥£¥¢¥×¥ì¡¼¥ä¡¼Ê¤ߤΥ¢¥×¥ê¥±¡¼¥·¥ç¥ó¤òºîÀ®¤¹¤ë¤³¤È¤â¤Ç¤¤Þ¤¹¡£¥µ¥¦¥ó¥É¤À¤±¤Ç¤Ê¤¯¡¢¥Ó¥Ç¥ª¥Õ¥¡¥¤¥ë¤ÎºÆÀ¸¤Ê¤É¤â¤Ç¤¤ë¤Î¤Ç¤¹¡£¤µ¤é¤Ë¸À¤¨¤Ð¡¢ºÆÀ¸Ää»ß¤À¤±¤Î´Êñ¤Ê½èÍý¤Ëα¤Þ¤é¤º¡¢°ì»þÄä»ß¤ä¡¢»ØÄꤷ¤¿¾ì½ê¤«¤é¤ÎºÆÀ¸¤äÏ¿²»¤Ê¤ó¤«¤â¤Ç¤¤Æ¤·¤Þ¤¤¤Þ¤¹¡£
¤³¤ì¤À¤±Â¿µ¡Ç½¤Ç¡¢Èó¾ï¤ËÊØÍø¤ÊMCI¤Ç¤¹¤¬¡¢ÅöÁ³¥Ç¥á¥ê¥Ã¥È¤â¤¢¤ê¤Þ¤¹¡£¤½¤ì¤Ï¡ØÆñ²ò¡Ù¡¢¤½¤·¤Æ¡Ø°·¤¤¤¬Æñ¤·¤¤¡Ù¤È¤¤¤¦¤³¤È¤Ç¤¹¡£
¹âÅ٤ǿµ¡Ç½¤Êʬ¤À¤±¡¢ÈæÎ㤷¤Æ°·¤¤¤¬Æñ¤·¤¯¤Ê¤ë¤Î¤Ç¤¹¤Í¡£¤³¤ì¤ÏÂçÄñ¤É¤ó¤Ê¤â¤Î¤Ç¤â¤½¤¦¤Ç¤·¤ç¤¦¡£¤Ç¤¹¤«¤é¡¢º£²ó¤Î¹ÖºÂ¤Ç¤Ï¡¢Èó¾ï¤Ë´Êñ¤Ê»È¤¤Êý¤òÀâÌÀ¤¹¤ë¤Ëα¤á¤Þ¤¹¡£²¿ÅÙ¤«¤Ëʬ³ä¤·¤Æ¡¢¾¯¤·¤º¤Ä¥¹¥Æ¥Ã¥×¥¢¥Ã¥×¤¹¤ë·Á¤Ç½¬ÆÀ¤òÌܻؤ·¤Æ¤Û¤·¤¤¤È»×¤¤¤Þ¤¹¡£¾Ç¤é¤º¡¢¤Ò¤È¤Ä¤Ò¤È¤Ä¤³¤Ê¤·¤Æ¤¤¤¤Þ¤·¤ç¤¦¡£
¢£Ê¸»ú¤òÁ÷¤ë
¾å¤Ç»¶¡¹Æñ¤·¤¤¤³¤È¤ò½ñ¤¤¤Æ¤ª¤¤¤Æº£¹¹¤Ç¤¹¤¬¡¢MCI¤Ë¤Ï¡¢¤Ç¤¤ë¤À¤±¥×¥í¥°¥é¥Þ¡¼¤¬°·¤¤¤ä¤¹¤¤¤è¤¦¤Ê»ÅÍͤÇÀ߷פµ¤ì¤Æ¤¤¤ë¡¢¥×¥í¥°¥é¥Þ¡¼¤ËÍ¥¤·¤¤API¤¬¤¢¤ê¤Þ¤¹¡£
¤½¤ì¤¬¡Ø
mciSendString ¡Ù¤È¸Æ¤Ð¤ì¤ëAPI¤Ç¤¹¡£¤³¤ÎAPI¤Î̾Á°¤ò¤è¤¯¸«¤ë¤È¡¢MCI¤Ç¤¢¤ë¤³¤È¤¬¤¹¤°¤ï¤«¤ê¤Þ¤¹¤Í¡£Ì¾Á°¤ÎÀèÆ¬¤¬¤½¤Î¤Þ¤Þ¡Ø
mci¡Ù¤È¤Ê¤Ã¤Æ¤¤¤Þ¤¹¡£¤½¤·¤Æ¼¡¤Ë¤Ï¡¢¡Ø SendString ¡Ù¤È½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¡£¤³¤ì¤òÌõ¤¹¤È¡ØÊ¸»ú¤òÁ÷¤ëMCI¡Ù¤È¤¤¤¦´¶¤¸¤Ç¤·¤ç¤¦¤«¡£mciSendString¤È¤¤¤¦API¤Ï¡¢¤½¤Î̾¤ÎÄ̤êʸ»úÎó¤ò»È¤Ã¤Æ¥×¥í¥°¥é¥à¤òÁȤळ¤È¤¬¤Ç¤¤Þ¤¹¡£¼Â¤Ï¤³¤ì¤Ï¡¢¤«¤Ê¤ê¥×¥í¥°¥é¥Þ¡¼¤ËÍ¥¤·¤¤À߷פǤ¹¡£ËÜÍè¡¢¥Ñ¥½¥³¥ó¤Ê¤É¤Î¥³¥ó¥Ô¥å¡¼¥¿¡¼¤Ï¡¢¤½¤ÎÁ´¤Æ¤¬ÆâÉôŪ¤Ë¤Ï¿ô»ú¤Ç´ÉÍý¤µ¤ì¤Æ¤¤¤Þ¤¹¡£¤â¤Î¤¹¤´¤¯¿¼¤¤Éôʬ¤Þ¤Ç¹Ô¤¯¤È¡¢ºÇ½ªÅª¤Ë¤Ï 0 ¤«¡¢¤½¤ì¤È¤â 1 ¤«¡¢¤È¤¤¤¦¤Õ¤¿¤Ä¤ÎÁªÂò»è¤À¤±¤ÇÁ´¤Æ¤Î½èÍý¤¬¹Ô¤ï¤ì¤Æ¤¤¤Þ¤¹¡£ËܼÁŪ¤Ë¤Ï¡¢¥³¥ó¥Ô¥å¡¼¥¿¡¼¤Ë¤Ï¡Ø¤Ï¤¤¡Ù¤«¡Ø¤¤¤¤¤¨¡Ù¤·¤«¤Ê¤¤¤Î¤Ç¤¹¤Í¡£
¤·¤«¤·¤³¤ì¤Ç¤Ï¡¢¿Í´Ö¤¬º¤¤Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¡£0¤È1¤¬Ê¤ó¤À¿ô»ú¤ÎÍåÎó¤ò¸«¤Æ¤â¡¢¤½¤ì¤¬¤É¤ó¤Ê°ÕÌ£¤ò»ý¤Ã¤Æ¤¤¤ë¤Î¤«¤ï¤«¤é¤Ê¤¤¤Ç¤¹¤â¤Î¤Í¡£
¤Þ¤¡¤³¤Îɽ¸½¤Ï¾¯¤·¶Ëü¤Ç¤¹¤¬¡¢Íפ¹¤ë¤Ë¡¢µ¡³£¤Ë¤Ï¿ô»ú¤ÇÌ¿Îᤷ¤Ê¤¯¤Æ¤Ï¤¤¤±¤Ê¤¤¾ì¹ç¤¬Â¿¤¯¡¢¤½¤Î°ÕÌ£¤òÁ´¤Æ²±¤¨¤Æ¤ª¤¯¤Î¤Ï¿Í´Ö¤Ë¤È¤Ã¤Æ¤½¤¦´Êñ¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£¤½¤³¤Ç¡¢¿Í´Ö¤Ïʸ»ú¤ò»È¤¦¤³¤È¤ò¹Í¤¨¤¿¤ï¤±¤Ç¤¹¡£
Î㤨¤Ð¡¢¡Ø¥µ¥¦¥ó¥É¤òºÆÀ¸¤·¤Ê¤µ¤¤¡Ù¤È¤¤¤¦Ì¿Î᤬¡¢µ¡³£¤Î¸ÀÍդǤɤ¦É½¸½¤¹¤ë¤Î¤«¤Ï»ä¤Ë¤â¤ï¤«¤ê¤Þ¤»¤ó¡£¤·¤«¤·¡¢¡Ø PLAY ¡Ù¤È½ñ¤¤¤Æ¤¢¤ë¤Î¤ò¸«¤ì¤Ð¡¢¤Ê¤ó¤È¤Ê¤¯¤É¤¦¤¤¤¦Ì¿Îá¤ò½Ð¤½¤¦¤È¤·¤Æ¤¤¤ë¤Î¤«ÁÛÁü¤¬¤Ä¤¤Þ¤¹¤è¤Í¡£
mciSendString¤Ï¡¢Èó¾ï¤ËÊ£»¨¤Ç¤ï¤«¤ê¤Ë¤¯¤¤½èÍý¤ò¡¢Ê¸»úÎó¤ò»È¤Ã¤Æ¹Ô¤¦¤³¤È¤Ë¤è¤Ã¤Æ¡¢¥×¥í¥°¥é¥Þ¡¼¤¬Ä¾´¶Åª¤Ë¤ï¤«¤ê¤ä¤¹¤¯¥×¥í¥°¥é¥ß¥ó¥°¤Ç¤¤ë¤è¤¦¤ÊÀ߷פˤʤäƤ¤¤ë¤Î¤Ç¤¹¡£¤¢¤ê¤¬¤¿¤¤ÏäǤ¹¤Í¡£¤µ¤Æ¡¢Á°ÃÖ¤¤¬Ä¹¤¯¤Ê¤ê¤Þ¤·¤¿¤¬¡¢¼ÂºÝ¤Ë
mciSendString¤ÎÃæ¿È¤ò¸«¤Æ¤ß¤Þ¤·¤ç¤¦¡£¼¡¤Î¥³¡¼¥É¤Ï¡¢
mciSendString¤ÎÀë¸Àʸ¤Ç¤¹¡£mciSendString¤ò»È¤¤¤¿¤¤¤È¤¤Ï¡¢¤³¤ì¤ò¥â¥¸¥å¡¼¥ë¤ÎÀèÆ¬Éôʬ¤Ëµ½Ò¤·¤Þ¤¹¡£Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
¤Ê¡¢¤Ê¤ó¤À¤³¤ì¤Ï¡¼¡ª¡¡¤È¤¤¤¦¶«¤Ó¤¬Ê¹¤³¤¨¤Æ¤¤½¤¦¤Ç¤¹¡£
¤¿¤¯¤µ¤ó¤Î±Ñ¸ì¤¬Ê¤ó¤Ç¤¤¤Æ¡¢¤Á¤ç¤Ã¤È¥Ó¥Ó¥Ã¤Æ¤·¤Þ¤¤¤Þ¤¹¤Í¡£
mciSendString¤Ï°ú¿ô¤Î°ÕÌ£¤¬¤Á¤ç¤Ã¤È¤ï¤«¤ê¤Ë¤¯¤¤¤Î¤Ç¡¢¤¢¤¨¤Æ¤³¤³¤Ç¤Ï¾Ü¤·¤¤ÀâÌÀ¤ò¤·¤Ê¤¤¤³¤È¤Ë¤·¤Þ¤¹¡£¤³¤ì¤ò°ì¤«¤éÁ´¤ÆÀâÌÀ¤·¤Æ¤¤¤ë¤È¡¢¤½¤ì¤À¤±¤Ç¿ʬ¤ä¤ëµ¤¤¬¤Ê¤¯¤Ê¤Ã¤Æ¤·¤Þ¤¦¤È»×¤¤¤Þ¤¹¤Î¤Ç¡£mciSendString¤Î°ú¿ô¤ÇºÇ¤â½ÅÍפȤʤë¤Î¤¬¡¢Âè°ì°ú¿ô¤Ç¤¢¤ë¡Ø lpstrCommand As String ¡Ù¤Ç¤¹¡£¥Ç¡¼¥¿·¿¤¬String·¿¤Ç¤¹¤«¤é¡¢¤³¤³¤Ë²¿¤é¤«¤Îʸ»úÎó¤òÅϤ»¤Ð¤¤¤¤¤³¤È¤¬¤ï¤«¤ê¤Þ¤¹¤Í¡£mciSendString¤Ï¡¢¤³¤ÎÂè°ì°ú¿ô¤ËÅϤµ¤ì¤¿Ì¿Îá¤ò¼Â¹Ô¤¹¤ë»ÅÁȤߤˤʤäƤ¤¤Þ¤¹¡£¤Ç¤¹¤«¤é¡¢¥µ¥¦¥ó¥É¤òºÆÀ¸¤·¤¿¤¤¤È¤¤Ë¤Ï¡¢¤³¤³¤ËºÆÀ¸¤òɽ¤¹Ì¿Îáʸ»úÎó¤òÅϤ¹¤³¤È¤Ë¤Ê¤ê¤Þ¤¹¡£¢£¤½¤ì¤Ç¤É¤¦»È¤¦¤Î¡©
¤µ¤Æ¡¢
mciSendString¤ÎÀë¸Àʸ¤Ï½àÈ÷¤Ç¤¤Þ¤·¤¿¤«¡©¡¡Àë¸Àʸ¤¬½àÈ÷¤Ç¤¤¿¤é¡¢¼¡¤Ë¼ÂºÝ¤Î»È¤¤Êý¤ò¸«¤Æ¤¤¤¤Þ¤·¤ç¤¦¡£mciSendString¤Ç¥µ¥¦¥ó¥É¤òºÆÀ¸¤¹¤ë¾ì¹ç¤Ë¤Ï¡¢¤¢¤é¤«¤¸¤á¡¢ÌÜŪ¤Î¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò¥ª¡¼¥×¥ó¡¢¤Ä¤Þ¤ê³«¤¤¤Æ¤ª¤«¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£¤·¤«¤·¡¢³«¤¯¤È¤¤¤Ã¤Æ¤â¡¢¤½¤ì¤Ï¤¢¤¯¤Þ¤Ç¤â¥á¥â¥ê¾å¤Ë³«¤¤¤Æ¤ª¤¯¤È¤¤¤¦°ÕÌ£¤Ç¤¹¡£
¤³¤³¤Ç¡©¡©¡©¤È¤Ê¤Ã¤¿Êý¡¢Â¿Ê¬¤¤¤é¤Ã¤·¤ã¤ë¤È»×¤¤¤Þ¤¹¡£¥á¥â¥ê¾å¤Ë³«¤¤¤Æ¤ª¤¯¤Ã¤Æ¤É¤¦¤¤¤¦¤³¤È¡©¡¡¤È¤¤¤¦´¶¤¸¤Ç¤·¤ç¤¦¡£¤Ç¤â¿´ÇÛÍפê¤Þ¤»¤ó¡£¤½¤ì¤Ï¾¡¼ê¤Ë
mciSendString¤¬¤ä¤Ã¤Æ¤¯¤ì¤Þ¤¹¡£mciSendString¤Ë¡¢¡Ø¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò³«¤¤Ê¤µ¤¤¡Ù¤ÈÌ¿Îᤷ¤Æ¤ä¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¡£Call mciSendString("open ¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹(¾ì½ê) alias ¥Õ¥¡¥¤¥ë¤Î²¾Ì¾", vbNullString, 0, 0)
¤³¤ì¤¬¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò³«¤¤Ê¤µ¤¤¤È¤¤¤¦Ì¿Îá¤ò¤·¤Æ¤¤¤ë¥³¡¼¥É¤Ç¤¹¡£
¤Þ¤º»Ï¤á¤Ë¡¢
open ¤¬½Ð¤Æ¤¤Æ¤¤¤Þ¤¹¤Í¡£¤³¤ì¤¬¡¢¥Õ¥¡¥¤¥ë¤ò³«¤¤Ê¤µ¤¤¤È¤¤¤¦Ì¿Îá¤òɽ¤¹Ê¸»úÎó¤Ç¤¹¡£¤É¤ó¤Ê¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò³«¤¯¤È¤¤Ç¤â¡¢¤³¤ÎÉôʬ¤ÏÊѤï¤ê¤Þ¤»¤ó¡£¤½¤·¤Æ¡¢¼¡¤Ë¡Ø¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤Î¥Õ¥ë¥Ñ¥¹(¾ì½ê)¡Ù¤È¤¢¤ê¤Þ¤¹¡£¤³¤ì¤Ï¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤¬ÃÖ¤«¤ì¤Æ¤¤¤ë¾ì½ê¤òɽ¤¹¥¢¥É¥ì¥¹(C:\Documents and Settings¡Ä¡Ä¤Ê¤É)¤ò»ØÄꤷ¤Þ¤¹¡£
¤Á¤ç¤Ã¤È¤ï¤«¤ê¤Å¤é¤¤¤Î¤¬¼¡¤Î¤È¤³¤í¤Ç¤·¤ç¤¦¡£¤³¤³¤Ë¤Ï¡Ø
alias ¥Õ¥¡¥¤¥ë¤Î²¾Ì¾ ¡Ù¤È½ñ¤«¤ì¤Æ¤¤¤Þ¤¹¤Í¡£ alias (¥¨¥¤¥ê¥¢¥¹)¤È¤¤¤¦¤Î¤Ï¡¢°ì»þŪ¤Ê²¾¤Î̾Á°¤Î¤è¤¦¤Ê¤â¤Î¤Ç¡¢¥×¥í¥°¥é¥à¤ÎÃæ¤Ç¡¢²¿¤«¤òȽÊ̤·¤¿¤ê¤¹¤ë¤È¤¤Ë¤ï¤«¤ê¤ä¤¹¤¯¤¹¤ë¤¿¤á¤Î»ÅÁȤߤǤ¹¡£mciSendString¤Ç¤Ï¡¢³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ò¸å¤«¤éºÆÀ¸¤·¤¿¤ê¤¹¤ëºÝ¤Ë¡¢¤³¤³¤Ç»ØÄꤷ¤¿²¾¤Î̾Á°¤ò»È¤Ã¤Æ¼±Ê̤·¤Þ¤¹¡£Ê£¿ô¤Î¥Õ¥¡¥¤¥ë¤ò³«¤¤¤Æ¤ª¤¤¤Æ¤â¡¢°Û¤Ê¤ë̾Á°¤ò¤Ä¤±¤Æ¤ª¤¯¤³¤È¤Ç¡¢¤É¤ì¤òºÆÀ¸¤¹¤ì¤Ð¤¤¤¤¤Î¤«ÍưפËȽÃǤ¬¤Ä¤¤Þ¤¹¤Í¡£¥¨¥¤¥ê¥¢¥¹¤È¤Ï¤½¤Î¤¿¤á¤Î»ÅÁȤߤǤ¹¡£¥µ¥ó¥×¥ë¤Ï¤³¤ó¤Ê´¶¤¸¤Ç¤¹¡£
Call mciSendString("open C:\WINDOWS\Media\chimes.wav alias Chime", vbNullString, 0, 0)
¤³¤ì¤Ç¡¢¡Ø
chimes.wav¡Ù¤È¤¤¤¦¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤¬¡¢¡ØChime¡Ù¤È¤¤¤¦²¾¤Î̾Á°¤Ç³«¤«¤ì¤Þ¤¹¡£»ØÄꤵ¤ì¤¿¥Ñ¥¹¤Ë¥Õ¥¡¥¤¥ë¤¬Â¸ºß¤·¤Ê¤¤¾ì¹ç¤Ë¤Ï¡¢¥ª¡¼¥×¥ó¤Ë¼ºÇÔ¤·¤Þ¤¹¤Î¤ÇÃí°Õ¤·¤Æ¤¯¤À¤µ¤¤¡£¤½¤·¤Æ¡¢¾åµ¤Î¤è¤¦¤Ë¤·¤Æ³«¤¤¤¿¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤òºÆÀ¸¤¹¤ë¤È¤¤Ï¼¡¤Î¤è¤¦¤Ë¤Ê¤ê¤Þ¤¹¡£
Call mciSendString("play Chime", vbNullString, 0, 0)
´Êñ¤Ç¤¹¤Í¡£¡Ø
play ¡Ù¤È¤¤¤¦Ì¿Îáʸ»úÎó¤ò»È¤Ã¤Æ¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò³«¤¯ºÝ¤ËÄêµÁ¤·¤¿¡¢²¾¤Î̾Á°¤ò»ØÄꤹ¤ì¤Ð¤¤¤¤¤Î¤Ç¤¹¡£¤³¤ì¤Ç¡¢¥µ¥¦¥ó¥É¤¬ÌĤë¤Ï¤º¤Ç¤¹¡£¢£Âç»ö¤ÊÏÃ
¤µ¤Æ¡¢¤³¤ì¤Ç¡¢ÌÜŪ¤Î¥µ¥¦¥ó¥É¤òÌĤ餹¤³¤È¤¬¤Ç¤¤ë¤è¤¦¤Ë¤Ê¤ê¤Þ¤·¤¿¡£¤¿¤À¤·¡¢¤³¤ì¤Ç½ª¤ï¤ê¤Ç¤Ï¤¢¤ê¤Þ¤»¤ó¡£Âç»ö¤Ê¤³¤È¤¬»Ä¤Ã¤Æ¤¤¤Þ¤¹¡£
Àè¤Û¤É¡¢¥Õ¥¡¥¤¥ë¤ò³«¤¯ºÝ¤Ë¡Ø¥á¥â¥ê¾å¤Ë³«¤¯¡Ù¤È¤¤¤¦É½¸½¤ò»È¤¤¤Þ¤·¤¿¡£¼Â¤Ï¡¢¥á¥â¥ê¾å¤Ë³«¤«¤ì¤¿¥Õ¥¡¥¤¥ë¤Î¾ðÊó¤ò¡¢¤Û¤Ã¤¿¤é¤«¤·¤Ë¤·¤Æ¤ª¤¯¤Î¤Ï¥¿¥Ö¡¼¤Ç¤¹¡£
¤³¤ì¤Ï¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤À¤±¤ÎÏäǤϤ¢¤ê¤Þ¤»¤ó¡£API¤Ê¤É¤Ç¥á¥â¥ê¾å¤ËŸ³«¤µ¤ì¤¿¥Ç¡¼¥¿¤Ï¡¢ºÇ¸å¤Ë¤Ïɬ¤º¡Ø²òÊü¡Ù¤·¤Ê¤±¤ì¤Ð¤¤¤±¤Þ¤»¤ó¡£¤³¤ì¤Ï°ìÂΤɤ¦¤¤¤¦¤³¤È¤Ç¤·¤ç¤¦¡£
¥¦¥£¥ó¥É¥¦¥º¤Ï¡¢ÍÍ¡¹¤Ê½èÍý¤ò¹Ô¤¦¤¿¤á¤Ë¥á¥â¥ê¤ò»È¤¤¤Þ¤¹¡£¤½¤·¤Æ¡¢
mciSendString¤Ê¤É¤ò»È¤Ã¤Æ¥á¥â¥ê¾å¤Ë¥Ç¡¼¥¿¤òŸ³«¤¹¤ë¤È¤¤¤¦¤³¤È¤Ï¡¢¤½¤ì¤À¤±¥¦¥£¥ó¥É¥¦¥º¤ÎÎÎÃϤò°µÇ÷¤¹¤ë¤³¤È¤ÈƱ¤¸¤Ç¤¹¡£¤Ç¤¹¤«¤é¡¢¥á¥â¥ê¾å¤ËŸ³«¤µ¤ì¤Æ¤¤¤ë¥Ç¡¼¥¿¤ò¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤¯¤È¡¢¥¦¥£¥ó¥É¥¦¥º¤Î¸ª¿È¤¬¤É¤ó¤É¤ó¶¹¤Þ¤Ã¤Æ¤¤¤¤Þ¤¹¡£¤½¤·¤ÆºÇ¸å¤Ë¤Ï¡¢É¬Íפʥá¥â¥êÎΰ褬¤ê¤Ê¤¯¤Ê¤Ã¤Æ¡¢¥Õ¥ê¡¼¥º¤·¤¿¤êÊÑ¤ÊÆ°ºî¤ò¤·¤¿¤ê¤¹¤ë¤è¤¦¤Ë¤Ê¤Ã¤Æ¤·¤Þ¤¦¤Î¤Ç¤¹¡£
API¤ò»È¤¦¤³¤È¤Î¶²¤µ¤È¤Ï¤³¤¦¤¤¤¦¤³¤È¤Ç¤¹¡£
MCI¤Ï¹âÅÙ¤Êʬ¤À¤±¡¢Æñ°×ÅÙ¤¬¹â¤¯°·¤¤¤¬Æñ¤·¤¤¤ÈºÇ½é¤Ë½ñ¤¤Þ¤·¤¿¤Í¡£¤½¤ì¤¬¤³¤¦¤¤¤¦¤³¤È¤Ê¤Î¤Ç¤¹¡£»È¤¤Êý¤ò¤Ò¤È¤Ä´Ö°ã¤¨¤ë¤È¡¢¥Ñ¥½¥³¥ó¤Ë¤È¤Ã¤ÆÃ×̿Ū¤Ê¥¨¥é¡¼¤¬È¯À¸¤¹¤ë²ÄǽÀ¤¬¤¢¤ë¤ï¤±¤Ç¤¹¡£
ºòº£¤Î¥Ñ¥½¥³¥ó¤Ç¤Ï¡¢¥á¥â¥ê¤¬¤¿¤¯¤µ¤óÀÑ¤Þ¤ì¤Æ¤¤¤ë¤Î¤Ç¡¢¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤ò¤Ò¤È¤Ä¤Õ¤¿¤Ä¤½¤Î¤Þ¤Þ¤Ë¤·¤Æ¤ª¤¤¤Æ¤â¡¢¥Õ¥ê¡¼¥º¤·¤Æ¤·¤Þ¤¦¤È¤¤¤¦¤³¤È¤Ï¹Í¤¨¤Ë¤¯¤¤¤Ç¤¹¡£¤·¤«¤·¡¢¤³¤¦¤¤¤Ã¤¿»ö¾ð¤Ï¥×¥í¥°¥é¥Þ¡¼¤È¤·¤ÆÇ§¼±¤·¤Æ¤ª¤«¤Ê¤¯¤Æ¤Ï¤¤¤±¤Þ¤»¤ó¡£
¥¥Á¥ó¤È³«¤¤¤¿¥Õ¥¡¥¤¥ë¤ÏÊĤ¸¤ë¡¢¥á¥â¥ê¤ò²òÊü¤·¤Æ¤¤ì¤¤¤Ê¾õÂ֤ˤ·¤Æ¤ª¤¯¡¢¤³¤ì¤ò˺¤ì¤º¤Ë¤ä¤ê¤Þ¤·¤ç¤¦¡£
Call mciSendString("close Chime", vbNullString, 0, 0)
¤³¤Î¤è¤¦¤Ë¡¢¡Ø
close¡Ù¤È¤¤¤¦Ì¿Îáʸ»úÎó¤òÅϤ·¤ÆmciSendString¤ò¸Æ¤Ó½Ð¤»¤Ð¡¢¥Õ¥¡¥¤¥ë¤¬¥¯¥í¡¼¥º¤µ¤ì¤Æ¥á¥â¥ê¤¬²òÊü¤µ¤ì¤Þ¤¹¡£Ëº¤ì¤º¤Ë¤ä¤ëÊʤò¤Ä¤±¤Æ¤ª¤¤Þ¤·¤ç¤¦¡£ºÇ¸å¤Ë
mciSendString¤ò»ÈÍѤ·¤¿Îã¤È¤·¤Æ¡¢¥µ¥ó¥×¥ë¥³¡¼¥É¤òºÜ¤»¤Æ¤ª¤¤Þ¤¹¡£'mciSendString ¤ÎÀë¸ÀDeclare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" _
(ByVal lpstrCommand As String, _
ByVal lpstrReturnString As String, _
ByVal uReturnLength As Long, _
ByVal hwndCallback As Long) As Long
'--------------------------------------------------------------------Sub MCI_Test()
Dim P As String
'¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹¤ò³ÊǼ¤¹¤ë¤¿¤á¤ÎÊÑ¿ô'¥Ö¥Ã¥¯¤ÈƱ¤¸¾ì½ê¤Ë¤¢¤ë¥ª¡¼¥Ç¥£¥ª¥Õ¥¡¥¤¥ë¤Î¥Ñ¥¹¤ò¼èÆÀ¤¹¤ëÎãP = """" & ActiveWorkbook.Path & "\sample.wav"
'¥Õ¥¡¥¤¥ë¤ò¡Øsample¡Ù¤È¤¤¤¦¥¨¥¤¥ê¥¢¥¹¤Ç³«¤¯Call mciSendString("open " & P & " alias sample", vbNullString, 0, 0)
'ºÆÀ¸¤¹¤ëCall mciSendString("play sample", vbNullString, 0, 0)
'¥Õ¥¡¥¤¥ë¤ò¥¯¥í¡¼¥º¤¹¤ëCall mciSendString("close sample", vbNullString, 0, 0)
End Sub
¡Ø³«¤¯¡Ù¢Í¡ØºÆÀ¸¤¹¤ë¡Ù¢Í¡ØÊĤ¸¤ë¡Ù¤È¤¤¤¦°ìÏ¢¤Îή¤ì¤ò¤è¤¯³Îǧ¤·¤Æ¤ß¤Æ¤¯¤À¤µ¤¤¡£¤Þ¤¿¡¢Ê̴ۤˤƥµ¥ó¥×¥ë¤âÍѰդ·¤Æ¤¤¤Þ¤¹¡£²¼¤Î¥ê¥ó¥¯¤«¤é¥À¥¦¥ó¥í¡¼¥É¤Ç¤¤Þ¤¹¤Î¤Ç¡¢¤è¤«¤Ã¤¿¤é»²¹Í¤Ë¤·¤Æ¤¯¤À¤µ¤¤¡£
¥µ¥ó¥×¥ë¥À¥¦¥ó¥í¡¼¥É¡¡¢Í¡¡¥³¥Á¥é¤è¤ê¥À¥¦¥ó¥í¡¼¥É¤Ç¤¤Þ¤¹¡£¡ÊÊÌ´Û¡Ë
¢£³Ê¸À
MCI¤ò»È¤¨¤Ð¹âÅ٤ʥµ¥¦¥ó¥É½èÍý¤¬²Äǽ
¹âµ¡Ç½¤Êʬ°·¤¤¤¬Æñ¤·¤¤
³«¤¤¤¿¥Õ¥¡¥¤¥ë¤Ï¥¯¥í¡¼¥º¤¹¤ë
¤Á¤ç¤Ã¤ÈÆñ¤·¤¤ÏÃÂê¤Ç¤·¤¿¤¬¡¢Âç¾æÉפǤ·¤ç¤¦¤«¡£





