Delphi 中实现判断某个外部程序是否运行（如果运行则执行一个命令否则执行一个命令）

最新推荐文章于 2023-12-02 12:24:28 发布
原创 最新推荐文章于 2023-12-02 12:24:28 发布 · 7.8k 阅读 · 3 ·
CC 4.0 BY-SA版权
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
文章标签：

#delphi #判断某个外部程序是否运行 #函数

在 Delphi 开发中，作者需要实现一个功能：检查特定外部程序是否运行，并根据运行状态执行相应操作。通过搜索资料和自我实践，作者编写了一个函数，能够在按钮事件中调用，用于判断程序是否运行。若运行，则显示消息提示；若未运行，计划通过指定路径启动程序。目前函数仅实现判断，尚无法实现运行时主窗口的打开或置顶，期待社区帮助完善。

前段时间在写一个工具型小软件时需要实现“在触发某个控件的一个事件时，判断某个外部程序（exe）是否已经运行，如果运行则将该程序主窗体打开或窗口置顶，如果没有运行，就通过一个自己指定的路径打开该应用程序”，虽然逻辑上看上去非常easy，但是本人确实没有写过，于是开始搜索资料，无奈很多资源都无法实现需求。。。so，自己动手，丰衣足食；

虽然耗时较长，还是整出来了，以下是通过函数在一个button事件中调用的。

//下行代码加入到pas文件代码起始处use中，使用 TLHelp32 单元

uses TLHelp32 //注意不要遗漏此项，省的多按一次run

//创建自定义函数（寻找进程）
function FindProcess(AFileName: string): boolean;//
最低0.47元/天 解锁文章
软考中级-软件设计师 知识点整理（一篇就过了 建议收藏）
片言可决讼，半纸能缚龙
09-23 16万+
软考中级-软件设计师上午题知识点总结
DirectX11学习笔记一 渲染一个三角形
MaxLykoS的博客
10-27 3439
  这两个月我看了看数据可视化，又看了看OpenCV，草稿箱里的东西阅存越多，最后还是决定入坑计算机图形学了。因为本科的时候学过一点OpenGLES和计算机图形学原理，再加上自己对游戏开发感兴趣，所以不打算再继续跟老师的方向走了。本来选现在的老师是打算学学游戏服务器的，奈何失算了，o(︶︿︶)o 唉。   本学习笔记的原始素材来自龙书DirectX11，代码来自GitHub。   不打算照抄别人博...
