能否提供一个简单地编码？

补充回答楼主问题：可以用 MyFll.Fll的idleLoad（）函数。
SET library to lib\MyFll.Fll
idleLoad("MessageBox('系统空闲，5分钟后将自动退出！',48,'提示')",300)
idleLoad("do prg\quit.prg",300)

代码加入到主程序中即可。

[此贴子已经被作者于2023-1-18 09:16编辑过]

表单、预览的报表都可以用代码关闭，或者试试QUIT。

用GetLastInputInfo()的简单示例

DECLARE long GetLastInputInfo IN user32 string@
of = CREATEOBJECT("Form1")
of.show(1)
CLEAR ALL 
RETURN

DEFINE CLASS Form1 As Form 
    AutoCenter=1
    AllowOutput=0
    
    nLastInputTime = 0
    nLastTime = 0
    
    ADD OBJECT Timer1 AS Timer WITH Interval=1000
    ADD OBJECT Text1 AS TextBox WITH Top=10,Left=10,Value=0

    PROCEDURE Timer1.Timer
        IF INT(thisform.myGetLastInputInfo()/1000) == thisform.nLastInputTime
            IF (INT(SECONDS()) - thisform.nLastTime) > 10
                MESSAGEBOX("鼠标键盘无动作超过10秒关闭退出")
                thisform.Release
            ELSE
                thisform.Text1.Value = thisform.Text1.Value + 1
            ENDIF
        ELSE
            thisform.nLastInputTime = INT(thisform.myGetLastInputInfo()/1000)
            thisform.nLastTime = INT(SECONDS())
            thisform.Text1.Value = 0
        ENDIF
    ENDPROC

    FUNCTION myGetLastInputInfo
        LOCAL lii
        lii = 0h0800000000000000    && struct LASTINPUTINFO
        GetLastInputInfo(@lii)
        RETURN CTOBIN(RIGHT(lii, 4), "4RS")
    ENDFUNC
ENDDEFINE

请教表单、预览的报表可以用什么代码关闭？quit不行。

8楼的办法可取。定义一个全局的时间变量，在程序中有任何鼠标或键盘操作时则更新这个时间变量，在程序中随时检测这个时间变量与当前时间的差，符合预定值后立即执行关闭程序的代码。

可以用close all来关闭已经打开的表、表单、报表等，然后再执行quit。

quit.prg使用了：
CLOSE All &&关闭各种类型的文件，但不关闭命令窗口、调试窗口、帮助、跟踪窗口。
CLOSE Database &&关闭所有数据库
Clear Menus &&释放内存中所有的菜单定义。
Release ALL EXTENDED &&释放内存中所有变量。
Clear Popups &&释放内存中所有用DEFINE POPUP命令创建的菜单定义。
Clear Windows &&释放内存中所有用户自定义窗口的定义，并从VFP主窗口或活动的用户自定义窗口中清除窗口。
Clear &&清屏
QUIT &&退出
其中还有其他数据库操作代码，估计有影响自动退出功能！
另说明：
【idleLoad("do prg\quit.prg",300)】中的“300”可以用全局变量替代，程序中可自定义！

发现预览的报表很难用程序代码关闭！

异步打开应该可以，加个NOWAIT子项试试