用Delphi结束一个Windows电脑进程

谁践踏了优雅 2022-11-14 14:46 229阅读 0赞

引用单元：TlHelp32;

函数代码：

function KillTask(ExeFileName: string): Integer;
    const
      PROCESS_TERMINATE = $0001;
    var
      ContinueLoop: BOOL;
      FSnapshotHandle: THandle;
      FProcessEntry32: TProcessEntry32;
    begin
      Result := 0;
      FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);
      FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
      ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);
     
      while Integer(ContinueLoop) <> 0 do
      begin
        if ((UpperCase(ExtractFileName(FProcessEntry32.szExeFile)) =
          UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFile) =
          UpperCase(ExeFileName))) then
          Result := Integer(TerminateProcess(
                            OpenProcess(PROCESS_TERMINATE,
                                        BOOL(0),
                                        FProcessEntry32.th32ProcessID),
                                        0));
         ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
      end;
      CloseHandle(FSnapshotHandle);
    end;

调用[汉武帝药枕][Link 1]代码：

procedure TForm1.Button1Click(Sender: TObject);
    begin
      KillTask('notepad.exe');
    end;

[Link 1]: http://www.taishanlaofu.com

发表评论取消回复

表情：

评论列表（有 0 条评论，229人围观）

还没有评论，来说两句吧...

相关阅读

相关 Windows杀死结束进程图形化界面操作方法

![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_aHR0cHM6Ly9ibG9nLmNzZG4ub

朱雀/ 2023年10月07日 11:49/ 0 赞/ 50 阅读

相关电脑（Windows）常用快捷键

简述：实用的键盘快捷键是一个程序员的必备技能，下面给大家整理了一下常用的键盘快捷键； -------------------- ⭐Ctrl+P 打开“打印机”对话框；

阳光穿透心脏的1/2处/ 2023年10月04日 20:40/ 0 赞/ 73 阅读

相关 windows下按照端口号查找和结束进程

有时候我们本地开发微服务的时候不小心后台运行了，需要找到并关掉。在linux下的命令我们都比较熟悉只要grep和kill命令就可以了。windows下的相对比较生僻，记录mar

小鱼儿/ 2023年06月25日 08:17/ 0 赞/ 5 阅读

相关 mysql 批量结束进程,批量结束杀进程 Windows Autohotkey

![2bd11309bceb9238bbaef5355b9fa2e8.png][] do\_not\_kill = ( cmd.exe conhost.exe csr

拼搏现实的明天。/ 2023年01月14日 03:58/ 0 赞/ 308 阅读

相关 Windows下查看端口占用情况,结束端口进程

1.win+R 输入cmd 打开命令提示符 ![在这里插入图片描述][watermark_type_ZmFuZ3poZW5naGVpdGk_shadow_10_text_a

亦凉/ 2023年01月12日 14:55/ 0 赞/ 301 阅读

相关用Delphi结束一个Windows电脑进程

引用单元：TlHelp32; 函数代码： function KillTask(ExeFileName: string): Integer; const

谁践踏了优雅/ 2022年11月14日 14:46/ 0 赞/ 230 阅读

相关 Windows 进程 Tasklist查看与 Taskkill结束

查看本机所有进程 1、查看本机进程，在“命令提示符”中输入Tasklist 命令即可显示本机的所有进程，本机的显示结果由5部分组成：图像名(进程名)、PID、会话名、会话

﹏ヽ暗。殇╰゛Y/ 2022年09月06日 15:24/ 0 赞/ 361 阅读

相关 linux结束进程

一、结束进程的五种方法 1、正常结束（1）main函数调用return；（2）main函数调用exit函数（3）main函数调用\_exit函数 2

冷不防/ 2022年05月28日 06:56/ 0 赞/ 286 阅读

相关 windows下查看进程及结束进程命令

Windows下查看进程及结束进程命令 1)查看占用8080端口的进程号 >netstat –aon | findstr “8080” 结果：TCP 0.0.0.0:80

谁践踏了优雅/ 2022年05月19日 11:52/ 0 赞/ 283 阅读

相关怎么结束windows系统的某个系统进程和非系统进程（四——用powshell精确kill进程）

![Center][] [Center]: /images/20210923/8bdd769ed5be4f2798cf1a6e31145f90.png

骑猪看日落/ 2021年09月26日 11:12/ 0 赞/ 327 阅读