GetLastInputInfo

[pascall]

The GetLastInputInfo function is described here:
http://msdn.microsoft.com/en-us/library/windows/desktop/ms646302(v=vs.85).aspx
However, when I use this function in my program, compiling stops with error: Identifier not found GetLastInputInfo.
I have already put "windows" under "uses".
It is described on that website that this function is included in User32.dll. So if that's the reason causing the error, how to load that function from User32.dll into my program?
Thank you for your help.

[pascall]

To be more specific, please show me exactly how to get "GetLasInputInfo" to work on my program.

[ludob]

GetLastInputInfo is defined in jwawinuser. jwawinuser is part of the jedi port to fpc.

If you don't want to use that huge unit, just include the following in your code:

Code: [Select]

type
  PLASTINPUTINFO = ^LASTINPUTINFO;
  tagLASTINPUTINFO = record
    cbSize: UINT;
    dwTime: DWORD;
  end;
  LASTINPUTINFO = tagLASTINPUTINFO;
  TLastInputInfo = LASTINPUTINFO;

function GetLastInputInfo(var plii: TLastInputInfo): BOOL;stdcall; external 'user32' name 'GetLastInputInfo';



[pascall]

Thank you very much That's exactly what I need for my project.

[fatmonk]

Sorry for resurrecting an old thread, but I'm trying to use this functionality and am hitting a compile error:

Code: [Select]

config.pas(49,79) Fatal: Syntax error, "=" expected but "const string" found

which corresponds to right before

Code: [Select]

'user32'.

(I'm trying to implement an idle timer based on the code here).

Thanks,

FM

[Jurassic Pork]

hello,
for your idle timer why do you not use the component tidletimer ( system components tab) ?
Blaazen in another post explains what is it :

Well, when TIdleTimer.AutoEnabled=False then it behaves just like normal TTimer.
If you switch to Enabled:=False and AutoEnabled:=True then (in default configuration, i.e. AutoStartEvent=itaOnIdle and AutoEndEvent=itaOnUserInput) this timer raises events on IDLE (= when nothing happens, i.e. you don't move move, no clicks, no keyboard input etc.)

so, to use this component in a form for no activity detection, for example put a tidletimer in your form with properties :
AutoEnabled :  True
AutoEndEvent :  itaOnUserInput
AutoStartEvent : itaOnIdle
Enabled : False
Interval : 60000

and for OnTimerEvent this procedure :

Code: [Select]

procedure TForm1.IdleTimer1Timer(Sender: TObject);
begin
  showmessage('no activity during one minut');
end;   
Friendly, J.P

[fatmonk]

Aha, thanks! It was the config I had wrong... I tried that component but couldn't quite figure the config out.

Next question - how do you reset the timer once it's reached it's idle time interval?

And this could ruin the whole idea.. is there any way to measure system idle time (lack of user input) rather than application idle time. I realise this is not fool proof and doesn't take account of a user reading a long text or watching a video etc, but it would get me at least part of the way in what I'm trying to build.

Thanks,

Dan