摘要： Uses Windows, SysUtils, Tlhelp32; FunctionKillTask(ExeFileName:String):Integer;//关闭进程 FunctionEnableDebugPrivilege:Boolean;//提升权限 FunctionFindProcessId(ExeFileName:String):THandle;//查找进程 Implementation FunctionFindProcessId(ExeFileName:String):THandle; Var ContinueLoop:BOOL; FSnapshotHandle:THandle; 阅读全文