关于如何屏蔽Flash控件的右键菜单的问题有很多人问过，也有很多人回答，基本上都是说拦截 Application消息，或者继承一个新的控件，重载MouseDown消息，第一种解决办法，好象是简单 些...
感谢“温柔刀客”的努力，找到一篇不错的Flash编程文章，也感谢文章的作者，解决了我一个困惑了很久的问题，呵呵~~~ unit uFlash; interface uses windows, SysUtils, Classes, Zlib; type TBitWidth = In...
声音文件为wav格式 第一步:用记事本建立一个rc文件. 例如:my.rc,内容如下: sound wave music.wav 其中sound为资源名称，是以后使用时要调用到的名称，wave为资源类型，music.wav为一个已存在的...
procedure TForm1.Button1Click(Sender: TObject); var Bitmap : TBitmap; ImageRect : TRect; ImageWidth : Integer; ImageHeight : Integer; Position : Integer; i : Integer; begin if OpenDialog1.Execute then begin MediaPlayer1.FileName := OpenDial...
delphi使用MCISendString播放背景音樂 播放文件為.MID文件: 在單元接口引用 mmsystem 單元. //播放音乐 MCISendString('OPEN e:\1.MID TYPE SEQUENCER ALIAS NN', '', 0, 0); MCISendString('PLAY NN FROM 0', '', 0, 0); MCISen...
语音聊天在今天是一个很普通的话题，小厮写了一段音频采集、网络传输和播放的程序，实现和简单的语音聊天，但是语音信息没有经过很好的压缩，所以，在局域网外，由于网速问题...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, StdCtrls; type TForm1 = class(TForm) Timer1: TTimer; Button1: TButton; Button2: TButton; procedure Timer1Timer(Sender:...
unit Unit1; interface uses Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls, MPlayer; type TForm1 = class(TForm) Button1: TButton; MediaPlayer1: TMediaPlayer; procedure Button1Click(Sender: TObjec...
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; Album : array[0..29] of Char; Year : array[0..3] of Char; Commen...
uses DirectSound,Direct3D9,D3DX9; //DirectX截屏函数 procedure CaptureScreen(Const FileName: string); var BitsPerPixel: Byte; pD3D: IDirect3D9; pSurface: IDirect3DSurface9; g_pD3DDevice: IDirect3DDevice9; D3DPP: TD3DPresentParameters; AR...