ПОМОГИТЕ!!!

← →
flexis28 (2011-01-02 19:41) [0]

Здравтсвуй столкнулся с такой проблемой, нужно сделать прогу чтобы она находила процессы и завершала их по кнопке, как находить процессы я нашёл, только процессы и их ИД отображаются в лист боксах 1 и 2 нужно, что бы отоброжались в одном ЛИСТВИВЕРЕ. кто нибудь может помочь???

procedure TForm1.FormCreate(Sender: TObject);
var p:PROCESSENTRY32;ct:cardinal;th:Cardinal; mp:array[0..255] of char;
mm:pchar;ts:TSearchRec; sst:STARTUPINFO; ss,s:string;
a:integer;

begin
ct:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
Process32First(ct,p);
while Process32Next(ct,p) do begin
begin
if ExtractFileName(Application.ExeName)=string(p.szExeFile) then
form1.Tag:=form1.Tag+1;
OpenProcessToken(p.th32ProcessID,TOKEN_READ,th);
ListBox1.Items.Append(string(p.szExeFile)); //вот здесь процессы записываются в листбокс1 нужно в листвивер!!!

ListBox2.Items.Append(inttostr(p.th32ProcessID));// здесь ИД записываются в листбокс2 нужно в листвивер!!!
end;
end;
a:=listbox1.Items.Count;
statusbar1.Panels[0].Text:="Процессов: "+inttostr(a);
end;

если кто поможет разработать код для завершения процессов буду безмерно благодарен.

← →
Leonid Troyanovsky © (2011-01-02 20:14) [1]

> flexis28 (02.01.11 19:41)

> если кто поможет разработать код для завершения процессов
> буду безмерно благодарен.

Все уже разработано до нас: TerminateProcess, msdn.

--
Regards, LVT.

ПОМОГИТЕ!!! Найти похожие ветки