Windows 底下根据一个进程的名字杀死一个进程的代码
2017-05-17 18:19
363 查看
知道一个正在运行的进程的名字,比如计算器:Calc.exe
杀死它的代码:
USES TLHelp32; //必须 Users 这个,FindProcessID 函数需要用到它。
{$R *.dfm}
function FindProcessID(s:string):integer;
var
found,find:boolean;
FSnapshotHandle:tHANDLE;
lppe:TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //CreateToolhelp32Snapshot函数得到进程快照
Find:=False;
lppe.dwSize := Sizeof(lppe); //初始化
found := Process32First(FSnapshotHandle, lppe); //Process32First 得到一个系统快照里第一个进程的信息
while found do
begin
if LowerCase(ExtractFileName(lppe.szExeFile))=LowerCase(s) then
begin
Result:=lppe.th32ProcessID; //找到进程返回ID
find:=true;
CloseHandle(FSnapshotHandle);
exit;
end;
found := Process32Next(FSnapshotHandle, lppe);
end;
CloseHandle(FSnapshotHandle);
if find=False then
Result:=0; //找不到进程返回0
end;
procedure TForm2.Button1Click(Sender: TObject);
var
ProH: THandle;
ProcID: DWord;
begin
ProcID := FindProcessID(Edit1.Text);
ProH := OpenProcess(PROCESS_ALL_ACCESS, True, ProcID);
TerminateProcess(ProH, 0);
end;
杀死它的代码:
USES TLHelp32; //必须 Users 这个,FindProcessID 函数需要用到它。
{$R *.dfm}
function FindProcessID(s:string):integer;
var
found,find:boolean;
FSnapshotHandle:tHANDLE;
lppe:TProcessEntry32;
begin
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0); //CreateToolhelp32Snapshot函数得到进程快照
Find:=False;
lppe.dwSize := Sizeof(lppe); //初始化
found := Process32First(FSnapshotHandle, lppe); //Process32First 得到一个系统快照里第一个进程的信息
while found do
begin
if LowerCase(ExtractFileName(lppe.szExeFile))=LowerCase(s) then
begin
Result:=lppe.th32ProcessID; //找到进程返回ID
find:=true;
CloseHandle(FSnapshotHandle);
exit;
end;
found := Process32Next(FSnapshotHandle, lppe);
end;
CloseHandle(FSnapshotHandle);
if find=False then
Result:=0; //找不到进程返回0
end;
procedure TForm2.Button1Click(Sender: TObject);
var
ProH: THandle;
ProcID: DWord;
begin
ProcID := FindProcessID(Edit1.Text);
ProH := OpenProcess(PROCESS_ALL_ACCESS, True, ProcID);
TerminateProcess(ProH, 0);
end;
相关文章推荐
- Windows根据端口号杀死进程
- 一个根据进程名字,返回进程id的命令
- windows下强制杀死一个进程
- Windows中根据进程名找到进程并杀死
- windows下面一个强大的杀死进程的脚本
- Windows 根据进程名杀死进程 kill
- windows系统根据端口号查看进程杀死进程
- windows下根据进程ID强制杀死进程
- windows 根据HWND获取进程名字 和结束进程源码
- Windows 下用 Delphi 代码杀死进程,或者杀死自己
- 根据名字杀死进程Killall
- 怎样在windows下杀死一个进程
- Windows下,根据端口号杀死进程
- 怎么根据进程名字杀死进程
- windows下根据端口号杀死进程
- Windows 根据进程名杀死进程 kill
- Windows下,根据端口号杀死进程(SCDN改进版)
- Windows下根据端口号杀死进程
- 根据进程名字杀死进程