Código Delphi [-] if not Active then FlashWindow(Application.Handle,TRUE)
if not Active then FlashWindow(Application.Handle,TRUE)