关于代码中图片路径的问题

Question

比如我写了一个程序，代码中有一句Image1.Picture = LoadPicture("F:\515_1024x768.jpg")如果我把这个程序的代码让网友们下载，网友的电脑F盘里没有这个图片，就会出现文件找不到的错误。请问应该怎么解决？注意：网友们下载的是程序的代码，不是编译后的EXE文件。

Answer 1

Image1.Picture = LoadPicture(APP.PATH & "\515_1024x768.jpg") 并且把515_1024x768.jpg和你生成的exe一起打包.安装时放在同一目录下.

Answer 2

If Dir(APP.PATH & "\515_1024x768.jpg") > "" Then Image1.Picture = LoadPicture(APP.PATH & "\515_1024x768.jpg")