Tray Icon Delphi XE2 usando FireMonkey
11/01/2013
0
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!
Gregory Pacheco
Posts
11/04/2013
Gregory Pacheco
Segue abaixo a solução encontrada.
Na mesma linha citada acima foi implementado o seguinte comando:
hIcon := LoadIconW(MainInstance, PChar('MAINICON'));
Até mais!
02/02/2014
Fábio Fernandes
cbSize:= SizeOf(TNotifyIconData);
o erro que dá é Too many actual parameters
meu delphi é XE4.
alguém tem alguma solução?
Desde já agradeço.
28/04/2017
Antonio Junior
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;
Clique aqui para fazer login e interagir na Comunidade :)