Discussion :

[newbie57]

Bonjour,

Comment pourrais-je savoir que personne n'utilise mon application?

Ce que je souhaite faire c'est un arrêt automatique lorsque plus personne utilise mon application. Par exemple, au bout de 10 minutes d'inactivité, l'application s'arrête d'elle même.

Merci.

[rezuss]

Tu peux regarder du coté du composant TTimer.

[Cl@udius]

Salut

Tu peux t'inspirer de ce code que j'avais posté dans cette discussion.

@+ Claudius

[newbie57]

Merci Rezzus, merci Claudius,

Je vais me pencher sur la methode de Claudius.

C'est sympa

[GO]

En petit complément : dès qu'un utilisateur appuie sur une touche ou clique sur la souris (ou la bouge) ton Ttimer est réinitialisé à 0. Jette un coup d'oeil sur les évènements OnKeyPress, OnMouseMove et OnMouseDown...

[newbie57]

Genial c'est ce que je voulais car on m'a dit que certains laisse leurs ordi et parte meme en vacances sans fermer l'application. Ha les fonctionnaires lol. Dès demain j'essayerai pour voir.

Merci encore

[newbie57]

Ca marche... merci à tous.

Pour infos j'ai aussi trouvé ce code posté par AnnSo et qui fonctionne très bien:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
 
procedure TForm1.InitTimer;
var b : boolean;
begin
 b := FTimer.Enabled;
 FTimer.Enabled := False;
 FTimer.Enabled := b;
end;
 
procedure TForm1.FormCreate(Sender: TObject);
var Duration : integer;
begin
 Duration := 1;
 FTimer := TTimer.Create(self);
 FTimer.OnTimer := TimerTimer;
 FTimer.Enabled := True;
 FTimer.Interval := Duration*60000;   // minutes -> millisecondes
 Application.OnMessage := Activite;
end;
 
procedure TForm1.TimerTimer(Sender: TObject);
begin
  Close;
end;
 
procedure TForm1.Activite(var Msg : Tmsg; var Handled: Boolean);
begin
  if ((Msg.message = WM_MOUSEMOVE) or (Msg.message = WM_KEYDOWN)) then
       InitTimer;
  Handled := false;
end;

Bon maintenant un petit et à bientôt