FTP | CCD | Buscar | Trucos | Trabajo | Foros |
|
Registrarse | FAQ | Miembros | Calendario | Guía de estilo | Temas de Hoy |
|
Herramientas | Buscar en Tema | Desplegado |
#1
|
|||
|
|||
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 que no he conseguido es cargar la imagen del icono en el Timage. ¿Pueden ayudarme? Saludos... Miguel Angel |
|
|
Temas Similares | ||||
Tema | Autor | Foro | Respuestas | Último mensaje |
Cargar imagen | federki | Gráficos | 8 | 13-11-2006 22:48:22 |
Cargar Imagen | johurgi | Gráficos | 4 | 14-08-2006 17:43:11 |
al cargar imagen | kiringui | Gráficos | 2 | 12-06-2006 12:47:50 |
convertir una imagen en icono.... | uper | Gráficos | 6 | 23-03-2005 02:55:51 |
Imagen del icono de delphi | IVAND | Varios | 8 | 26-10-2004 18:17:16 |
|