Hi All:
This works in VFP as well as FPW 2.x. Not a big deal, but...
*!*******************************************************************
*! Program...........: TrueQuit (with apologies to John Wayne)
*! Author............: David Lee Powell
*! Project...........: Common
*! Created...........: 11-Nov-1994
*! Copyright.........: None, Public Domain
*) Description.......: Intercept a double-click on VFP's main screen
*) : and prompt for confirmation of Quit.
*) : Place this program in your VFP's directory.
*! Syntax............: None
*! Parameter list....: None
*! Major change list.: None
*! Called by.........: CONFIG.FPW, as follows:
*! : COMMAND = ON SHUTDOWN DO \VFP5\TrueQuit
*! Calls.............: None
*!*******************************************************************
LOCAL lnQuit
lnQuit = MESSAGEBOX("Do you really want to Quit?", 20, "Quit" )
IF lnQuit = 6 && Yes button pressed
QUIT
ENDI
----------------------------------------------------------------------
Short and to the point. It has saved me from careless mousing.
David in Dallas.
--- Maximus/2 3.01
---------------
* Origin: * MacSavvy OS/2 BBS * Dallas, Texas * 972-250-4479 * (1:124/1208)
|