delphi中結束進程

最新推荐文章于 2021-03-30 08:57:01 发布

lixianxiang

最新推荐文章于 2021-03-30 08:57:01 发布

阅读量720

点赞数

分类专栏： Delphi 文章标签： delphi integer string

本文链接：https://blog.csdn.net/lixianxiang/article/details/3725980

版权

Delphi 专栏收录该内容

7 篇文章 0 订阅

订阅专栏

uses TLHelp32; procedure TfrmSCCE100.Pvt_EndProcess(AFileName: string); const Cv_PROCESS_TERMINATE=$0001; var Lv_ExeFileName: string; Lv_ContinueLoop: BOOL; Lv_FSnapshotHandle: THandle; Lv_FProcessEntry32: TProcessEntry32; begin Lv_ExeFileName := AFileName; Lv_FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); Lv_FProcessEntry32.dwSize := Sizeof(Lv_FProcessEntry32); Lv_ContinueLoop := Process32First(Lv_FSnapshotHandle,Lv_FProcessEntry32); while Integer(Lv_ContinueLoop) <> 0 do begin if ((UpperCase(ExtractFileName(Lv_FProcessEntry32.szExeFile)) = UpperCase(Lv_ExeFileName)) or (UpperCase(Lv_FProcessEntry32.szExeFile) = UpperCase(Lv_ExeFileName))) then TerminateProcess(OpenProcess(Cv_PROCESS_TERMINATE, BOOL(0),Lv_FProcessEntry32.th32ProcessID), 0); Lv_ContinueLoop := Process32Next(Lv_FSnapshotHandle,Lv_FProcessEntry32); end; end;