疯狂的VFPER之禁止程序多次执行

    一晃真正用VFP写程序也已6年多了，大大小小也做了几十个系统，曾经有多少个日夜坐在电脑前敲打着空格、回车...，突然发现我在论坛上回贴的多，发贴的少，决定痛改前非:)...闲话少说，言归正传，我会陆续将我的部份VFP代码给大家分享(并不一定都是我的原创，有些是在其他VFPER的代码上改的)。



疯狂的VFPER之禁止程序多次执行，将以下的代码放在程序开始即可：
Public Handle
DECLARE INTEGER CreateFileMapping IN kernel32.DLL INTEGER hFile, ;
        INTEGER lpFileMappingAttributes,integer flProtect, ;
        INTEGER dwMaximumSizeHigh, INTEGER dwMaximumSizeLow, ;
        STRING lpName
DECLARE INTEGER GetLastError IN kernel32.DLL
DECLARE INTEGER CloseHandle IN kernel32.DLL INTEGER hObject
szname="hello"
Handle = CreateFilemapping(0xFFFFFFFF,0,4,0,128,szname)
If handle = 0
     Wait Windows "CreateFileMapping 失败 - LastError: " ;
        + Ltrim(Str(GetLastError()))
     Return
Endif
If Handle=0
   Messagebox("内存映谢文件创建失败！",46,"错误")
   Clear Events
   Return .F.
Else
   If GetLastError()=183
      Messagebox("该应用程序已经运行！",16,"提示")
      Clear Events
      Return .F.
   Endif
Endif

我使用一个按钮的“click”来调用另一个表单：do form，在do form前加入你得代码，第一次可以do form，关闭调用的表单，再一次按按钮调用，都是：Messagebox("该应用程序已经运行！",16,"提示")，再也无法调用了。
    使用一个按钮的“click”来调用另一个表单：do form，有个情况是你点击几次按钮，将出现几个同样的表单，我想的是表单的调用，判断已经调用没有，有则使之前端显示，无则调用之，就不会击几次按钮，将出现几个同样的表单的情况了！
    不知这样的代码如何？？？

if vartype(表单文件名)="O"
   Messagebox("该表单已经运行！",16,"提示")
endif