KillTask

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.