Cambiar el Icono de un Exe, No hay manera humana.

[paldave]

Podrías poner el código que utilizas para cambiarlo, ¿no te parece?

[lag_0]

He usado muchos, todos encontrados en internet, actualmente no uso ninguno por que lo borre y no he conseguido saber adaptar ninguno para que haga esto...

[[mlara]]

Pues veamos... yo intento hacer algo parecido. Decidí continuar este hilo precisamente por eso.

Lo que quiero hacer es cambiar el icono de una ventana de mi aplicación en tiempo de ejecución. Apenas empiezo, pero lo que probé no funciona. Aquí está el código:

Código Delphi [-]
  // Creo la ventana
  Application.CreateForm(TfMiVentana, fMiVentana);
  // Asigno el icono
  fMiVentana.Icon.Assign(Icono);
  // Muestro la ventana
  fMiVentana.Show;

, y listo. Esto no funciona, pues me sigue mostrando el icono definido para la aplicación.

Por si acaso, también intenté esto:

Código Delphi [-]
  // Creo la ventana
  Application.CreateForm(TfMiVentana, fMiVentana);
  // Lista de imagenes... de aquí tomo el icono que quiero en la ventana
  ImageList1.GetIcon(13, fMiVentana.Icon);
  // Muestro la ventana
  fMiVentana.Show;

, y listo. Esto tampoco funciona. Si alguien sabe cómo hacerlo...

[[Lepe]]

Revisa la cantidad de colores y profundidad de color que tiene el icono original y el nuevo.

Saludos

[lag_0]

Lo que tu buscas no tiene nada que ver con este tema;
Yo lo que intento es cambiar el Icono en un EXE compilado (externo a mi programa) desde delphi...
Al final lo medio conseguí, lo tuyo no tiene mucho misterio pero ahora mismo no te puedo ayudar... un saludo.

[[xEsk]]

Hola,

He probado:

Código Delphi [-]
Form1.Icon.Assign(Image1.Picture.Icon);

y me ha funcionado sin problemas.

Saludos.

P.D.: He realizado la prueba con el Delphi 2007 for win32

[[xEsk]]

He hecho otra prueba, creando un nuevo formulario en tiempo de ejecución y asignarle un icono, y también ha funcionado:

Código Delphi [-]
  with TForm.Create(self) do
    try
      Icon.Assign(Image1.Picture.Icon);
      ShowModal;
    finally
      Free;
    end;

Saludos.

[[cHackAll]]

Empezado por lag_0

Yo lo que intento es cambiar el Icono en un EXE compilado (externo a mi programa) desde delphi...

Presumiendo que éste hilo tiene que ver con éste otro que iniciaste, te aconsejo comenzar a buscar por aquí.

Empezado por lag_0

Lo que tu buscas no tiene nada que ver con este tema;...

...lo tuyo no tiene mucho misterio pero ahora mismo no te puedo ayudar... un saludo.

"Lo cortés no quita lo valiente"

---

mlara; se me ocurre que la propiedad BorderStyle de fMiVentana no es bsSingle o bsSizeable. O talvez algun problema con formularios MDI (¿?)

Saludos