VFP 查看程序是否打开

local windowbt

windowbt="重庆康华医院--办公信息管理软件--"

declare integer FindWindow in WIN32API string,string

if findwindow(0,windowbt) != 0

MESSAGEBOX("本系统已经运行了！",48,"系统信息")

quit

endif