如上!是用RCDATA类型吗?
解决方案 »
- 关于edit焦点的问题
- 要做一套车辆管理系统,有什么好方法处理出车和回车信息的录入
- DBGRID有没有办法在不连接数据库的情况下,对其进行记录的添加。
- 请问:如何扩展DBGRID组件?
- JScript和VBScript中都有For each语句,Delphi中类似的功能怎样实现?
- 新手提问:Directoryoutline组件使用中遇到的问题?
- 对不起,请高手原谅我的自大,但是我绝对没有夸张,进来帮忙up有分
- 老牛,破車,疙瘩繩!!!有點慢,送90分給你
- help!昨天在删除电脑中的linux系统后,重起电脑就提示NTLDR missing,press any key restart??
- 通过delphi,怎样抓取一幅游戏图像,如星际争霸的图像?
- 没安装visio的情况下,怎么编程打开visio格式的文件〔在线等待,十万火急)
- TPANEL在工具栏的哪个地方
==================================================
广告宣传:
闪客必备工具 - 矢量图共享(V1.07)
去除Flash 编译过的 SWF文件 的密码 使矢量共享,从EXE中分离SWF文件,SWF文件分析,支持Flash 5\Flash MX
http://www.csdn.net/cnshare/soft/13/13646.shtm 马上下载呀!
{
建立一个SWF.rc文件,加入:F_HELP File1 SWF文件路径及名称运行:
Brcc32 -r SWF.rc
将产生一个help.res文件}
你要源程序的话可以给我mail:[email protected]
你先写一个Flash.rc文件
内容如下:
HAPPY815 File1 E:\HAPPY815.SWF再用brcc32 -r Flash.rc就可以得到一个Flash.res的资源文件,
你在程序中用:
{$R Flash.res}var
TempPath : array[0..127]of char;
FileName : string;
Res : TResourceStream;
begin
GetTempPath(128,TempPath);
if not FieldExists(TempPath+'HAPPY815.SWF') then
begin
Res := TResourceStream.Create(HInstance,'HAPPY815','File1');
Res.SaveToFile(TempPath+'HAPPY815.SWF');
Res.Free;
end;
myFlash.Movie := TempPath+'HAPPY815.SWF';
myFlash.Play;
end;
myFlash是一个控件,
你可以从Import ActiveX-> 找到Shockwave Flash(Version 1.0)后再Install一下就可以加入这个控件。
那样更容易实现的,只要添加一个控件就可以来,我这里有一个做好的。
含源代码哦!