somebody provided me following codes, but those do not work

Pleaes modify


Maybe bindevent can help you.
The idea is to write your own handler for queryunload and bind to your forms.

*
* in your main.prg add handler to each form
*
for each m.form in _screen.forms
do myHandler with m.form
endfor


*
* myHandler.prg
*
para oForm
private o
m.o=createobject("myHandler")
=addproperty(m.oForm,"__handler", m.o)
=bindevent(m.oForm,"queryunload",m.o,"doQueryUnload")

define class myHandler as session
datasession=1

function doQueryUnload
=messagebox("Please press close button to exit",_screen.ActiveForm.caption)
nodefault
enddefine