【PB案例学习笔记】-15怎样限制应用程序运行次数？

本文主要是介绍【PB案例学习笔记】-15怎样限制应用程序运行次数？，希望对大家解决编程问题提供一定的参考价值，需要的开发者们随着小编来一起学习吧！

写在前面

这是PB案例学习笔记系列文章的第15篇，该系列文章适合具有一定PB基础的读者。

通过一个个由浅入深的编程实战案例学习，提高编程技巧，以保证小伙伴们能应付公司的各种开发需求。

文章中设计到的源码，小凡都上传到了gitee代码仓库https://gitee.com/xiezhr/pb-project-example.git

gitee代码仓库

需要源代码的小伙伴们可以自行下载查看，后续文章涉及到的案例代码也都会提交到这个仓库【pb-project-example】

如果对小伙伴有所帮助，希望能给一个小星星⭐支持一下小凡。

一、小目标

本次案例中，我们实现这么一个需求。应用程序已经在运行的时候，若再次双击应用程序运行程序，

则弹出提示框提示：应用程序已启动，请勿多次启动。

这样的需求在日常开发中也是经常遇到的，其实这个功能实现起来非常简单。

应用程序多次启动弹框提示

二、实现思路

程序运行时，窗口一般是由Application的Open事件打开，如果在Open事件中以系统主窗口的标题Title作为依据，

若有其他与此Title同名应用程序运行，再想启动此程序就可以判断出程序是否在运行，从而实现限制程序运行次数功能了

三、创建程序基本框架

① 新建examplework 工作区

② 新建exampleapp应用

③ 建立w_main 窗口，Title设置为"应用程序运行次数"

由于篇幅原因，以上步骤不详细展开，如果忘记了的小伙伴可以翻一翻之前的文章

④ 简单进行界面布局

我们在w_main窗口上新建3个StaticText,分别命名为st_1、st_2、st_3。修改3个控件的Text属性如下

控件布局

四、编写代码

双击开发界面左边的System Tree中的exampleapp应用对象

① 在Declare Global External Functions选项卡中添加动态库user32引用

FUNCTION long FindWindowA( ulong Winhandle, string wintitle ) Library "user32"

②在其Open事件中添加如下代码

ulong l_handle,lu_class
string ls_name
ls_name = "应用程序运行次数"
l_handle = FindWindowA(lu_class,ls_name)
if l_handle > 0 thenMessageBox("提示信息","应用程序" + This.AppName + "已经启动，请勿多次启动！")halt close
elseopen(w_main)
end if