Foros Club Delphi

Foros Club Delphi (https://www.clubdelphi.com/foros/index.php)
-   Varios (https://www.clubdelphi.com/foros/forumdisplay.php?f=11)
-   -   Manejo Screen Saver Windows (https://www.clubdelphi.com/foros/showthread.php?t=53816)

pockelsm3 01-03-2008 20:29:38

Manejo Screen Saver Windows
 
Saludos

:confused::confused::confused::confused::confused::confused:

aver si me pueden ayudar, tengo una aplicacion y quisiera hacer el efecto que hace el windows cuando uno deja de mover el mouse por un tiempo y luego se ejecuta el screen saver.
me gustaria realizar ese efecto con delphi, ya cuando el usuario deje de mover el mouse poder saber que este no esta en movimiento y luego de un tiempo ejecutar mi efecto con un formulario.

Gracias de Antemano

ArdiIIa 01-03-2008 20:40:26

Puedes controlar a windows cuando salta el protector de pantalla e interceptarlo..
Un ejemplo...


Código Delphi [-]
procedure TFormMain.ApplicationEventsMessage(var Msg: tagMSG; var Handled: Boolean);
begin
    Handled := False;

      if  (Msg.Message = WM_SYSCOMMAND) and (Msg.wParam = SC_SCREENSAVE) then
          Begin
            Handled := True;
                if (Screen.ActiveForm = FormMain ) and Handled then
                    Begin
                        Application.CreateForm(TFormAbout, FormAbout);
                        FormAbout.Show;
                    End;
          End;
End;

cHackAll 04-03-2008 17:04:19

En realidad si deseas hacer lo mismo que el ScrennSaver, la forma correcta sería un Hook al teclado y al raton. Pero siendo una forma de conseguirlo comlicada puedes hacer un formulario normal que este fsStayOnTop, wsMaximized y Focused que cada vez que las posiciones del ratón verificadas por un Timer cambien ó sea presionada una tecla inicialice una variable y que el mismo Timer la incremente. Una vez verificado dicho valor llegue a un climax :rolleyes: pues que haga lo que deba hacer.

Sería bueno saber para que lo quieres para darte una ayuda mejor


La franja horaria es GMT +2. Ahora son las 23:25:36.

Powered by vBulletin® Version 3.6.8
Copyright ©2000 - 2026, Jelsoft Enterprises Ltd.
Traducción al castellano por el equipo de moderadores del Club Delphi