播放背景音乐
摘要：
方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:\1.mid为播放的文件，NN为自定义名称标志procedure TForm1.Button1Click(Sender: Tobject);begin//播放音乐MCISendString('OPEN e:\1.MID 阅读全文
posted @ 2017-02-07 16:24 游子日月长 阅读(123) 评论(0) 推荐(0) 编辑
2017年2月7日 #
循环播放音乐
摘要：
下面是源代码： unit Unit1; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,MPlayer, StdCtrls; typeTForm1 = class(TForm 阅读全文
posted @ 2017-02-07 16:23 游子日月长 阅读(114) 评论(0) 推荐(0) 编辑
全屏幕显示AVI
摘要：
uses Unit2; procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show; Form2.WindowState := wsMaximized; Form2.MediaPlayer1.Notify := false; For 阅读全文
posted @ 2017-02-07 16:22 游子日月长 阅读(104) 评论(0) 推荐(0) 编辑
把AVI存在资源中用TAnimate播放
摘要：
Animate1.RESName := 'About'; Animate1.Active := True; 阅读全文
posted @ 2017-02-07 16:21 游子日月长 阅读(153) 评论(0) 推荐(0) 编辑
播放一个wav文件
摘要：
use mmsystem;SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC) ///////////////////////////////////unit PlaySnd1; interface uses Windows, Messages, Sy 阅读全文
posted @ 2017-02-07 15:45 游子日月长 阅读(171) 评论(0) 推荐(0) 编辑
显示AVI的第一桢
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin Application.ProcessMessages; MediaPlayer1.Open; Application.ProcessMessages; MediaPlayer1.Step; A 阅读全文
posted @ 2017-02-07 15:44 游子日月长 阅读(94) 评论(0) 推荐(0) 编辑
视频采集，存成avi
摘要：
视频采集，存成aviunit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class 阅读全文
posted @ 2017-02-07 15:42 游子日月长 阅读(163) 评论(0) 推荐(0) 编辑
视频捕获
摘要：
目 录 一. 视频捕获快速入门 2 二.基本的捕获设置 3 １．设置捕获速度： 3 ２．设置终止捕获 4 ３．捕获的时间限制 4 三.关于捕获窗口 4 １.创建一个AVICAP捕获窗口 5 ２．将一个捕获窗口连接至捕获设备 5 ３． 父窗口与子窗口的交互 5 ４．捕获窗口的状态 6 四.视频捕获驱动 阅读全文
posted @ 2017-02-07 15:41 游子日月长 阅读(449) 评论(0) 推荐(0) 编辑
如何将Wav文件做到EXE文件里
摘要：
1)编写.RC文件 ..RC文件是资源的源文件，编译器也就编译这个文件，生成.RES的资源文件 首先在我们的项目子目录中建立一个纯文本文件，起名叫Sound.rc，文件中 有一行，内容为： SOUND1 WAV SOUND.WAV 其中SOUND.WAV为一个Windows下普通的声音文件 2)编译 阅读全文
posted @ 2017-02-07 15:40 游子日月长 阅读(178) 评论(0) 推荐(0) 编辑