注册COM
摘要：
可以用代码在程序中实现COM的注册. 举例如下: (假设需要注册的文件为test.ocx)uses OLEctl,....varOCXHand: THandle;RegFunc: TDllRegisterServer;beginOCXHand:= LoadLibrary('c:\windows\sy 阅读全文
posted @ 2017-02-07 16:55 游子日月长 阅读(297) 评论(0) 推荐(0) 编辑
2017年2月7日 #
文件和Variant的转换
摘要：
function FileToVariant(FileName: String): OleVariant; var AStream: TFileStream; MyBuffer: Pointer; begin AStream:=TFileStream.create(FileName,fmOpenRe 阅读全文
posted @ 2017-02-07 16:54 游子日月长 阅读(169) 评论(0) 推荐(0) 编辑
流和Variant的转换
摘要：
procedure TForm2.VariantToStream (const v : olevariant; Stream : TMemoryStream); var p : pointer; begin Stream.Position := 0; Stream.Size := VarArrayH 阅读全文
posted @ 2017-02-07 16:53 游子日月长 阅读(159) 评论(0) 推荐(0) 编辑
bmp和Variant的转换
摘要：
procedure TForm2.VariantToBMP(aValue : OleVariant;var aBmp:TBitmap); var Stream : TMemoryStream; begin try Stream := TMemoryStream.Create; VariantToSt 阅读全文
posted @ 2017-02-07 16:52 游子日月长 阅读(173) 评论(0) 推荐(0) 编辑
JPEG和Variant的转换
摘要：
unit Unit1; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,jpeg, ExtCtrls, StdCtrls,ActiveX, AxCtrls; type TF 阅读全文
posted @ 2017-02-07 16:52 游子日月长 阅读(141) 评论(0) 推荐(0) 编辑
获得Variant类型
摘要：
function GetVariantType(const v: variant): string; begin case TVarData(v).vType of varEmpty: result := 'Empty'; varNull: result := 'Null'; varSmallInt 阅读全文
posted @ 2017-02-07 16:51 游子日月长 阅读(167) 评论(0) 推荐(0) 编辑
移去OleContainer的黑边框
摘要：
//禁止双击打开word编辑 olecontainer1.AutoActivate := aaManual; //禁止右键菜单 olecontainer1.AutoVerbMenu := False; //移去OleContainer的黑边框 OleContainer1.OleObject.AxBo 阅读全文
posted @ 2017-02-07 16:50 游子日月长 阅读(147) 评论(0) 推荐(0) 编辑
调整Mic音量
摘要：
uses MMSystem; function GetLineInHandle(AudioType : integer) : integer;var i : integer; AudioCaps : TAuxCaps;begin result := 0; for i := 0 to auxGetNu 阅读全文
posted @ 2017-02-07 16:48 游子日月长 阅读(259) 评论(0) 推荐(0) 编辑
关闭声道
摘要：
uses MMSystem; procedure SetMediaAudioOff(DeviceID : word);var SetParm : TMCI_SET_PARMS;begin SetParm.dwAudio := MCI_SET_AUDIO_ALL; mciSendCommand(Dev 阅读全文
posted @ 2017-02-07 16:47 游子日月长 阅读(115) 评论(0) 推荐(0) 编辑
检测声卡存在
摘要：
如果你是做一些多媒体播放器之类的程序时，为了完善系统的容错性，就必须用到一些检测系统的功能，其中检测声卡是否存在就是一个问题，下列程序帮你忙，首先需要在uses部分加入mmsystem ，接着在窗体创建时检测声卡：procedure TForm1.FormCreate(Sender: Tobject 阅读全文
posted @ 2017-02-07 16:46 游子日月长 阅读(163) 评论(0) 推荐(0) 编辑
控制音量及平衡
摘要：
当你做一个多媒体播放器时，难免少不了控制音量的大小和左右声道的播放，下面就介绍一种控制Wave波形输出设备音量的方法，该方法不是设置主音量。先在窗体上放两个TTrackBar，分别命名为TrackBar1，TrackBar2，属性Max都设置为65535，如果觉得刻度太密了，可以把Frequency 阅读全文
posted @ 2017-02-07 16:45 游子日月长 阅读(380) 评论(0) 推荐(0) 编辑
显示媒体时间
摘要：
var Minute : byte; with MyMediaPlayer do case TimeFormat of tfHMS : Minutes := MCI_HMS_Minute(Length); tfMSF : Minutes := MCI_MSF_Minute(Length); {etc 阅读全文
posted @ 2017-02-07 16:26 游子日月长 阅读(91) 评论(0) 推荐(0) 编辑
显示AVI文件的桢数
摘要：
procedure TForm1.Button1Click(Sender: TObject);begin MediaPlayer1.TimeFormat := tfFrames; ShowMessage('Number of frames = ' + IntToStr(MediaPlayer1.Le 阅读全文
posted @ 2017-02-07 16:25 游子日月长 阅读(87) 评论(0) 推荐(0) 编辑
显示Audio CD的音轨时间
摘要：
uses MMSystem; procedure TForm1.Timer1Timer(Sender: TObject);var Trk : Word; Min : Word; Sec : Word;begin with MediaPlayer1 do begin Trk := MCI_TMSF_T 阅读全文
posted @ 2017-02-07 16:25 游子日月长 阅读(123) 评论(0) 推荐(0) 编辑
播放背景音乐
摘要：
方法如下：首先需要在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) 编辑
循环播放音乐
摘要：
下面是源代码： 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) 编辑