Foros Club Delphi - Icono del Tray dinamico

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)

- Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)

- - Icono del Tray dinamico (https://www.clubdelphi.com/foros/showthread.php?t=15410)

Icono del Tray dinamico

Buenaaaasssss

a ver antes de nada voy a explicar un poco lo que tengo y la intencion.

Tengo un programilla que checkea una carpeta y cuando tiene fichero los manda por correo, lo hace cada 10 minutos aprox. y lo hace minimizado, solo se ve le icono del tray (junto al reloj de windows) el programa esta hecho con delphi 7, y mi intencion es que cuando este recorriendo la carperta i enviando mensajes el icono del reloj cambie, para que me indique que esta en dicho proceso, no uso componentes rx, por que no los he encontrado para delphi 7, lo hago con "Shell_NotifyIcon(NIM_ADD, @IconData)" donde en @IconData recojo el icono de la aplicacion, creo que con "Shell_NotifyIcon(NIM_MODIFY, @IconData);" se puede hacer, pero no se como asignarle el nuevo icono.

muchas gracias a todos, ya que el mero hecho de leer el mensaje ya es un detalle.

Ciao!!

Hola

Yo, en un caso parecido (también con Deolphi7),
hago parpadear el icono (en un timer):

Código:

  

  (...)

  if fData.hIcon=0 then fData.hIcon := Icon.Handle

  else fData.hIcon := 0;

  Shell_NotifyIcon(NIM_MODIFY,@fData);

  (...)

Utiliza un TImage para leer el nuevo icono y asignar el Handle al elemento de la estructura. Luego vuelvesa realizar la llamada.

Código Delphi [-]...
fData.hIcon:= Image1.picture.icon.handle;
...

Cita:

Empezado por Salomon

no uso componentes rx, por que no los he encontrado para delphi 7

Mira a ver si te sirven estos:

http://www.clubdelphi.com/users/roman/RxLibD7.zip

El zip incluye un archivo con instrucciones para la instalación.

// Saludos