Question

delphi 中改变图片。

有两张图片，条件成功显示第一张，不成功显示第二张。图片是放在图片文件夹里，已知图片的路径是可以的.如：
if true then
begin
image1.Picture.LoadFromFile('d:\Ideal\ico\连接成功.jpg');
label5.Caption:='连接成功';
end
else
begin
image1.Picture.LoadFromFile('d:\Ideal\ico\连接失败.jpg');
label5.Caption:='连接失败';
end;
但是如果发给别人，他的安装路径和我不一样该怎么写？

Answer 1

用相对路径。
先获取当前应用程序路径。
path:=GetCurrentDir+'\WINDOWS\system32\MSHFLXGD.jpg';

追问

这个不行啊！
我这个软件还有一个打开dialog当点击打开后它就报错了！

追答

你把图片文件夹放到应用程序所在文件夹。
然后先定义
path1:=GetCurrentDir+'\连接成功.jpg';
path2:=GetCurrentDir+'\连接成功.jpg';
再
if true then
begin
image1.Picture.LoadFromFile(path1);
label5.Caption:='连接成功';
end
else
begin
image1.Picture.LoadFromFile(path2);
label5.Caption:='连接失败';
end;