{
关键字=【Delphi】 查找一个程序进程 关闭进程
编程工具=Delphi 7
采集软件=MKM - 我的知识管理
采集日期=2023-12-02 12:22:07
数字签名=E5792EA0273CAFAA09999998BB9BE560
}
uses
Windows, Messages, SysUtils, Variants, Classes, Graphics,
Controls, Forms,
Dialogs, tlhelp32,
StdCtrls;
procedure TForm1.Button2Click(Sender: TObject);
var
H: thandle;
P: DWORD;
begin
{查找一个程序进程,关闭进程}
// H := FindWindow(nil, ‘DisneyDRV’);
H := FindWindow(nil, ‘tEstp1’);
if H <> 0 then begin
GetWindowThreadProcessId(H, @P);
if P <> 0 then
TerminateProcess(OpenProcess(PROCESS_TERMINATE, False, P), $FFFFFFFF);
end;
end;