Tray Icon Delphi XE2 usando FireMonkey

11/01/2013

5

Estou com um problema para implementar o Tray Icon (Ícone ao lado do relógio do Windows) no Delphi XE2 utilizando o framework do FireMonkey.
Estou tentando implementar um método que no Delphi 7 funciona bem. Inclusive existem bons tutoriais para esse método na internet.

Segue abaixo um link do método:
http://www.scriptbrasil.com.br/forum/lofiversion/index.php/t108730.html

Porém, estou enfrentando dificuldades para implementar o Tray Icon no Delphi XE2.
Ao implementar uma das rotinas (Procedure CriaIcone do Link acima) dá erro na seguinte linha:

hIcon:= Application.Icon.Handle;

Estou utilizando o FireMonkey e com esse framework não consigo capturar o ícone da aplicação através dessa sintaxe.
Tentei declarar a unit VCL.Forms mas assim eu estarei deixando de utilizar os Forms do FireMonkey.

Como eu poderia capturar o icone da aplicação utilizando o FireMonkey?
Caso alguém saiba como implementar o Tray Icon no Delphi XE2 utilizando o FireMonkey mesmo que de uma forma diferente da citada acima ajuda bastante.

Desde já, muito obrigado!
Responder

Posts

Problema Resolvido!
Segue abaixo a solução encontrada.

Na mesma linha citada acima foi implementado o seguinte comando:

hIcon := LoadIconW(MainInstance, PChar('MAINICON'));

Até mais!
Responder
Galera, tentei fazer e dá erro na seguinte linha:
cbSize:= SizeOf(TNotifyIconData);

o erro que dá é Too many actual parameters

meu delphi é XE4.

alguém tem alguma solução?

Desde já agradeço.
Responder

28/04/2017

Antonio Junior

Galera, tentei fazer e dá erro na seguinte linha:
cbSize:= SizeOf(TNotifyIconData);

o erro que dá é Too many actual parameters

meu delphi é XE4.

alguém tem alguma solução?

Desde já agradeço.


Coloque assim
cbSize := SizeOf;
Responder