Delphi dicas

Pegar o ícone de um programa em execução

{Eu procurei muito como fazer para pegar o ícone de uma janela q esteja em execução, não encontrava dica em lugar algum. Mas, com muito sacrifício consegui fazer. E resolvi postar aqui para que não sofram o quanto sofri... rs}



var

aIcon: TIcon

begin

        aIcon:= TIcon.Create;

        aIcon.Handle:= SendMessage(Wnd, WM_GETICON, 0, 0);

end;



// É só isso... e me matei muito... rs