Obtener las imagenes de WARNING, EXCLAMATION, etc de windows

[[xEsk]]

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.