Alt+F4 2

[ShyFox]

Hy,
Have a tiny litle question.
How can I make my application not to respond to a brutal Alt+F4?
And can I make my app invisible from the task manager?
Regards

 

[Mike Gagnon]

ShyFox

How can I make my application not to respond to a brutal Alt+F4?

ON KEY LABEL ALT+F4 *

can I make my app invisible from the task manager?

http://msdn.microsoft.com/library/default.asp?url=/library/en-us/win9x/95func_3t0z.asp

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ShyFox]

Mike,
Thank you for the link. You helped a lot. Now, about Alt+F4, where must I insert this code. I tried inserting into main form's KeyPress Event. It doesn't work. Must I insert it in the main program? Or other event?

Regards

 

[Mike Gagnon]

ShyFox

Must I insert it in the main program? Or other event?

Main program.
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[ShyFox]

Thank you Mike!

Regards.

 

[wgcs]

Perhaps a better way to prevent this kind of shutdown would be to use

ON SHUTDOWN Do CloseMyProg

PROC CloseMyProg
* if you want to close:
QUIT
* if you don't want to close, just:
RETURN

 

[Mike Gagnon]

WGCS

Have you tested ATL+F4 with your suggestion? Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[wgcs]

Yup... though I only showed pseudocode for the actual routine... this will display a messagebox before closing, and not close if you choose No:

ON SHUTDOWN do Closeit

* Put this in a file called CloseIt.prg
#define MBRYES      6
#define MBRNO       7
#define MBXYESNO    4
PROC CloseIt
If messageBoX('are you sure?',mbxYesNo)=mbrYes
  QUIT
endif
RETURN

 

[Mike Gagnon]

wgcs

Yup... though I only showed pseudocode for the actual routine... this will display a messagebox before closing, and not close if you choose No:

Interresting that VFP would take over a Windows command...
Star for you for testing it.

Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[wgcs]

It's not really a windows command: the Alt+F4 is the Accelerator key for the Close command on the system menu in what used to be the "minus" menu in the top left corner of the application window (Win3.1) and is now the "icon" system menu in the same spot.

That close command just sends the normal "WM_CLOSE" message to the application, which is the same message sent when you click the "X" in the top right corner... and both are trapped by VFP and the ON SHUTDOWN command is run.

This uses the "normal" path instead of making VFP try to trap the ALT+F4 key before it's own accelerator key catches the keypress, which seems to work, anyway, too.

 

[Mike Gagnon]

wgcs

It's not really a windows command:

I just meant that if you have nothing running and you click on your desktop, and use ALT-F4 it will prompt the shutdown screen.
Mike Gagnon

If you want to get the best response to a question, please check out FAQ184-2483 first.

 

[wgcs]

That sends a WM_CLOSE message to the Program Manager window ... just like:

DECLARE INTEGER FindWindow in win32api as apiFindWindow ;
 STRING @cClass, STRING cName

Declare INTEGER SendMessage in user32 ;
  as apiSendMessage INTEGER hWnd, INTEGER nMsg, ;
  INTEGER nParam1, INTEGER nParam2

DECLARE INTEGER GetDesktopWindow in Win32Api
whnd=getDesktopWindow()
?"Desktop ",whnd
whnd=apiFindWindow( 0,"Program Manager")
?"Program Manager ",whnd

apiSendMessage( wHnd, 0x10, 0,0 )  && 0x10=WM_CLOSE