利用TMediaPlayer控件的Mode属性就能够判断播放完毕时Mode属性的值为mpStoppedif MediaPlayer1.Mode=mpStopped thenbeginButtonGetnew.Click;end;

unit UnitVolumeWin7;interfaceuses messages, Windows, Forms;/// <summary>/// 增大音量/// </summary>procedure VolumeUp;/// <summary>/// 减小音量/// </summary>...

 Delphi PlaySound(0, 0, 0); 停止播放

delphitop.com 提示 本示例演示了TMediaPlayer组件的用法，假设表单上存在两个“打开”和“停止”按钮。注意：为了能够手动控制按钮，必须将“自动播放”设置为“false”。procedure TForm2.btO...

  uses System.Win.ComObj;varPlayer: olevariant;    Player := CreateOleObject('wmplayer.ocx.7');    Player.url := olevariant(UTF8Decode('123.mp3'));  &...

开发环境：Delphi 10.3.1 社区版。测试环境：A. Android 5.0;B. Android 9.01. 进度条Delphi 官方带的例子里面，关于进度条的代码：procedure TForm1.Timer1Timer(Sender: TObject);begin ...

【Delphi】从内存（MemoryStream）使用WMP（WindowsMediaPlayer）控件播放视频音频(Play Video with WMP from MemoryStream)关键字: MemoryStream、WMP、WindowsMediaPlayer、Play 、Load、 Del...

Delphi 实现简易语音发音（基于TTS方式）uses Comobj;procedure TForm1.Button1Click(Sender: TObject); var voice: OLEVariant; begin voice := CreateOLEObject('SAPI.Sp...

delphi 播放声音 采用 异步方式，比较流畅//声明:sndPlaySound(  lpszSoundName: PChar; {声音文件}  uFlags: UINT{播放选项}): BOOL;//uFlags 参数可选值:SND_SYNC = 0; {同步播放, ...

function   PlaySound(pszSound:   PChar;   hmod:   HMODULE;   fdwSound:DWORD):BOOL;stdcall;   其中的fdwSound为播放方式，...

DELPHI写的播放器核心代码，播放MP3无压力主窗口代码：unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialo...

unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls, MPlayer;typeTWavHeader ...

//播放.MP3文件:  uses  mmsystem; //開始播放: procedure TForm1.Button1Click(Sender: TObject); beginMCISendString('OPEN e:
.mp3 TYPE mpegvideo alias ww'...

我的办法，增加一个timer 设置间隔100ms，通过timer的使能否，控制报警声音开关procedure TForm1.Timer1Timer(Sender: TObject);begin   Windows.Beep(1200+i_f,10+i_f);   ...

1. DSPack 2.3.4 安装一. 下载由于sourceforge最近不能访问，所以可以去 http://www.progdigy.com/ 下载。下载 http://www.progdigy.com/files/DSPACK234.zip 后，解压缩到一个目录（我用的是C:...

单个进程的音量控制是从Vista系统中才开始支持的，所以此函数需要在Vista及以上的系统中使用。XP下面使用这个函数会导致系统全局静音。所以在XP下要使进程静音要使用Hook技术.Delphi XE&nb...

procedure TForm1.Button1Click(Sender: TObject);begin//播放音乐 MCISendString(OPEN e:
.MID type SEQUENCER ALIAS NN, , 0, 0); MCISendString(PLAY NN FROM 0, , 0, 0); MCISendString(CL...

//使用窗口接受音频设备发出的消息:unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm)...

 关于如何屏蔽Flash控件的右键菜单的问题有很多人问过，也有很多人回答，基本上都是说拦截 Application消息，或者继承一个新的控件，重载MouseDown消息，第一种解决办法，好象是简单 些，...

感谢“温柔刀客”的努力，找到一篇不错的Flash编程文章，也感谢文章的作者，解决了我一个困惑了很久的问题，呵呵~~~unit uFlash;interfaceuseswindows, SysUtils, Classes, Zlib;typeTBitWidth ...

声音文件为wav格式第一步:用记事本建立一个rc文件.例如:my.rc,内容如下:sound wave music.wav 其中sound为资源名称，是以后使用时要调用到的名称，wave为资源类型，music.wav为一个已存在的wav...

procedure TForm1.Button1Click(Sender: TObject);varBitmap : TBitmap;ImageRect : TRect;ImageWidth : Integer;ImageHeight : Integer;Position : Integer;i : Integer;beginif OpenDialog1.E...

delphi使用MCISendString播放背景音樂播放文件為.MID文件: 在單元接口引用 mmsystem 單元. //播放音乐 MCISendString('OPEN e:
.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY...

语音聊天在今天是一个很普通的话题，小厮写了一段音频采集、网络传输和播放的程序，实现和简单的语音聊天，但是语音信息没有经过很好的压缩，所以，在局域网外，由于网速问题，效果可能不会很理...

unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button...

unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls, MPlayer;typeTForm1 = class(TForm)Button1: TButton;MediaPlayer1:...

unit mp3_id3v1; interface uses Windows,Classes,SysUtils; type TID3v1Rec = packed record Tag : array[0..2] of Char; Title : array[0..29] of Char; Artist : array[0..29] of Char; Albu...

uses DirectSound,Direct3D9,D3DX9;//DirectX截屏函数procedure CaptureScreen(Const FileName: string);varBitsPerPixel: Byte;pD3D: IDirect3D9;pSurface: IDirect3DSurface9;g_pD3DDevice: I...