shutdown.prg

别处找来的红虎日记源代码

if isNormalShut=.t.
   quit
endif   
set message to "您将关闭红虎日记..."
if isNoticeAlarm=.T.
   n=messagebox("关闭程序后，将得不到提醒内容，是否真的要退出？",1+48+256,"您将关闭红虎日记...")
   if n=1
    screen_left=_screen.left
    screen_top=_screen.top
    screen_width=_screen.width
    screen_height=_screen.height     
    screen_state=_screen.windowstate
     _screen.hide
     save to &cIniFile
     isNoticeAlarm=.F.
     _screen.windowstate=1
     quit
   endif
else
	screen_left=_screen.left
	screen_top=_screen.top
	screen_width=_screen.width
	screen_height=_screen.height
    screen_state=_screen.windowstate
     _screen.hide
     save to &cIniFile
     _screen.windowstate=1
     quit
endif   

retu