Fórum Essa nunca vi #150353

Caro amigo,

Vc deverá criar em seu sistema um atributo em alguma tabela ou informar em uma constante no código fonte o valor que deverá ser notificado no usuário. Mas o processo é simples, veja:
- Crie uma variável global do tipo TTime e um componente do Tipo TTimer, onde no evento OnTimer do componente a variável do tipo TTime será alimentada a cada minuto, isso é simples e transparente, vc sempre comparará o valor da variável ao valor constante da notificação.

Exemplo:

unit Unit1;

interface

uses
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs, ExtCtrls;

type
TForm1 = class(TForm)
Timer1: TTimer;
procedure Timer1Timer(Sender: TObject);
procedure FormCreate(Sender: TObject);
private
{ Private declarations }
public
{ Public declarations }
ControlTime: TTime;
end;

var
Form1: TForm1;


implementation

{$R *.dfm}

procedure TForm1.Timer1Timer(Sender: TObject);
begin
if Time > ControlTime then
begin
Timer1.Enabled := False;
ShowMessage(´Usuário: Vc será desconectado!´);
Application.Terminate;
Exit;
end;

end;

procedure TForm1.FormCreate(Sender: TObject);
begin
ControlTime := StrtoTime(´15:00:00´);
end;

end.