MMSystem

一般的数据库管理系统 uses Classes, SConnectEx, TltConst, ExtCtrls, MMSystem, Types, windows, TltLogic , Sy

一般的数据库管理系统 uses Classes, SConnectEx, TltConst, ExtCtrls, MMSystem, Types, windows, TltLogic , SysUtils

标签： SConnectEx ExtCtrls MMSystem TltConst

上传时间： 2013-12-25

上传用户：zhangyigenius
用Delphi的人对TMediaPlayer组件比较熟悉

用Delphi的人对TMediaPlayer组件比较熟悉，它是一个相当出色的多用途的多媒体组件，但是美中不足的是：如果CDROM光驱的仓门打开就不能自动关闭。而且不幸的是，TMediaPlayer的方法和属性中没有解决这个问题的办法，所以我们不得不求助于Windows API，具体一些就是使用MMSystem.pas文件，另外一件需要注意的事是：我们可以单独调用Windows API函数，但是TMediaPlayer做了一些内部处理，所以我们就不必担心我们是否使用了组件。所以本例中使用了TMediaPlayer。

标签： TMediaPlayer Delphi 比较

上传时间： 2015-09-16

上传用户：sammi
unit Video interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, stdctrl

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

标签： interface Messages Graphics Controls

上传时间： 2013-12-21

上传用户：heart520beat