Dectecter l'absence d'activité

Version imprimable

11/01/2011, 16h21
beni34

Dectecter l'absence d'activité
Pour detecter l'absence d'activité d'un utilisateur sur une machine, j'utlise la fonction suivante pour delphi:
Code:

1 2 3 4 5 6 7 8 function GetIdleTime:Cardinal; var LI:TLastInputInfo; begin LI.cbSize:=SizeOf(LI); GetLastInputInfo(LI); Result:=GetTickCount-LI.dwTime; end;
le probleme c'est que je souhaite l'equivalent en delphi prism car il ne reconnait pas le type TlastInputInfo et les fonctions GetLastInputInfo et GetTickCount.

Merci !
11/01/2011, 17h21
ShaiLeTroll

Déclare le type toi même (reprend celui dans Delphi Win32, windows.pas) et utilise P/Invoke pour appeler l'API

GetTickCount dans 'kernel32'
GetLastInputInfo dans 'user32'
13/01/2011, 12h22
beni34

Ok, c'est bon cela fonctionne.
C'est un peu galère par rapport à delphi où il suffit juste d'appeller une fonction !!!

Merci
13/01/2011, 14h18
ShaiLeTroll

Pourrais-tu faire partager les fonctions (ou même la classe) que tu as déclarées en .NET, cela pourrait en interesser d'autres !

Code:

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
32
33
34
35
36
37
38
39
40
41
42
43
44
 
namespace MonAppli;
 
interface
 
uses
  System.Collections.Generic,
  System.Linq,
  System.Text,
  System.Runtime.InteropServices; // utilisation de dllImport
 
type
 
  TLastInputInfo = record
    cbSize: Integer;
    dwTime: Integer;
  end;   
 
  ClassFunction = class
  private
    [DllImport("user32.dll")]
    class function GetLastInputInfo(var LInfo: TLastInputInfo) : Boolean ; external;
    [DllImport("kernel32.dll")]
    class function GetTickCount() : Integer; external;
 
  protected
  public 
    function GetIdleTime : Cardinal;
 
  end;
 
implementation
 
function ClassFunction.GetIdleTime: UInt32;
var
  LInfo : TLastInputInfo;
begin
  LInfo := new TLastInputInfo();
  LInfo.cbSize := sizeOf(TLastInputInfo);
  GetLastInputInfo(var LInfo);  
  Result := (GetTickCount - LInfo.dwTime); 
end;
 
end.