在 Delphi 开发中，作者需要实现一个功能：检查特定外部程序是否运行，并根据运行状态执行相应操作。通过搜索资料和自我实践，作者编写了一个函数，能够在按钮事件中调用，用于判断程序是否运行。若运行，则显示消息提示；若未运行，计划通过指定路径启动程序。目前函数仅实现判断，尚无法实现运行时主窗口的打开或置顶，期待社区帮助完善。
前段时间在写一个工具型小软件时需要实现“在触发某个控件的一个事件时，判断某个外部程序（exe）是否已经运行，如果运行则将该程序主窗体打开或窗口置顶，如果没有运行，就通过一个自己指定的路径打开该应用程序”，虽然逻辑上看上去非常easy，但是本人确实没有写过，于是开始搜索资料，无奈很多资源都无法实现需求。。。so，自己动手，丰衣足食；
虽然耗时较长，还是整出来了，以下是通过函数在一个button事件中调用的。
//下行代码加入到pas文件代码起始处use中，使用 TLHelp32 单元
uses TLHelp32 //注意不要遗漏此项，省的多按一次run
//创建自定义函数（寻找进程）
最低0.47元/天 解锁文章
扫一扫
2848
被折叠的 条评论
为什么被折叠?
到【灌水乐园】发言
