Hola,
tengo que cargar en un Timage el icono asociado a una aplicación. Por internet he conseguido averiguar como obtener el handle del icono asociado: (en el ejemplo cambia el icono de mi aplicación)
Código:
uses SysUtils, Windows, ShellAPI;
procedure TForm1.Button1Click(Sender: TObject);
var
IconIndex: word;
Buffer: array[0..2048] of char;
IconHandle: HIcon;
begin
StrCopy(@Buffer, 'C:\Windows\Help\Windows.hlp');
IconIndex := 0;
IconHandle := ExtractAssociatedIcon(HInstance, Buffer, IconIndex);
if IconHandle <> 0 then
Icon.Handle := IconHandle;
end;
Lo he obtenido de
http://www.latiumsoftware.com/es/delphi/00014.php
Lo que no he conseguido es cargar la imagen del icono en el Timage.
¿Pueden ayudarme?
Saludos...
Miguel Angel