Para cambiar el icono de la aplicación en tiempo de corrida, lo que debes hacer es cambiar el icono del formulario principal, a menos que la propiedad MainFormOnTaskBar
del objeto Application
sea False
, en cuyo caso hay que cambiar la propiedad Icon
del propio objeto Application
.
Un ejemplo sencillo sería el de tener varios iconos en archivos en el mismo directorio donde está el ejecutable, de acuerdo a un estado numérico:
Icono1.ico
Icono2.ico
...
Icono12.ico
Con lo cual el cambio podría ser algo como:
procedure TForm7.CambiarIcono(AEstado: Integer);
var
NombreArchivo: string;
begin
NombreArchivo := ExtractFilePath(Application.ExeName) + '\Icono' + IntToStr(AEstado) + '.ico';
if FileExists(NombreArchivo) then
if Application.MainFormOnTaskBar then
Application.MainForm.Icon.LoadFromFile(NombreArchivo)
else
Application.Icon.LoadFromFile(NombreArchivo);
end;
También puedes tener los iconos almacenados como recursos dentro del propio ejecutable, lo cual resulta más recomendable.