如何把 gif 文件和生成的 exe 文件合成为一个文件？(100)

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #1

显示 gif 动画，如何把 gif 文件和生成的 exe 文件合成为一个文件？

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #2

或者将GIF文件包含到资源文件调用执行也行。

 

W

whbest

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #3

tom12345的意思是在已编好的exe文件中合成gif吧?可把gif加了exe文件的尾部,然后通过exe文件事先写好的获取功能调用即可!

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #4

whbest,怎么把gif加了exe文件的尾部,然后通过exe文件事先写好的获取功能调用啊？

 

W

whbest

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-11

• #5

直接包含吧做一个sample.rc文本文件写入你想打包的文件MYKISS WAVE kiss.wavSYSFUN EXEFILE sysfun.exemyjpg JPGFILE ok.jpg然后用BRCC32把这个RC文件编译成sample.res（真正的资源文件）。在Delphi的工程文件中使用 $R 编译指令让Delphi包括资源到EXE文件里面。{$R sample.RES}调用sound PlaySound('MYKISS',hInstance,SND_RESOURCE);调用exevar Res : TResourceStream;begin Res := TResourceStream.Create(Hinstance, 'SYSFUN', Pchar('EXEFILE')); Res.SavetoFile('C:/TEMP/SYS.EXE'); Res.Free;end;var Res : TResourceStream;begin Res := TResourceStream.Create(Hinstance, 'MYJPG', Pchar('JPGFILE')); Res.SavetoFile('C:/TEMP/ok.jpg'); Res.Free;end;

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-14

• #6

whbest,用BRCC32把RC文件编译成sample.res时出错： Expecting resource name or resource type name delphi

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-14

• #7

whbest， BRCC32 编译成功了，你是说先把打包的文件存储到本机再调用吗？

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-14

• #8

我原来是用: self.WebBrowser1.Navigate(self.OpenDialog1.FileName); 来显示 gif 文件的。

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-15

• #9

哎，最简单的就是吧Gif编程在Form中(加一个TImage)，Visible属性设置为False，那么只要运行exe，附和你设定好的条件或触发某些按钮就显示该Timage就可以了啊，呵呵!

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-15

• #10

wql，我想使 gif 动起来啊，这样可以吗？

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-15

• #11

把TImage换为TAnimal就可以了啊

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-15

• #12

是第三方控件吗？

 

W

wql

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-16

• #13

倒！就是 Delphi自己的控件啊！

 

T

tom12345

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-16

• #14

wql， delphi7 有吗？

 

T

Texense

Unregistered / Unconfirmed

GUEST, unregistred user!

• 2009-09-16

• #15

可以把任何文件合并到exe中，图片可在exe中显示，视频文件可用mediaplayer控件播放，以前通过k.top下载了一个外国网站上有牛人写的，不知放到哪去了，据说灰鸽子之类用这办法把插入病毒。