Cargar imagen

[[seoane]]

Le estoy dando vueltas a tu pregunta y no tengo muy claro lo que quieres. dec supone que tu tienes la imagen que quieres cargar dentro del directorio de tu aplicación o en un subdirectorio de la misma, y que tu duda es como poder encontrarla. Si es así la respuesta de dec es correctisima ... bueno quizá quitándole una pequeña errata

Código Delphi [-]
  Image1.Picture.LoadFromFile(rutaImagen);

Ahora bien, puede que tu estés preguntando por un método para incluir una imagen dentro de tu ejecutable por código. Eso ya es un poco mas complicado, partiendo de que un ejecutable no se puede modificar a si mismo y que la imagen se tendría que agregar como un recurso. Se podría hacer, pero no creo que valga la pena.

Por ultimo también se me ocurre que puedes estar preguntando como mostrar un cuadro de dialogo para seleccionar una imagen, y que en sucesivas ejecuciones ya siempre se utilice la misma ruta. Eso ya es mas sencillo, por ejemplo para obtener la ruta, y guardarla:

Código Delphi [-]
begin
  with TOpenDialog.Create(nil) do
  try
    if Execute then
    begin
      Image1.Picture.LoadFromFile(Filename);
      with TStringList.Create do
      try
        Values['Ruta']:= ExpandFileName(Filename);
        SaveToFile(ChangeFileExt(ParamStr(0),'.ini'));
      finally
        Free;
      end;
    end;
  finally
    Free;
  end;
end;

El código anterior puedes ponerlo por ejemplo dentro de un botón. Ahora ya tenemos la ruta de la imagen en nuestro archivo de inicio, ahora solo falta que cuando se inicie la aplicación comprobemos si hay alguna ruta guardada y carguemos la imagen. Por ejemplo en el evento OnCreate del formulario coloca esto:

Código Delphi [-]
procedure TForm1.FormCreate(Sender: TObject);
begin
  if FileExists(ChangeFileExt(ParamStr(0),'.ini')) then
  with TStringList.Create do
  try
    LoadFromFile(ChangeFileExt(ParamStr(0),'.ini'));
    if Values['Ruta']<>'' then
      Image1.Picture.LoadFromFile(Values['Ruta']);
  finally
    Free;
  end;
end;