Código: Selecionar todos
// Programa Pisca Minimizado: FLASH3.PRG - 18/09/2015 kmt_karinha@pop.com.br
#include "fivewin.ch"
#Define SH_SHOWNORMAL 1 // Mostra o Estilo do Gerenciandor do Windows
#Define SW_SHOWMINIMIZED
#Define WM_SYSCOMMAND 274 // &H112
#Define SC_TASKLIST 61744 // &HF130
#Define SC_SCREENSAVE 61760 // &HF140
#Define SW_HIDE 0 // &H0
#Define SW_SHOWNA 8 // &H8
#Define SW_SHOW 5 // &H5
#Define SW_SHOWNORMAL 1
#Define SW_NORMAL 1
#Define SW_MAXIMIZE 3
#Define SW_MINIMIZE 6
#Define SW_RESTORE 9
#Define SC_MONITORPOWER 61808 // &HF170 Gracias a Ramon Ramirez por la info
#Define SM_CLEANBOOT 67
static ownd, omsgbar, oTimer
function main()
LOCAL oTimer
DEFINE WINDOW oWnd TITLE "Beto: Minimize Para Entender" ;
FROM 5, 5 TO 24, 64
DEFINE MSGBAR OMSGBAR OF OWND NOINSET
ACTIVATE WINDOW oWnd MAXIMIZED ;
ON INIT ( oTimer := FlashWndTimer( oWnd,, { | | IsIconic( oWnd:hWnd ) } ) )
oTimer:DeActivate()
return nil
FUNCTION FlashWndTimer( ohWnd, nDelay, bWhen )
local oTimer
DEFAULT nDelay := 2000
DEFAULT bWhen := { || .T. }
DEFINE TIMER oTimer INTERVAL nDelay ACTION (Flashing( ohWnd, bWhen ) )
ACTIVATE TIMER oTimer
RETURN( oTimer )
STATIC FUNCTION Flashing( ohWnd, bWhen )
static nStatus := 1
local hWnd
hWnd := iif( ValType(ohWnd) != "O", ohWnd, ohWnd:hWnd )
if Eval( bWhen, hWnd )
FlashWnd( hWnd, (nStatus := iif( nStatus == 1, 0, 1 )) )
endif
RETURN .T.
DLL32 STATIC FUNCTION FlashWnd( hWnd AS LONG, nInvert AS LONG ) AS LONG PASCAL FROM "FlashWindow" LIB "User32.dll"
// FIM DO PROGRAMA By Joao Santos