如何判断某个可执行文件已经在进程里？

[crecrecre]

VFP8
不管用户怎么修改可执行文件名都知道是这个可执行文件？
不是判断窗口的caption。
因为在打开窗体之前，有一个prg文件在运行，这时已经在进程里了。不让这个可执行文件执行两次。

[crecrecre]

wait

[lc_apple]

用这个函数：
PARAMETERS csWinName
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=ALLTRIM(csWinName)
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