我用VFP设计了一个小程序，并将其编译成可执行文件。双击这个可执行文件，运行正常。我希望再次双击它时，它不再运行，但能最大化先打开的这个运行窗口。

这个问题N年前这个论坛上就有过的——印象中的事

搜索一下，保准一大把。

不要这么无聊好不好，貌似没有什么用！

PUBL gcOldDir,vcxname

gcOldDir = SET('DEFAULT') + SYS(2003)
SET DEFA TO "&gcOldDir"
******************************************************************************
&&获取程序运行名称
Declare INTEGER GetModuleHandle IN kernel32 INTEGER lpModuleName
vcxid = ALLTRIM(STR(GetModuleHandle(0)))

Declare INTEGER GetModuleFileName IN kernel32;
INTEGER hModule,;
STRING @ lpFilename,;
INTEGER nSize

lpFilename = SPACE(250)
lnLen = GetModuleFileName (0, @lpFilename, Len(lpFilename))
vcxname = JUSTFNAME(ALLTRIM(Left (lpFilename, lnLen)))
******************************************************************************
#DEFINE ERROR_ALREADY_EXISTS 183 
DECLARE INTEGER GetLastError IN WIN32API
DECLARE INTEGER CreateMutex IN WIN32API INTEGER Security,;
SHORT Owned,;
STRING@ MutexName
DECLARE SHORT CloseHandle IN WIN32API INTEGER

PUBLIC hMutex, iResult, bCanRun
hMetux=CreateMutex(0,0,vcxname)
iResult=GetLastError()
DO CASE 
CASE iResult==0
bCanRun=.T.
CASE iResult==ERROR_ALREADY_EXISTS
MessageBox("程序已经运行。"+SPACE(2),64,"提示")
bCanRun=.F.
OTHERWISE 
bCanRun=.F.
MessageBox("GetLastError() returned "+ ltrim(str(iResult))) 
ENDCASE 

IF bCanRun ==.F.
=CloseHandle(hMutex)
QUIT
ENDIF

https://bbs.bccn.net/viewthread.php?tid=402506&highlight=%B4%F2%BF%AA

1、用VFP自身功能，因重复打开独占表会引发异常，可用独占打开表并通过VFP出错处理过程来判断是否重复运行。
2、API CreateMutex() 防止程序重复运行.
   示例：

DECLARE LONG CreateMutex  IN Kernel32 STRING@, LONG, STRING@
DECLARE LONG GetLastError IN Kernel32
DECLARE LONG CloseHandle  IN Kernel32 LONG
szPrg  = PROGRAM()
hMutex = CreateMutex(NULL, 0, @szPrg)
IF GetLastError() != 183    && ERROR_ALREADY_EXISTS
    MESSAGEBOX(szPrg + " 正常启动运行")
ELSE
    MESSAGEBOX(szPrg + " 不能重复运行")
ENDIF
CloseHandle(hMutex)
CLEAR DLLS
RETURN

在发表文章处,当打上关键词,下面就会出来已有的文章,可以点开浏览.
如

[ 本帖最后由 muyubo 于 2015-6-4 06:37 编辑 ]

已有成熟的技术，借鉴一下应该不是件坏事吧？

在这里搜索效果可能会更好些。