Скачать: CL | DM;

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

← →
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.

---

Страницы: 1 вся ветка

Скачать: CL | DM;



Память: 0.45 MB
Время: 0.008 c