Delphi 获取系统当前进程、窗口句柄、文件属性以及程序运行状态
dkopg24406的专栏
08-13 1056
uses TLHelp32,PsAPI;(1)显示进程列表： 1 procedure TForm1.Button2Click(Sender: TObject); 2 var 3 lppe: TProcessEntry32; 4 found : boolean; 5 Hand : THandle; 6 P:DWORD; 7 s:string; 8 ...
delphi如何判断程序是否已经打开
09-29
delphi如何判断程序是否已经打开
delphi 判断程序是否运行、自定义消息显示程序运行界面
10-15 1905
view source中代码 var   mymutex: THandle; begin   mymutex:=CreateMutex(nil,True,'检测进程运行工具');   if GetLastError   begin     Application.Initialize;     Application.MainFormOnTaskbar := false;    
Delphi检查进程是否在运行
Newweapon's Trace
06-19 1286
From: http://www.cnblogs.com/taobataoma/archive/2007/08/20/862668.html{ Check if a process from the task list is active. } uses TlHelp32; function processExists(exeFileName: string): Boole
delphi 判断exe是否已经打开
u010636606的博客
09-12 2581
在你的工程源代码里写入下面代码：      HMutex:=CreateMutexA(nil,False,'你的窗体名');      if GetLastError=ERROR_ALREADY_EXISTS then      begin         MessageBox(0,'程序已运行,请勿重复运行！','提示',MB_OK+MB_ICONHAND);
【Delphi】运行程序时自动检查程序是否已经有一个实例在运行
BlueStorm的博客
01-04 1382
//uCheckAppRunning.pas： unit uCheckAppRunning; //检查程序是否已经在运行，不允许运行多个实例 interface uses System.SysUtils, System.Classes, Winapi.Windows, Vcl.Forms, Winapi.Messages, Vcl.ExtCtrls, Vcl.Menus, Vcl.Dialogs, Winapi.TlHelp32, Winapi.PsAPI; type TShow...
Delphi实现网卡检测与启停控制源码
在Delphi中调用这些函数时，必须正确声明外部链接，并处理返回码以判断操作是否成功。此外，由于此类操作涉及系统核心权限，程序往往需要以管理员身份运行，否则将因权限不足而导致调用失败。 另一个可行的技术路径...
基于SSDT钩子的Delphi驱动级进程防护
在Hook函数中，我们可以检查传入的进程ID是否是我们要保护的目标进程，如果是，则返回一个无效句柄或直接拒绝访问，从而让调用方误以为该进程不存在或无权操作，达到“进程无法被关闭”的效果。 压缩包中的`ntddk....
Delphi 检测程序是否运行，全屏抓图、修改计算机名称.rar
07-10
Delphi7.0与Windows编程示例，检测程序是否运行，捕获全屏图像并抓图（截屏）、修改计算机名称，要实现这一功能，以下代码是关键： 　　SourceDC:=CreateDC('DISPLAY','','',nil);{创建源设备环境，DISPLAY为显示器} 　　DestDC:=CreateCompatibleDC(SourceDC); 　　BHandle:=CreateCompatibleBitmap(SourceDC,Screen.Width,Screen.Height) ;//创建和SourceDC兼容的目标设备环境 　　SelectObject(DestDC,BHandle); //创建一个和SourceDC兼容的内存设备环境，并返回其设备句柄 　　BitBlt(DestDC,0,0,Screen.Width,Screen.Height,SourceDC,0,0,SRCCOPY) ; //抓图 　　Bitmap:=TBitmap.Create; //Bitmap为TBitmap类型 　　Bitmap.Handle:=BHandle; 　　Bitmap.SaveToFile('C:\My Documents\FullScreen.bmp') ; 　　DeleteDC(DestDC) ; 　　ReleaseDC(BHandle,SourceDC) ; //释放设备环境 　　注：通过本例子改变计算机在网络中的名字，重新启动后才生效。
delphi 自动抓取当前活动窗体
07-09
delphi 自动抓取当前活动窗体非常不错
delphi中如何查看某个程序在进程中是否已经存在
my147的专栏
06-17 498
uses TLHelp32 注意 function FindProcess(AFileName: string): boolean; var hSnapshot: THandle;//用于获得进程列表 lppe: TProcessEntry32;//用于查找进程 Found: Boolean;//用于判断进程遍历是否完成 begin Result :=False; hSnapshot := CreateToolhelp32Snapshot(TH32CS...
delphi 查看windows后台进程是否运行
qin_yaping的博客
09-05 1002
function TfmLogin.FindProcess(AFileName: string): boolean; var   hSnapshot : THandle;   lppe : TProcessEntry32;   Found : Boolean; begin   Result := False;   hSnapshot := CreateToolhelp32Snapsh
Delphi 判断exe是否以管理员身份启动
angchen2660的博客
11-13 479
1 1：获取程序运行的用户名 2 function GetProcessIdentity(): String; 3 var 4 hToken: THandle; 5 UserName, UserDomain: String; 6 cbName, cbDomainName: ULONG; 7 ReturnLength: DW...
怎样知道我的程序是否运行在DELPHI?
laoli的专栏
10-05 1283
function IsAppRunningInDelphi : boolean; var   hKernelDll : THANDLE;   proc_IsDebuggerPresent : TProcIsDebuggerPresent;   useFindWindow : boolean;   proc : FARPROC; begin   useFindWindow := true;   if
Delphi中如何查看某个程序在进程中是否已经存在
msgsun的博客
11-26 843
function FindProcess(AFileName: string): boolean; var hSnapshot: THandle;//用于获得进程列表 lppe: TProcessEntry32;//用于查找进程 Found: Boolean;//用于判断进程遍历是否完成 begin Result :=False; hSnapshot := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);/...
Delphi进程判断
坦然
08-14 1454
program Project2; uses windows,TLHelp32; function FindProcess(AFileName:string):boolean; var hSnapshot:THandle; lppe:TProcessEntry32; Found:Boolean; begin Result:=F
【Delphi】 查找一个程序进程 关闭进程
最新发布
fogbow622的博客
12-02 534
【Delphi】 查找一个程序进程 关闭进程
Delphi 实现单例模式：控制程序只运行一个实例
在Delphi编程中，有时候我们需要确保我们的应用程序只运行一个实例。这可以通过多种方法实现，但常见的一种方式是使用Windows API中的互斥体（Mutex）对象。本文将详细讲解如何使用Delphi来实现“只允许运行一个exe...
评论
成就一亿技术人!
拼手气红包6.0元
还能输入1000个字符  | 博主筛选后可见
 
红包 添加红包
表情包 插入表情
表情包 代码片
 条评论被折叠 查看
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值