Help: How can I detect system power shutdown, logoff, etc.

[dhaine_adp]

Hello all,

Has anyone got a code to detect logoff, shutdown, restart, hibernate, sleep and suspend in windows?

If I have an application that logs the time or duration (start time and end time) and if windows suddenly restarted, logoff by user without closing the application. So at least if the shutdown, logoff event is detected I can update the "End Time and End Date" and then close the app. I believed I cannot prevent the shutdown and I don't to intefere with it. What I wanted is simply update and closed the Apps.

Is this possible with HMG? Any help and advise is welcome..

Regards,

Danny

[gfilatov]

Hello all,

Has anyone got a code to detect logoff, shutdown, restart, hibernate, sleep and suspend in windows?

If I have an application that logs the time or duration (start time and end time) and if windows suddenly restarted, logoff by user without closing the application. So at least if the shutdown, logoff event is detected I can update the "End Time and End Date" and then close the app. I believed I cannot prevent the shutdown and I don't to intefere with it. What I wanted is simply update and closed the Apps.

Is this possible with HMG? Any help and advise is welcome..

Hello Danny,

Yes, it is possible with HMG. You should trap the Windows messages WM_QUERYENDSESSION and WM_ENDSESSION in your local function Events(). Please be so kind to revise a working skeleton of program for Minigui Extended and try to adapt this code for HMG.

Code: Select all

#include "minigui.ch"

#define APP_TITLE "Hello World!"

/*
*/
Function Main

	SET EVENTS FUNCTION TO MYEVENTS

	DEFINE WINDOW Win_1 ;
		AT 0,0 ;
		WIDTH 400 ;
		HEIGHT 400 ;
		TITLE APP_TITLE ;
		MAIN

	END WINDOW

	CENTER WINDOW Win_1
	ACTIVATE WINDOW Win_1

Return


#define WM_QUERYENDSESSION              0x0011
#define WM_ENDSESSION                   0x0016

*------------------------------------------------------------------------------*
function MyEvents ( hWnd, nMsg, wParam, lParam )
*------------------------------------------------------------------------------*

	do case

	case nMsg == WM_QUERYENDSESSION

               MSGINFO("OK", "QUERY")
               Return 1  // try 0 to block the exit

	case nMsg == WM_ENDSESSION

               MSGINFO("OK", "END")
               Return 1

	otherwise

		Events ( hWnd, nMsg, wParam, lParam )

	endcase

Return (0)

Hope that give you an idea

[dhaine_adp]

Hi Grigory,

Thank you very much for posting. I will try your code.


Regards,

Danny