如何让程序只运行一个副本？

2014-07-09 08:50:43 229 阅读 AI 写同款 · GEO 优化AI 选题数据监测一键分发 ›

mongodb之副本集搭建测试环境： centos 7.5 mongodb 3.4 副本集模式使用副本集模式可以将数据副本保存到多台服务器上，这是生产环境必须使用的。使用MongoDB得复制功能。即时一台或者多台服务器出错，也可以保证应用程序正常运行和数据安全。在MongoDB中，创建一个副本集后就可以使用复制功能。副本集是一组服务器，其中有一个主服务器（primary），用户处理客户端请求；还有多个备份服务器（sec 阅读详情

偶做的一个项目，已经做了下列工作：
1.程序中通过_screen.visible=.f.将VFP窗口隐藏
2.自己设计了一个主窗口（主窗口.scx），caption="我的第一个程序"，为顶层表单。

我想把这个主窗口作为我的程序主界面，如何让这个程序只运行一个副本？

...全文

三角洲行动交易行自动化脚本 DFMarketBot - 三角洲行动自动交易助手 DFMarketBot是一款专为三角洲行动游戏设计的交易行自动化工具，通过OCR识别和鼠标模拟实现自动补卡、补子弹功能。项目采用Python开发，支持Windows平台，主要功能包括：自动检测并购买指定物品（房卡/子弹）价格监控与智能购买（低于设定价格自动下单）自定义购买数量与次数限制支持窗口/无窗口两种游戏模式使用前需安装Tesseract OCR引擎并配置游戏为1920*1080分辨率。通过JSON文件可灵活配置监控物品清单、理想价格和购买策阅读详情

jinancf

VFP 2,750 成员 29,142 内容

+ 关注 + 加入社区

切换为时间正序

十豆三 2014-07-10

打赏
举报

引用 5 楼 jinancf 的回复:

还有一个问题,wait clear在这里是必须的吗?

整个 Wait 是为了你测试时是已运行了一个，还是正常运行，真正使用时完全可以不要 Wait 2句。

jinancf 2014-07-09

打赏
举报

通过了，谢谢。不过不太明白 Declare Long OpenFileMapping In WIN32API Long, Long, String Declare Long CreateFileMapping In WIN32API Long, Long, Long, Long, Long, String 这两句是什么意思，OpenFileMapping和CreateFileMapping是windows的API函数还是VFP中的API函数？在哪里能看到它们的说明？

oldbbb 2014-07-09

打赏
举报

也可用 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

十豆三 2014-07-09

打赏
举报

转帖：

方法有很多，大概分两种

1. vfp 原生的方法，主程序中独占打开一个固定的表，启动第二个实例时自然无法再打开，从而判断出已有一个实例已启动；缺点：程序异常退出时可能不会自动关闭这个固定表，因此无法再次运行。

2. api 方法很多，信号灯，互斥对象, 等等...；缺点：需要熟悉 api，写较多代码 


如下做一个最简单的 prg，编译成 exe 就知道了。这里用的是内存映射的 api 方法

_Screen.Visible = .F.

If IsRunAgain()
	Messagebox('程序已经运行。')
Else
	Wait Window Noclear '开始运行，按一个键退出 ...'
	Wait Clear
Endif
Quit

Function IsRunAgain
	Declare Long OpenFileMapping In WIN32API Long, Long, String
	Declare Long CreateFileMapping In WIN32API Long, Long, Long, Long, Long, String

	cPID = '这是我的程序'

	hFile = OpenFileMapping(4, 0, cPID)
	If 0 == hFile
		CreateFileMapping(-1, 0, 4, 0, 1+Len(cPID), cPID+Chr(0))
		Return .F.
	Else
		Return .T.
	Endif
Endfunc

jinancf 2014-07-09

打赏
举报

还有一个问题,wait clear在这里是必须的吗?

十豆三 2014-07-09

打赏
举报

API，百度搜索。

如何让程序只运行一个副本？

相关推荐