Database 版 (精华区)

发信人: mengy (LEAR DLLS 命令时，将从内存中清除), 信区: Database
标  题: VFP避免应用程序的多个例程
发信站: 哈工大紫丁香 (2000年12月06日20:16:56 星期三), 站内信件

避免应用程序的多个例程

作者：陈津

有一次，一个用户给我打电话：“软件不好用，速度奇慢！”。我飞身赶赴现场，
发现他同时运行了同一个程序的八个例程，造成系统资源不足。关闭多余的例程后
，一切恢复正常。后来我在程序中加了几句话，解决了这个问题。 

Declare Integer FindWindow In Win32API String cClass, String cCaption 
　 
If FindWindow(0, "应用程序标题") # 0 
　 
= MessageBox("该应用程序已经运行。") 
　 
Return .F. 
　 
Endif 
注意： 

FindWindow的第二个参数为该应用程序的标题，即_screen.caption, 比如，某某
管理系统。 
用Declare 声明时FindWindow时，大小写不能错。 
--

       大海无边天做岸
               山登绝顶我为风

※ 来源:·哈工大紫丁香 bbs.hit.edu.cn·[FROM: 202.118.227.121]
※ 修改:·CF 於 12月07日18:05:52 修改本文·[FROM: 202.118.227.121]