...enumerate processes and terminate them?

Author: NetHatcher

0 Comments to this tip [Write new comment]

[ Print tip ]

Tip Rating (31):

Skill:

Useful:

Overall:

{

With the following routines it ist simply easy to kill a running process.

First build a form with a TListview with 3 columns and a TButton

to refresh the running processes.

Attach the Refreshclick-procedure to the TButton and the

ListViewDblClick-procedure with the TListview

The TListview shows the processes.

With a Doubleclick on one of the processnames you can kill this running process.

Don't forget to include TLHelp32 into your uses-clause!

Mit der nachfolgend aufgeführten Routinen können Sie die in einer

Windowssitzung laufenden Prozesse aufzeigen und bei Bedarf auch

entfernen. Hierfür benötigen Sie ein Formobject, ein ListViewobject und zu-

mindest ein ButtonObject. Verknüpfen Sie das Buttonobject mit dem BtnRefreshClick

damit gleich beim Start des Programms alle Prozesse angezeigt werden.

Zum löschen eines Prozesses müssen Sie eine Verknüpfung zwischen DblClick

des Listviewobject mit der Procedure ListviewDblClick.

Wie aus den beigefügten Routinen ersichtlich, kann auch ein einzelner Prozess

gesucht und terminiert werden. Die hierzu erforderlichen Schritte können aus

der Refreshroutine entnommen werden.

Wichtig ist die Einbindung der Unit TlHelp32 !

}

interface

uses

{...,}TLHelp32 {important !}

// Global Variables, Globale Variablen

var

aSnapshotHandle: THandle;

aProcessEntry32: TProcessEntry32;

implementation

procedure TForm1.BtnRefreshClick(Sender: TObject);

var

i: Integer;

bContinue: BOOL;

NewItem: TListItem;

begin

ListView1.Items.Clear;

aSnapshotHandle := CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS, 0);

aProcessEntry32.dwSize := SizeOf(aProcessEntry32);

bContinue := Process32First(aSnapshotHandle, aProcessEntry32);

while Integer(bContinue) <> 0 do

begin

NewItem := ListView1.Items.Add;

NewItem.Caption := ExtractFileName(aProcessEntry32.szExeFile);

NewItem.subItems.Add(IntToHex(aProcessEntry32.th32ProcessID, 4));

NewItem.subItems.Add(aProcessEntry32.szExeFile);

bContinue := Process32Next(aSnapshotHandle, aProcessEntry32);

end;

CloseHandle(aSnapshotHandle);

end;

procedure TForm1.ListView1DblClick(Sender: TObject);

var

Ret: BOOL;

PrID: Integer; // processidentifier

Ph: THandle; // processhandle

begin

with ListView1 do

begin

if MessageDlg('Do you want to Terminate "' + ItemFocused.Caption + '"?' + ^J +

'It''s possible the system becames instable or out of' + ^J +

'control......',

mtConfirmation, [mbYes, mbNo], 0) = mrYes then

begin

PrID := StrToInt('$' + ItemFocused.SubItems[0]);

Ph := OpenProcess(1, BOOL(0), PrID);

Ret := TerminateProcess(Ph, 0);

if Integer(Ret) = 0 then

MessageDlg('Cannot terminate "' + ItemFocused.Caption + '"',

mtInformation, [mbOK], 0)

else

ItemFocused.Delete;

end;

end;

end;

procedure TForm1.FormCreate(Sender: TObject);

begin

{

ListView1.Columns.Add;

ListView1.Columns.Add;

ListView1.Columns.Add;

ListView1.ViewStyle := vsReport;

}

BtnRefresh.Click;

end;

{Only Win95/Win98/ME}