Location:
Search - MMSystem
Search list
Description: 本程序在Windows XP、Visual C++6.0版本环境下编译通过。需要rtcdll.dll文件（此文件一般在Windows安装目录下的system32文件夹中）。
另外，MMSYSTEM.H头文件一般在“C:\\Program Files\\Microsoft Visual Studio\\VC98 \\Include”目录下
运行程序需要摄像头和麦克风等设备。
-this program in Windows XP, Visual C Version 6.0 environment compile. Need rtcdll.dll document (document in the general Windows installation directory under the system32 folder). In addition, the first document MMSYSTEM.H generally "C : \\ Program Files \\ Microsoft Visual Studio \\ VC98 \\ Include" directory operational procedures need cameras and microphones and other devices.
Platform: |
Size: 250988 |
Author: 王晨阳 |
Hits:
Description: basic implementation of Mic
用mmsystem类记录麦克风的声音-basic implementation of Mic mmsystem category with the voice recording microphone
Platform: |
Size: 133783 |
Author: 张磊 |
Hits:
Description: 这是一个用MCI API(MMSYSTEM.DLL)编写的WIDOWS视频播放器，可以播放MPEG,AVI等格式文件，但是要先确定计算机有MPegDecoder以支持MPEG！
-with MCI API (MMSYSTEM.DLL) prepared by the WIDOWS video player that can play MPEG, AVI file format, but should determine if the computer had MPegDecoder to support MPEG!
Platform: |
Size: 6165 |
Author: 马骏 |
Hits:
Description: 用Delphi的人对TMediaPlayer组件比较熟悉，它是一个相当出色的多用途的多媒体组件，但是美中不足的是：如果CDROM光驱的仓门打开就不能自动关闭。而且不幸的是，TMediaPlayer的方法和属性中没有解决这个问题的办法，所以我们不得不求助于Windows API，具体一些就是使用MMSystem.pas文件，另外一件需要注意的事是：我们可以单独调用Windows API函数，但是TMediaPlayer做了一些内部处理，所以我们就不必担心我们是否使用了组件。所以本例中使用了TMediaPlayer。-with Delphi TMediaPlayer the right components are more familiar with, It is a fairly remarkable versatility of the multimedia components, but the fly in the ointment is : If CDROM drive on the open Cangmen not shut down automatically. But unfortunately, TMediaPlayer methods and properties not solved the problem, Therefore, we have to seek help from the Windows API, is the use of specific MMSystem.pas documents, the other one thing to consider is : We can separate calling Windows API function, But TMediaPlayer done some internal processing, Therefore, we would not have to worry about whether we use the component. Therefore, the cases used TMediaPlayer.
Platform: |
Size: 3654 |
Author: 贾磊 |
Hits:
Description: 用MCI API(MMSYSTEM.DLL)编写的WIDOWS视频播放器!-with MCI API (MMSYSTEM.DLL) WIDOWS prepared by the Video Player!
Platform: |
Size: 7218 |
Author: 梁福田 |
Hits:
Description: unit Video
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls,
ExtCtrls, avicap, mmsystem, dsgnintf
// Types for event-procedures
type
TCapStatusProc = procedure(Sender: TObject) of object
TCapStatusCallback = procedure(Sender: TObject nID: integer status: string)
of object
TVideoStream = procedure(sender: TObject lpVhdr: PVIDEOHDR) of object
TAudioStream = procedure(sender: TObject lpWHdr: PWAVEHDR) of object
// Property Editor for driver selection
type
TDrivereditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes override
procedure GetValues(Proc: TGetStrProc) override
function GetValue: string override
procedure SetValue(const Value: string) override
end
Platform: |
Size: 54675 |
Author: 123456 |
Hits:
Description: 调试环境以及需要安装的软件和硬件
本程序在Windows XP、Visual C++6.0版本环境下编译通过。需要rtcdll.dll文件（此文件一般在Windows安装目录下的system32文件夹中）。
另外，MMSYSTEM.H头文件一般在“C:\\Program Files\\Microsoft Visual Studio\\VC98 \\Include”目录下（请读者按照自己安装VC++的目录查找）。如果不是完全安装VC++，可能没有这个文件，可在本章源代码光盘中找到该文件。
运行程序需要摄像头和麦克风等设备。
Platform: |
Size: 249901 |
Author: 袁洲 |
Hits:
Description: WaveForm接口-WaveForm Interface
Platform: |
Size: 27655 |
Author: 邓小平 |
Hits:
Description: 用MCI API(MMSYSTEM.DLL)编写的WIDOWS视频播放器!-with MCI API (MMSYSTEM.DLL) WIDOWS prepared by the Video Player!
Platform: |
Size: 7168 |
Author: 梁福田 |
Hits:
Description: WaveForm接口-WaveForm Interface
Platform: |
Size: 27648 |
Author: 邓小平 |
Hits:
Description: windows下多媒体定时器编程,时间分辨率可以达到1ms,开发平台delphi-windows multimedia timer programming, time resolution can be achieved 1ms, development platforms delphi
Platform: |
Size: 3072 |
Author: 海明 |
Hits:
Description: 本程序在Windows XP、Visual C++6.0版本环境下编译通过。需要rtcdll.dll文件（此文件一般在Windows安装目录下的system32文件夹中）。
另外，MMSYSTEM.H头文件一般在“C:\Program Files\Microsoft Visual Studio\VC98 \Include”目录下
运行程序需要摄像头和麦克风等设备。
-this program in Windows XP, Visual C Version 6.0 environment compile. Need rtcdll.dll document (document in the general Windows installation directory under the system32 folder). In addition, the first document MMSYSTEM.H generally "C : \ Program Files \ Microsoft Visual Studio \ VC98 \ Include" directory operational procedures need cameras and microphones and other devices.
Platform: |
Size: 5869568 |
Author: 王晨阳 |
Hits:
Description: 这是一个用MCI API(MMSYSTEM.DLL)编写的WIDOWS视频播放器，可以播放MPEG,AVI等格式文件，但是要先确定计算机有MPegDecoder以支持MPEG！
-with MCI API (MMSYSTEM.DLL) prepared by the WIDOWS video player that can play MPEG, AVI file format, but should determine if the computer had MPegDecoder to support MPEG!
Platform: |
Size: 6144 |
Author: 马骏 |
Hits:
Description: unit Video
interface
uses
Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls,
ExtCtrls, avicap, mmsystem, dsgnintf
// Types for event-procedures
type
TCapStatusProc = procedure(Sender: TObject) of object
TCapStatusCallback = procedure(Sender: TObject nID: integer status: string)
of object
TVideoStream = procedure(sender: TObject lpVhdr: PVIDEOHDR) of object
TAudioStream = procedure(sender: TObject lpWHdr: PWAVEHDR) of object
// Property Editor for driver selection
type
TDrivereditor = class(TPropertyEditor)
function GetAttributes: TPropertyAttributes override
procedure GetValues(Proc: TGetStrProc) override
function GetValue: string override
procedure SetValue(const Value: string) override
end -unit Video interfaceuses Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrls, ExtCtrls, avicap, mmsystem, dsgnintf// Types for event-procedurestype TCapStatusProc = procedure (Sender: TObject) of object TCapStatusCallback = procedure (Sender: TObject nID: integer status: string) of object TVideoStream = procedure (sender: TObject lpVhdr: PVIDEOHDR) of object TAudioStream = procedure (sender: TObject lpWHdr: PWAVEHDR) of object// Property Editor for driver selectiontype TDrivereditor = class (TPropertyEditor) function GetAttributes: TPropertyAttributes override procedure GetValues (Proc: TGetStrProc) override function GetValue: string override procedure SetValue (const Value: string) override end
Platform: |
Size: 54272 |
Author: 123456 |
Hits:
Description: 调试环境以及需要安装的软件和硬件
本程序在Windows XP、Visual C++6.0版本环境下编译通过。需要rtcdll.dll文件（此文件一般在Windows安装目录下的system32文件夹中）。
另外，MMSYSTEM.H头文件一般在“C:\Program Files\Microsoft Visual Studio\VC98 \Include”目录下（请读者按照自己安装VC++的目录查找）。如果不是完全安装VC++，可能没有这个文件，可在本章源代码光盘中找到该文件。
运行程序需要摄像头和麦克风等设备。-Debugging environment and the need to install the software and hardware of this procedure in Windows XP, Visual C++ 6.0 version of the compiler through the environment. Need Rtcdll.dll file (this file is normally installed in the Windows directory under the system32 folder). In addition, MMSYSTEM.H header file is normally C: Program FilesMicrosoft Visual StudioVC98 Include directory (please readers installed according to its own VC++ Directory to find). If it is not completely installed VC++, May not have this document, the source code in this chapter can be found in the paper disc. Need to run the program, such as camera and microphone equipment.
Platform: |
Size: 249856 |
Author: 袁洲 |
Hits:
Description: 一般的数据库管理系统
uses Classes, SConnectEx, TltConst, ExtCtrls, MMSystem, Types, windows, TltLogic
, SysUtils -General database management system
uses Classes, SConnectEx, TltConst, ExtCtrls, MMSystem, Types, windows, TltLogic
, SysUtils
Platform: |
Size: 1741824 |
Author: tanshikao |
Hits:
Description: Windows multimedia system mmsystem.pas help
Platform: |
Size: 336896 |
Author: nasud |
Hits:
Description: unit Unit1
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls
type
TForm1 = class(TForm)
Button1: TButton
Edit1: TEdit
Button2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R *.dfm}
uses Registry, MMSystem, DDEMAN, ClipBRD
procedure TForm1.Button1Click(Sender: TObject)
var
SerialNum:Dword
a,b: Dword
Buffer: array [0..255] of char
Num:string
begin
GetVolumeInformation( C:\ , nil,0,@SerialNum,a,b,nil,0)
Num:=IntToHex(HiWord(serialNum),4)+ -- + IntToHex(LoWord(SerialNum),4)
Edit1.text:=(Num)
end
procedure TForm1.Button2Click(Sender: TObject)
Var
buffer:array [0..255] of char
buffsize:Dword
begin
buffsize:=sizeOf(Buffer)
GetUSERNAME(@buffer,buffsize)
ShowMessage(buffer)
end
end.
-unit Unit1
interface
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, StdCtrls
type
TForm1 = class(TForm)
Button1: TButton
Edit1: TEdit
Button2: TButton
procedure Button1Click(Sender: TObject)
procedure Button2Click(Sender: TObject)
private
{ Private declarations }
public
{ Public declarations }
end
var
Form1: TForm1
implementation
{$R*.dfm}
uses Registry, MMSystem, DDEMAN, ClipBRD
procedure TForm1.Button1Click(Sender: TObject)
var
SerialNum:Dword
a,b: Dword
Buffer: array [0..255] of char
Num:string
begin
GetVolumeInformation( C:\ , nil,0,@SerialNum,a,b,nil,0)
Num:=IntToHex(HiWord(serialNum),4)+--+ IntToHex(LoWord(SerialNum),4)
Edit1.text:=(Num)
end
procedure TForm1.Button2Click(Sender: TObject)
Var
buffer:array [0..255] of char
buffsize:Dword
begin
buffsize:=sizeOf(Buffer)
GetUSERNAME(@buffer,buffsize)
ShowMessage(buffer)
end
end.
Platform: |
Size: 219136 |
Author: delphi |
Hits:
Description: 用游戏手柄向串口发送数据，可以实现串口收发。对游戏手柄的控制用到了mmsystem.h。-Using the game controller to send data to the serial port, serial port transceiver can be achieved. Joystick control on the use of the mmsystem.h.
Platform: |
Size: 6272000 |
Author: Chen Yejin |
Hits:
Description: 一个播放器的小程序~用MCI API(MMSYSTEM.DLL)编写的WIDOWS视频播放器，非原创 呵呵~-A player applet ~ with MCI API (MMSYSTEM.DLL) prepared WIDOWS video player, non-original Ha ha ~
Platform: |
Size: 6144 |
Author: sprite |
Hits: