好像可以实现的，form的init里设置一个参数，cprogram，调用program()如果不是你指定的那个program名，就返回.f.

给个示例，看看是不是你想要的效果？

*！* programtest.prg
DO FORM prgtest WITH PROGRAM()

建立一个名为prgtest的 form，init里写入下面这段代码：

PARAMETERS cprogram
    IF PARAMETERS()=0 .or. UPPER(cprogram)#UPPER("programtest")
        MESSAGEBOX("你没有权限运行这个表单！")
        RETURN .f.
    ELSE
        MESSAGEBOX("这是一个指定program运行表单的示例！")
    ENDIF

[此贴子已经被作者于2023-5-17 19:27编辑过]