Delphi2010 关闭指定的程序进程。

//记事本
cf_KillTask('NOTEPAD.EXE');
//写字板
cf_KillTask('WORDPAD.EXE');
//WORD
cf_KillTask('WINWORD.EXE');
//QQ
cf_KillTask('QQ.EXE');
//Excel
cf_KillTask('EXCEL.EXE');
//FrontPage
cf_KillTask('FRONTPG.EXE');
//网页
cf_KillTask('IEXPLORE.EXE');
//360网页
cf_KillTask('360SE.EXE');
//画图
cf_KillTask('MSPAINT.EXE');
//DreamWeaver
cf_KillTask('DreamWeaver.exe');
function cf_KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE=$0001;
var
ExeFileNames:
String;
ProName,ProEntry:String;
ContinueLoop:
BOOL;
FSnapshotHandle:
THandle;
FProcessEntry32:
TProcessEntry32;
begin
ExeFileNames
:=
UpperCase(ExeFileName);
FSnapshotHandle
:=
CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,
0);
FProcessEntry32.dwSize
:=
Sizeof(FProcessEntry32);
ContinueLoop
:=
Process32First(FSnapshotHandle,FProcessEntry32);
while
integer(ContinueLoop)
<>
0
do
begin
ProName :=UpperCase(ExtractFileName(FProcessEntry32.szExeFile));
ProEntry := UpperCase(FProcessEntry32.szExeFile);
if
((ProName=ExeFileNames) or (ProEntry =ExeFileNames))
then
TerminateProcess(OpenProcess(PROCESS_TERMINATE,BOOL(0), FProcessEntry32.th32ProcessID),0);
ContinueLoop
:=
Process32Next(FSnapshotHandle,FProcessEntry32);
end;
CloseHandle(FSnapshotHandle);
end;

最后

以上就是负责御姐为你收集整理的Delphi2010 关闭指定的程序进程。的全部内容，希望文章能够帮你解决Delphi2010 关闭指定的程序进程。所遇到的程序开发问题。

如果觉得靠谱客网站的内容还不错，欢迎将靠谱客网站推荐给程序员好友。