Dectecter l'absence d'activité [Résolu]

[beni34]

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 !

[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'

[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

[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 !

[beni34]

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.