FiveTech Software tech support forums

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!

+Up

Up!++

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

James Bott wrote: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!!!

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

Mr James
Wonderful idea

James Bott wrote: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.

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

James Bott wrote: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.