代码搜索:mciSendString
找到约 278 项符合「mciSendString」的源代码
代码结果 278
www.eeworm.com/read/151211/12227432
txt 43.txt
控制光驱门的开关
利用MCI的方法可以方便的实现光驱门的开关。
请看下例:
>>步骤1----建立新工程,在窗体上放置一个CommandButton按钮.设置其Caption = "打开"
>>步骤2----编写如下代码:
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSen
www.eeworm.com/read/151211/12228184
txt 63(1).txt
用API播放 .wav 声音文件
利用多媒体的 mciSendString API 函数, 再搭配 mci(multimedia control
interface) 指令, 即可播放 .wav 声音文件, 细节如下:
1. API 的声明:
Private Declare Function mciSendString Lib "winmm.dll" Alias "
mciSend
www.eeworm.com/read/151211/12228238
txt 94.txt
在VB中用API实现多媒体
作者:秦嘉
在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。
以下为调用API的声明(这些代码放在程序的声明部分中):
1.′播放CD和AVI所需要的声明。
Declare Function mciSendString Lib ″MMSYSTEM″(ByVal
lpstrCommand as String,
www.eeworm.com/read/151211/12228250
txt 20(1).txt
播放 AVI
声明:
Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As String, ByVal uReturnLength _
As Long, ByVal hwndCa
www.eeworm.com/read/151211/12228324
txt 64(1).txt
用MCI指令进行多媒体编程
我们有时会希望为自己的程序增加音效,例如警告声等,这就需要播放WAV文件。较简单的做法,我们可以使用多媒体控件(VB和Delphi都提供了MCI控件)来完成,但这样做无疑会增加系统负担和使程序体积增大(使用OCX的话尤其明显)。如果我们的程序并非一个多媒体程序而仅仅是用来播放音效的话,就更不划算了。有没有更理想的方法呢?答案是肯定的,Windows ...
www.eeworm.com/read/151211/12229786
txt 76.txt
在VB中用API实现多媒体
秦嘉
在VB中用API实现多媒体主要是调用Windows的mmsystem.dll库。以下为调用API的声明(这些代码放在程序的声明部分中):
1. '播放CD和AVI所需要的声明。
Declare Function mciSendString Lib "MMSYSTEM"(ByVal lpstrCommand _
as
www.eeworm.com/read/151211/12229867
txt 26.txt
打开/关闭光驱门
声明
Private Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uReturnLength As Long, ByVal hwndC
www.eeworm.com/read/149542/12366121
frm bgsound.frm
VERSION 5.00
Begin VB.Form Form1
Caption = "播放MIDI"
ClientHeight = 4425
ClientLeft = 1140
ClientTop = 1545
ClientWidth = 5535
LinkTopic
www.eeworm.com/read/126912/14395813
bas userfunction.bas
Attribute VB_Name = "mduUserFunction"
Public Function PlayMidiFile(ByVal FileName As String, Optional ByVal Alias As String = "MyMid") As Boolean
Dim nRet As Long
Dim S As String, ShortPath
www.eeworm.com/read/123326/14637342
bas pf.bas
Attribute VB_Name = "pf"
Option Explicit
Public Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As String, ByVal uRetur