Foros Club Delphi - Cargar una imagen con un icono

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

- Gráficos (https://www.clubdelphi.com/foros/forumdisplay.php?f=8)

- - Cargar una imagen con un icono (https://www.clubdelphi.com/foros/showthread.php?t=49915)

Cargar una imagen con un icono

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

Revisa este hilo también puedes buscar por extractAssociatedIcon.

Usa los iconos del sistema, por tanto es un método más rápido que la función Extract...

Saludos

Muchas gracias por la respuesta. Me ha aclarado como obtener la imagen del icono:

Código:

procedure TForm1.Button2Click(Sender: TObject);

var

  IconIndex: word;

  Buffer: array[0..2048] of char;

  Icono: TIcon;

begin

  Icono := Ticon.create;

  StrCopy(@Buffer, 'C:\Windows\Help\Windows.hlp');

  IconIndex := 0;

  Icono.Handle := ExtractAssociatedIcon(HInstance, Buffer, IconIndex);

  if Icono.Handle <> 0 then

  begin

    Image1.Picture.Icon := Icono;

  end;

end;

Gracias y saludos...
Miguel Angel