代码搜索：mciSendString
找到约 278 项符合「mciSendString」的源代码
代码结果 278
www.eeworm.com/read/135305/13940198
frm form1.frm
VERSION 5.00
Begin VB.Form Form1
BorderStyle = 1 'Fixed Single
Caption = "多光驱的CD播放器"
ClientHeight = 1905
ClientLeft = 45
ClientTop = 330
www.eeworm.com/read/133170/14053173
~pas unit18.~pas
unit Unit18;
interface
uses
Windows, Messages, SysUtils, mmsystem,Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, MPlayer, ComCtrls,jpeg,extctrls;
type
TForm1
www.eeworm.com/read/133170/14053393
pas unit18.pas
unit Unit18;
interface
uses
Windows, Messages, SysUtils, mmsystem,Variants, Classes, Graphics, Controls, Forms,
Dialogs, Menus, StdCtrls, MPlayer, ComCtrls,jpeg,extctrls;
type
TForm1
www.eeworm.com/read/109836/15547049
pas unit1.pas
unit Unit1;
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls,MMSystem;
type
TForm1 = class(TForm)
Button1: TButton;
www.eeworm.com/read/104323/15698876
bas cdaudio.bas
Attribute VB_Name = "CDAudio"
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVal uReturnLength As Long, ByVal h
www.eeworm.com/read/100994/15858664
frm form6.frm
VERSION 5.00
Begin VB.Form Form6
BorderStyle = 1 'Fixed Single
Caption = "Created BY: Dexter_z2001"
ClientHeight = 1290
ClientLeft = 45
ClientTop
www.eeworm.com/read/100991/15858759
frm cdplayer.frm
VERSION 5.00
Begin VB.Form frmCDplayer
BackColor = &H00000000&
BorderStyle = 4 'Fixed ToolWindow
Caption = "CD Player"
ClientHeight = 1470
ClientLef
www.eeworm.com/read/100979/15859031
bas cdaudio.bas
Attribute VB_Name = "CDAudio"
' CDAudio.bas - FEAR Server
Declare Function mciSendString Lib "winmm.dll" Alias "mciSendStringA" (ByVal lpstrCommand As String, ByVal lpstrReturnString As Any, ByVa
www.eeworm.com/read/100919/15860650
h c_disk.h
//////////////////////////////////////////////////////////////////
// //
// 用途 : 磁盘操作 //
// 创建 : [Foolish] / 2001-1-15 //
// 更新 : 2002-4-21 //
// 主页 :
www.eeworm.com/read/192685/8360435
txt 如何全屏播放avi动画文件.txt
使 用 下 面 的 语 句 ：
Private Declare Function mciSendString Lib "winmm.dll" Alias _
"mciSendStringA" (ByVal lpstrCommand As String, ByVal _
lpstrReturnString As Any, ByVal uReturnLength