Check if user Locked/Unlocked Windows from my Software

[hebert_j_vargas]

Hi, as mentioned on the subject, I searched on msdn SessionSwitchReason.SessionLock, but I'm unable to understand how to implement on harbour+Fwh
Here:
https://msdn.microsoft.com/en-us/library/microsoft.win32.sessionswitchreason(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1
and
https://msdn.microsoft.com/en-us/library/microsoft.win32.sessionswitcheventargs(v=vs.110).aspx?cs-save-lang=1&cs-lang=vb#code-snippet-1

Please help!

[hebert_j_vargas]

+Up

[hebert_j_vargas]

Up!++

[James Bott]

I don't know if this will work, but try this:

Code: Select all  Expand view

Function isWindowsLocked()
    Local lLocked:=.f.
    if getForegroundWindow() == 0  // Screen saver or login screen is foreground
      lLocked:=.t.
    endif
Return lLocked

 

James

[hebert_j_vargas]

I don't know if this will work, but try this:

Code: Select all  Expand view

Function isWindowsLocked()
    Local lLocked:=.f.
    if getForegroundWindow() == 0  // Screen saver or login screen is foreground
      lLocked:=.t.
    endif
Return lLocked

 

James

Thank's James, It Worked Flawlessly!!!

[James Bott]

Hebert,

Glad to hear it.

I am curious why you needed this? Maybe its something some of the rest of us might use too, if we knew what kind of a problem it solves.

James

[nageswaragunupudi]

Mr James
Wonderful idea

[hebert_j_vargas]

Hebert,

Glad to hear it.

I am curious why you needed this? Maybe its something some of the rest of us might use too, if we knew what kind of a problem it solves.

James

James I have an application receving messages from other users (not a chat), if the user leave the computer alone, after a while in idle mode Windows will get locked automaticaly and I need to inform other user's that this user is not in from of the desk, so request or messages can be send to other user or operator, that's the reason I need to check if Windows is Locked, and many thank's for you interest.

[James Bott]

Hebert,

Well, that is a very good use. Congrats on thinking of how to accomplish it!

I'm going to record that in my bag of tricks.

Feel free to make some more contributions here when you come up with ideas like this.

James

[hebert_j_vargas]

Hebert,

Well, that is a very good use. Congrats on thinking of how to accomplish it!

I'm going to record that in my bag of tricks.

Feel free to make some more contributions here when you come up with ideas like this.

James

Bag of tricks, hum! I'll take this idea as well, I'm eager to contribute and many thank's James.