ПОМОГИТЕ!!! [D7, WinXP]
flexis28 © (2011-01-02 19:41:00)
Здравтсвуй столкнулся с такой проблемой, нужно сделать прогу
чтобы она находила процессы и завершала их по кнопке, как находить
процессы я нашёл, только процессы и их ИД отображаются в лист
боксах 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:00) [1]
> flexis28 (02.01.11 19:41)
> если кто поможет разработать код для завершения
процессов
> буду безмерно благодарен.
Все уже разработано до нас: TerminateProcess, msdn.
--
Regards, LVT.
Наверх 
ЧАТ |
Орешник |
|
