Убивание процессов!

[IT-man]

uses
Tlhelp32,...

function KillTask(ExeFileName: string): Integer; 
const 
PROCESS_TERMINATE = $0001; 
var 
ContinueLoop: BOOL; 
FSnapshotHandle: THandle; 
FProcessEntry32: TProcessEntry32; 
begin 
Result := 0; 
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNA PPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32); 
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32); 

while Integer(ContinueLoop) <> 0 do 
begin 
if ((UpperCase(ExtractFileName(FProces sEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFil e) = 
UpperCase(ExeFileName))) then 
Result := Integer(TerminateProcess( 
OpenProcess(PROCESS_TERMINATE, 
BOOL(0), 
FProcessEntry32.th32ProcessID), 
0)); 
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
end; 
CloseHandle(FSnapshotHandle); 
end; 

procedure TForm1.Button1Click(Sender: TObject); 
begin
KillTask('winamp.exe');
end;

[Nice42ru]

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, Tlhelp32, StdCtrls;

type
  TForm1 = class(TForm)
    Button1: TButton;
    procedure Button1Click(Sender: TObject);
  private
    { Private declarations }
  public
    { Public declarations }
  end;

var
  Form1: TForm1;

implementation

{$R *.dfm}


function KillTask(ExeFileName: string): Integer;
const
PROCESS_TERMINATE = $0001;
var
ContinueLoop: BOOL;
FSnapshotHandle: THandle;
FProcessEntry32: TProcessEntry32;
begin
Result := 0;
FSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNA PPROCESS, 0);
FProcessEntry32.dwSize := SizeOf(FProcessEntry32);
ContinueLoop := Process32First(FSnapshotHandle, FProcessEntry32);

while Integer(ContinueLoop) <> 0 do
begin
if ((UpperCase(ExtractFileName(FProces sEntry32.szExeFile)) =
UpperCase(ExeFileName)) or (UpperCase(FProcessEntry32.szExeFil e) =
UpperCase(ExeFileName))) then 
Result := Integer(TerminateProcess(
OpenProcess(PROCESS_TERMINATE,
BOOL(0),
FProcessEntry32.th32ProcessID),
0));
ContinueLoop := Process32Next(FSnapshotHandle, FProcessEntry32); 
end; 
CloseHandle(FSnapshotHandle); 
end;

procedure TForm1.Button1Click(Sender: TObject); 
begin
KillTask('winamp.exe');
end;
end.

[Ошибка] Unit1.pas(36): Undeclared identifier: 'TH32CS_SNA'
[Ошибка] Unit1.pas(36): Not enough actual parameters
[Ошибка] Unit1.pas(40): ';' expected but 'WHILE' found
[Ошибка] Unit1.pas(42): Undeclared identifier: 'FProces'
[Ошибка] Unit1.pas(12): Unsatisfied forward or external declaration: 'TForm1.Button1Click'


А можно ещё у Вас спросить? А зачем процесс KillTask вешается на кнопку, и где список куда вписывать вредоносные приложения, при наводе мышкой на которых или заход в папку с ними будет закрываться процесс который вы написали winamp.exe.

Всё равно огромное спасибо!

[Nice42ru]

UP UP UP UP UP UP

[raxp]

[Ошибка] Unit1.pas(36): Undeclared identifier: 'TH32CS_SNA'

пробельчик-то убери и не только там...

А можно ещё у Вас спросить? А зачем процесс KillTask вешается на кнопку, и где список куда вписывать вредоносные приложения

для примера вешается , а списочек ось вiн - p_list1

[Nice42ru]

Где подключить p_list1 вообще непонимаю, надо же не просто жмёш на кнопку и процесс закрывается а если запустил процесс который есть в списке p_list1 тогда только процесс закрываться должен

[raxp]

ставишь таймер, в нем сканируешь списки процессов (см.примеры выше), сравниваешь каждую позицию из p_list1, если есть - taskkill с именем процесса.

UPD
-------

А можно полный код? Ато никак непонимаю

повторюсь, все что вам нужно уже приведено выше.

[Nice42ru]

А можно полный код? Ато никак непонимаю

[Nice42ru]

UP UP UP UP UP UP