Obtener las imagenes de WARNING, EXCLAMATION, etc de windows
 

Como obtener las imágenes de Windows de: Error, Información, Exclamación, etc... que aparecen en los mensajes (MessageBox o MessageDlg).

Es un truco muy sencillo, pero que puede resultar práctico.

Pon un TButton y un TImage, al formulario:

Código Delphi [-]
procedure TForm1.Button1Click(Sender: TObject); 
begin 
  Image1.Picture.Icon.Handle := LoadIcon(0, IDI_INFORMATION); 
end;

Las constantes de las imágenes, están en la unit Windows.pas, pero aquí pongo una lista con los valores posibles:

IDI_APPLICATION
IDI_HAND
IDI_QUESTION
IDI_EXCLAMATION
IDI_ASTERISK
IDI_WINLOGO
IDI_WARNING
IDI_ERROR
IDI_INFORMATION

Saludos.

Gracias por el ejemplo, pero talvez algunos de uds. se preguntará ¿de que me sirve?. Puede servirte para implementar un cuadro de dialogo personalizado pero que utilice los iconos comunes de windows, como lo hacía el grandioso musicmatch.