Buscar un flag concreto en una combinación de ellos (MessageBox)

[Neftali [Germán.Estévez]]

Buenas a todos.
Seguro que es una tontería, pero la verdad es que no lo he hecho nunca y no es algo que domine, así que a ver si los que sabéis me podéis dar la pista.

Tengo una llamada, por ejemplo, como esta (la parte importante es la del final):

Código Delphi [-]
  // parámetros similares a MessageBox
  MensajeUsuario(PChar(Mensaje1), PChar(Titulo1), MB_ICONSTOP or MB_OK or MB_APPLMODAL);
  MensajeUsuario(PChar(Mensaje1), PChar(Titulo1), MB_ICONERROR or MB_OK or MB_APPLMODAL);
  ...

El control llega al procedimiento MensajeUsuario, y me gustaría saber el tipo de icono que se ha seleccionado.
Es decir, cual de los siguientes valores se ha pasado en el tercer parámetro (siempre irá uno de los siguientes):

• MB_ICONEXCLAMATION
• MB_ICONWARNING
• MB_ICONINFORMATION
• MB_ICONASTERISK
• MB_ICONQUESTION
• MB_ICONSTOP
• MB_ICONERROR
• MB_ICONHAND

La llamada tiene la siguiente cabecera:

Código Delphi [-]
  procedure MensajeUsuario(AMsg, ATitle:PChar; AFlags:integer);

Supongo que debe haber algo como:

Código Delphi [-]
  if (MB_ICONEXCLAMATION in AFlags) then
    ...

Un saludo.