库存管理软件版1楼: 能样在播放的视频上 走字幕，互动电视大家一定很清楚吧，

2楼: 这要看你是用硬解压还是用软解了？
用软解你可以用DSPACK，用硬解你可以用解压卡的开发包！OK！ 如库存商品进销存

3楼: www.source520.com 再次更新近3万代码,全部免费免注册狂下载

4楼: 收分了

5楼: 可用RichEdit编辑de下飞字幕程序：

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls, StdCtrls, Buttons, ComCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
Image1: TImage;
BitBtn1: TBitBtn;
RichEdit1: TRichEdit;
procedure Timer(Sender: TObject);
procedure BitBtn1Click(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
end;

var
Form1: TForm1;
x,tt,l,h:integer;
pic:Trect;

implementation

{$R *.dfm}

procedure TForm1.Timer(Sender: TObject);

begin
x:=x-1;
tt:=tt-1;
if x<-860 then
x:=image1.Width+20;
tt:=x+80; //图象离字幕的距离
image1.Canvas.Font.Size:=18; //字体大小
image1.Canvas.Font.Color:=$1200ffff; //字体颜色
image1.Canvas.TextOut(x,200,Richedit1.Text); //要显示的文字。
image1.Canvas.MoveTo(h+x+50-2,0);
image1.Canvas.LineTo(h+x+50-2,l-20);
image1.Canvas.Pen.Color:=clGreen;

end;

procedure TForm1.BitBtn1Click(Sender: TObject);
begin
timer1.Enabled:=True;
timer1.Interval:=1;
x:=image1.Height+40;
tt:=x+80;
Form1.Repaint;
image1.Canvas.Brush.Color:=clGreen;
pic:=Rect(0,0,image1.Width,image1.Height);
image1.Canvas.FillRect(pic);
end;
end.

6楼: 看看我这个吧QQ 87797301

库存管理软件版7楼: 接分了

8楼: 很简单，用DIRECTSHOW，做个TransForm filter