Cargar una imagen con un icono

[madiazg]

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)

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

[[Lepe]]

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

[madiazg]

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

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