发出quit命令应该可以关闭所有的，除非没有发出clear event！

实现的代码很简单啊。
主程序里加以下代码:
public X
X=datetime()

在你的文本框的interchange以及form的mousemove里加以下代码：
X=datetime()

定时器里的代码:
ntime=datetime()-X
if ntime>300
    clear event
    quit
endif

*系设定参数a1为自动关闭的秒数，代码加入到主程序中。
SET library to lib\MyFll.Fll
idleLoad("do prg\quittime.prg",a1)

**quittime.prg代码
if _SCREEN.FORMCOUNT>1  &&获取已经打开的预览窗口数量
FOR I = 1 TO _SCREEN.FORMCOUNT
    KEYBOARD '{CTRL+F4}' &&用键盘命令依次关闭预览窗口（包含打印预览）
ENDFOR
else
   clear event
   quit
ENDIF

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

VFP的form默认好似是用 Alt+F4

Alt+F4 是退出vfp编译的程序，但有时也不行。
Ctrl+F4 是关闭程序打开的窗口而不退出程序。

[此贴子已经被作者于2023-1-27 12:11编辑过]

是关闭的窗口，我的VFP是Alt+F4，用Ctrl+F4关闭不了窗口。

ctrl+F4是关闭子窗口

myfll里面有个函数可以解决这个问题

都要强退了，哪有这么多讲究。

Declare Long TerminateProcess In Win32Api Long, Long
Declare Long GetCurrentProcess In Win32Api
TerminateProcess(GetCurrentProcess(), 0)