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 |
#2
|
||||
|
||||
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
__________________
Si usted entendió mi comentario, contácteme y gustosamente, se lo volveré a explicar hasta que no lo entienda, Gracias. |
#3
|
|||
|
|||
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; 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 |
|