Inactividad

[Casimiro Noteví]

Por favor, recuerda poner títulos descriptivos a tus preguntas, gracias

[Casimiro Noteví]

Código Delphi [-]
function SecondsIdle: DWord; var liInfo: TLastInputInfo; 
begin 
  liInfo.cbSize := SizeOf(TLastInputInfo);
  GetLastInputInfo(liInfo);
  Result := (GetTickCount - liInfo.dwTime) DIV 1000;
end; 

procedure TForm1.Timer1Timer(Sender: TObject); 
begin 
  Label1.Caption := Format('System IDLE last %d seconds', [SecondsIdle]);
end;

[ecfisa]

Hola shoulder.

Ví que te tomaste mucho trabajo en la presentación del código, pero lamentablemente las etiquetas [quote]...[/quote] quitan todo el formato. Por otro lado te recuerdo que las etiquetas [delphi]...[/delphi] hacen automáticamente la tarea que realizaste a mano.

Saludos

Edito: (ya lo había notado Casimiro... )

[shoulder]

Perdon no me di cuenta.

[shoulder]

Probe y exactamente a los 300 segundos se cierra aunque escriba un valor mas alto en el Timer1, la pantalla se ve mas tenue y se cierra el prg.

[Casimiro Noteví]

Qué es TLastInputInfo?

[shoulder]

Sabes que no se, la funcion la copie de Internet, decis que sea un valor predefinido a 300 segundos de maximo? . Trabajo con windows 7 y delphi 7.
Gracias.

[Casimiro Noteví]

¿Que yo sé que tú no sabes?
Lo siento mucho, amigo, pero no tenemos una bola de cristal para saber de dónde lo has copiado, qué hace, para qué sirve, ni siquiera tenemos tu código completo para intentar averiguarlo.
Me ha hecho gracia tu comentario, creo que deberías leer nuestra otra guía de estilo.