Título: Bloqueando el redibujado del monitor
Publicado por: LeandroA en 12 Enero 2009, 04:10 am
hola una boludes pero te bloquea toda la pc hasta tener que reiniciar si es que no se lo deshabilita agregar un timer1 Option Explicit Private Const WM_SETREDRAW As Long = &HB Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Sub Form_Load() Timer1.Interval = 5000 SendMessage GetDesktopWindow, WM_SETREDRAW, 0, ByVal 0 End Sub
Private Sub Timer1_Timer() SendMessage GetDesktopWindow, WM_SETREDRAW, 1, ByVal 0 End Sub
Título: Re: Bloqueando el redibujado del monitor
Publicado por: el_c0c0 en 12 Enero 2009, 18:10 pm
mm.. interesante.. pero obviamente no te va a llevar a reiniciar esto.. lo q si te lleva a reiniciar es cuando cambias de escritorio y no lo devolves al original, ahi si estas bien cagado :P
saludo
Título: Re: Bloqueando el redibujado del monitor
Publicado por: LeandroA en 12 Enero 2009, 21:24 pm
Estas seguro que no te lleva a reiniciar? prova con esto y despues me contas, Guarda todo primero! Option Explicit Private Const WM_SETREDRAW As Long = &HB Private Declare Function SendMessage Lib "user32.dll" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByRef lParam As Any) As Long Private Declare Function GetDesktopWindow Lib "user32.dll" () As Long
Private Sub Form_Load() SendMessage GetDesktopWindow, WM_SETREDRAW, 0, ByVal 0 End Sub
|