本文整理自网络,侵删。
全部源代码如下(无窗体结构,最后面有说明):program Project1;
usesWinprocs,SysUtils,Tlhelp32;//注意添加单元文件
function KillTask(ExeFileName:string):integer;//杀进程函数KillTaskconst PROCESS_TERMINATE = $0001; varContinueLoop: BOOLean;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;
//调用上面的函数KillTaskbegin//杀进程,停止程序KillTask('abc.exe');//调用函数,杀你的程序abc.exe//重新启动程序WinExec('abc.exe',SW_SHOW);//然后再重新启动abc.exeExit;end.//=========================================
//【说明】编译后的Project1.exe是一个无窗体的EXE程序//方法:创建一个CONSOLE application 把{$APPTYPE CONSOLE}删了,这个就是一个基本的应用程序框架,//不显示任何东西,再在里面写东东,程序很小。写在这里共享,怕日后在自己电脑里找不到^_^(笔记,2006.11.23)――――――――――――――――
原文链接:https://blog.csdn.net/Trassion/article/details/50554130
相关阅读 >>
Delphi ioutils 单元(6): tpath(结构体)路径的提取和处理
Delphi adoconnection1连接mssql数据库方法
更多相关阅读请进入《Delphi》频道 >>