摘要：当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency 阅读全文

摘要：var Minute : byte; with MyMediaPlayer do case TimeFormat of tfHMS : Minutes := MCI_HMS_Minute(Length); tfMSF : Minutes := MCI_MSF_Minute(Length); {etc 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject);begin MediaPlayer1.TimeFormat := tfFrames; ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Le 阅读全文

摘要：uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject);var Trk : Word; Min : Word; Sec : Word;begin with MediaPlayer1 do begin Trk := MCI_TMSF_T 阅读全文

摘要：方法如下：首先需要在uses部分加入mmsystem，接着写入下列语句，其中e:\1.mid为播放的文件，NN为自定义名称标志procedure TForm1.Button1Click(Sender: Tobject);begin//播放音乐MCISendString('OPEN e:\1.MID 阅读全文

摘要：下面是源代码： unit Unit1; interface usesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,MPlayer, StdCtrls; typeTForm1 = class(TForm 阅读全文

摘要：uses Unit2; procedure TForm1.Button1Click(Sender: TObject);begin Form2.Show; Form2.WindowState := wsMaximized; Form2.MediaPlayer1.Notify := false; For 阅读全文

摘要：Animate1.RESName := 'About'; Animate1.Active := True; 阅读全文

摘要：use mmsystem;SndPlaySound('hello.wav',SND_FILENAME or SND_SYNC) ///////////////////////////////////unit PlaySnd1; interface uses Windows, Messages, Sy 阅读全文

摘要：procedure TForm1.Button1Click(Sender: TObject);begin Application.ProcessMessages; MediaPlayer1.Open; Application.ProcessMessages; MediaPlayer1.Step; A 阅读全文

摘要：视频采集，存成aviunit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class 阅读全文

摘要：目 录 一. 视频捕获快速入门 2 二.基本的捕获设置 3 １．设置捕获速度： 3 ２．设置终止捕获 4 ３．捕获的时间限制 4 三.关于捕获窗口 4 １.创建一个AVICAP捕获窗口 5 ２．将一个捕获窗口连接至捕获设备 5 ３． 父窗口与子窗口的交互 5 ４．捕获窗口的状态 6 四.视频捕获驱动 阅读全文

摘要：1)编写.RC文件 ..RC文件是资源的源文件，编译器也就编译这个文件，生成.RES的资源文件 首先在我们的项目子目录中建立一个纯文本文件，起名叫Sound.rc，文件中 有一行，内容为： SOUND1 WAV SOUND.WAV 其中SOUND.WAV为一个Windows下普通的声音文件 2)编译 阅读全文

摘要：单纯的图形整体拉出效果比较简单,动态地改变图形区域的大小就可以实现,但事先应将图形的“Stretch”设置为“True”。 举例说明下拉效果: 1.在表单上放置一图片,高度为200,属性“Height”设为0,“Stretch”设置为True。添加“Timer”构件, “Interval”设为200 阅读全文

摘要：unit Bmp-Disaper;interfaceusesSysUtils,WinTypes,WinProcs,Messages,Classes,Graphics,Controls,Forms,Dialogs,ExtCtrls,StdCtrls;typeTForm1=class(TForm)I 阅读全文

摘要：界面色彩渐变效果是通过用渐变的画刷刷绘依次相邻的矩形块实现的。下面列举实例说明: 1.新建一个表单,假设其Width为500,设置一个按钮Button1,按此按钮将把表单置为由左向右由黄变白的渐变效果。 2.Button1按钮的代码如下: procedure TForm1.Button1Click( 阅读全文

摘要：想不想另图片有另一番效果，使用下列语句实现吧，增加两个Timage图片框，分别为Image1、Image2，用Image1引入一张图片，按下按钮就可以在Image2上出现惊人的效果procedure TForm1.Button1Click(Sender: Tobject);beginImage2.C 阅读全文

摘要：function RgbToGray(RGBColor : TColor) : TColor;var Gray : byte;begin Gray := Round((0.30 * GetRValue(RGBColor)) + (0.59 * GetGValue(RGBColor)) + (0.11 阅读全文

摘要：uses Registry; procedure TForm1.Button1Click(Sender: TObject);var reg: TRegistry; b : bool;begin CopyFile('C:\DOWNLOAD\FP000100.TTF', 'C:\WINDOWS\FONT 阅读全文

摘要：BOOL GetTextExtentPoint32( HDC hdc, // handle of device context LPCTSTR lpString, // address of text string int cbString, // number of characters in s 阅读全文