KillTask

最新推荐文章于 2024-06-12 15:16:24 发布

原创最新推荐文章于 2024-06-12 15:16:24 发布 · 2.2k 阅读

0 ·

CC 4.0 BY-SA版权

文章标签：

#string #integer #forms #kill #windows #system

Delphi 专栏收录该内容

35 篇文章

订阅专栏

该博客展示了一个Windows系统下用于终止指定进程的程序代码。程序通过创建进程快照，遍历进程列表，找到匹配的进程并使用ntsd命令终止。还涉及资源文件处理、配置文件读取等操作，以实现按配置终止进程的功能。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

program KillTask;

uses
SysUtils, Messages, Classes, ShellApi, Forms, Windows, TLHelp32, rwIni;

{$R CustKillTask.RES}
{$R *.res}

//brc32 CustKillTask.RC
//TsKill     kl_TsKill     D:/SoftWare/KillTask/TsKill.exe
//TaskList   kl_TaskList   D:/SoftWare/KillTask/TaskList.exe
//Ntsd       kl_Ntsd       D:/SoftWare/KillTask/Ntsd.exe
//Usage: >ntsd -c q -p PID

//KillTask.ini
//[KillTask]
//Item1=wnwb.exe

procedure Kill_Task(ExeFileName: string);
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
ProcessHandle: THandle;
ExecuteStr: string;
ParaStr: string;
begin
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
    begin
      ProcessHandle := FProcessEntry32.th32ProcessID;
      ExecuteStr := 'ntsd.exe';
      ParaStr := ' -c q -p ' + IntToStr(ProcessHandle);
      ShellExecute(Application.Handle, 'Open', pchar(ExecuteStr), Pchar(ParaStr), nil, SW_HIDE);
     { Or,But It can't close system process.
      ProcessHandle := OpenProcess(PROCESS_TERMINATE, BOOL(0), FProcessEntry32.th32ProcessID);
      TerminateProcess(ProcessHandle, 0);
     }
    end;
    ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32);
end;
end;

var
ExeFileName: string;
Items: TStrings;
i: Integer;
CustRes: TResourceStream;
ResName, ResType, ResSaveTo: string;
TaskHandle: THandle;
rwIniFile: TrwIni;
begin
Application.Initialize;
rwIniFile := TrwIni.Create(nil);
rwIniFile.RegistryPath := '/Software/Microsoft/Windows/CurrentVersion/Run';
rwIniFile.FileName := 'KillTask';

ResSaveTo := IncludeTrailingPathDelimiter(ExtractFilePath(Application.ExeName)) + 'Ntsd.Exe';
if FileExists(ResSaveTo) then
DeleteFile(Pchar(ResSaveTo));

ResName := UpperCase('Ntsd');
ResType := UpperCase('kl_Ntsd');
CustRes := TResourceStream.Create(Hinstance, ResName, pchar(ResType));
CustRes.SaveToFile(ResSaveTo);
CustRes.Free;
SetFileAttributes(Pchar(ResSaveTo), FILE_ATTRIBUTE_HIDDEN);

Items := TStringList.Create;

rwIniFile.iReadSection('KillTask', Items);
for i := 0 to Items.Count - 1 do
begin
ExeFileName := rwIniFile.iReadString('KillTask', Items[i], 'Nothing@Null');
Kill_Task(ExeFileName);
end;
rwIniFile.hkWriteString('KillTask', Application.ExeName);

FreeAndNil(Items);
FreeAndNil(rwIniFile);

if FileExists(ResSaveTo) then
DeleteFile(Pchar(ResSaveTo));

// TaskHandle := FindWindow(PChar('Shell_TrayWnd'), nil);
// MoveWindow

Application.Run;
end.