Detectar paso a inactividad

[oworty]

Hola a todos.

Estoy interesado en realizar una aplicacion que este residente en memoria y que lance un proceso justo cuando el ordenador lance el protector de pantalla, o se ponga en modo suspension o en modo hibernación, pero no he conseguido averiar que evento hay que capturar para lanzar este proceso. Si en el caso de que no existiese tal evento, saber si existe alguna función de la API windows que me diga si esta el protector de pantalla esta en marcha o el modo de suspensión o el de hibernacion.
Me seria de gran utilidad si alguien me pudiese orientarme un poco, puesto que soy un pollo en el mundo de la api de windows.

Ante todo muchas gracias a todos!

[bumiga]

Espero que el siguiente codigo te sirva, no es mio, lo baje de Internet, pero no me acuerdo de donde y por eso no puedo colocar los creditos a la(s) persona(s) que lo publicaron, mis disculpas


Unit DetecIdleMain

interface

uses
windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms, Dialogs, ExtCtrls, ComCtrls

type
TDetectIdleForm = Class(TForm)
IdleTimer: TTimer;
StatusBar1: TStatusBar;
procedure FormCreate(Sender: TObject);
procedure ResetInactive(var Msg: TMsg; var Handled: Boolean);
procedure IdleTimerTimer(Sender: TObject);
private
fLastActive: TDateTime;
systemInactive: Boolean;
public
end;

var
DetecIdleForm: TDetecIdleForm;

implementation

{$R *.dfm}
procedure TDetectIdleForm.IdleTimerTimer(Sender: TObject);
begin
if ((fLastActive + EncodeTime(0,0,30,0)) < Now) then
begin
systemInactive := False;
IdleTimer.Enable := False;
end;
end;

procedure TDetectIdleForm.FormCreate(Sender: TObject);
begin
Application.OnMessage := ResetInactive;
end;

procedure TDetectIdleForm.ResetInactive(var Msg: TMsg; var Handled: Boolean);
begin
if (Msg.message = WM_SYSCOMMAND) then
if (msg.wParam = SC_SCREENSAVE) then
if (not systemInactive) then
begin
//Do something... User is inactive
StatusBar1.Panels[0].text := TimeToStr(Now);
IdelTimer.Enable := True;
end;
SystemInactive := True;
fLastActive := Now;
end;

end.

[oworty]

Ante todo muchas gracias por la información que me has dado, me ha sido de gran ayuda. Pero he encontrado un pequeño problema, verás funciona perfectamente siempre y cuando este el programa en primer plano, pero si el programa no esta en primer plano(esta minimizado) el programa no captura el evento, carga el protector de pantalla y no se ejecuta el proceso que yo he programado.

Gracias de nuevo!!!