Después de instalar no encuentra archivos

[jomanaar]

Hola a todos, es mi primera intervención en este foro y pido vuestra ayuda para el siguiente problema:

He creado mi primera aplicación en delphi y todo funciona correctamente.
En ella utilizo tablas paradox y bde. También utilizo imágenes que cargo en tiempo de ejecución.
Para cargar las tablas de la base de datos utilizo:

table1.Databasname:=extractfilepath(paramstr(0));
table1.TableName:='pacients';

Y para cargar las imágenes (comprobando si existen o no) utilizo:

begin
try
image1.Picture.LoadFromFile('fotos/f'+dbedit1.Text+'.bmp');
except
image1.Picture.LoadFromFile('ima/leofig01.bmp');
end;
end;

Utilizo el Inno Setup para crear el instalador y despues de instalarlo si ejecuto el programa desde la carpeta donde están todos los archivos (archivos de programa\aplicación\aplicacion.exe) funciona correctamente, pero si la ejecuto desde (Inicio\todos los programas...) o desde cualquier acceso directo que me crea el instalador me sale el error que no encuentra los archivos indicando la ruta donde se encuentra el acceso directo.

Luego elimino esos accesos directos y los vuelvo a crear manualmente y vuelve a funcionar a la perfección.

¿Alguien sabe a que es debido? He probado con el installshield y me pasa lo mismo.

Agradecería cualquier ayuda.

[[maeyanes]]

Tienes 2 opciones...

1. Cargar los archivos de imagen usando la forma:

Código Delphi [-]
var
  ExePath: string;

begin
  ExePath := ExtractFilePath(Paramstr(0));
  try
    Image1.Picture.LoadFromFile(ExePath + '\f' + DBEdit1.Text + '.bmp')
  except
    Image1.Picture.LoadFromFile(ExePath + '\ima\leofig01.bmp')
  end
end;

2. O en el acceso directo llenas el campo Iniciar en: con la ruta donde está instalado el programa...


Espero que te sirva...

Saludos...

[jomanaar]

Muchas gracias .

He probado las dos soluciones y me funcionan las dos. He optado por la primera porque de esa forma el instalador me lo deja todo perfecto y no tengo que ir añadiendo nada al acceso directo.

Muchas gracias de nuevo.

[oracle]

Tengo el mismo problema pero no entiendo donde esta la Opción Iniciar en:

El instalshield Express 4.0 es la versión que tengo y esta en ingles y no veo por ningún lado la opción esa.

Lo único que he podido hacer es vincular el acceso directo con el .exe de la aplicación, pero precisamente ahí esta el problema y cuando se ejecuta el acceso directo una vez instalado el programa no carga las imágenes de la aplicación.

Agredeceré cualquier ayuda al respecto

Saludos a la comunidad

Oracle