如何避免多个例程的运行
出处:网络 将以下代码放在主程序开始处: cCaption="程序名称 - 红虎工作室" Declare integer FindWindow in win32api string cClass,String cCaption if FindWindow(0,cCaption)#0 _screen.caption=cCaption =messagebox("此程序已经运行,请查看任务栏!",16,"系统资源省着点用哦! ^_^ ") return .f. endif _screen.caption=cCaption [返回]
本文来自编程入门网:http://www./VFPwz/cyjs/js12.htm
|
|