Сообщество Чайников

Вопрос

Как сделать программу, которая отключала бы все работающие приложения у юзера на компе? Например AVP монитор или SpIDer Guard.

Ответ

Вот мой вариант. Не будет работать в Windows NT 4.0 и ниже. В 95 и выше работает, в 2000, XP и так далее — работает. Часть идей из советов В.Озерова. Собственно, я записываю процессы и их ID в листбокс для своих целей, то есть именно на это можно не обращать внимание

procedure TfmMain.btProcessInfoClick(Sender: TObject);
var handler:thandle; data:TProcessEntry32;
s : String; function return_name : String;
var i : byte; names : String; begin names := ''; i := 0;
while data.szExeFile[i] <> '' do begin names := names + data.szExeFile[i];
inc(i); end;
Result := names; end;
begin ListBox1.Items.Clear();
handler:=CreateToolhelp32Snapshot(TH32CS_SNAPALL,0);
if Process32First(handler,data) then begin ListBox1.Items.AddObject(return_name,TObject(data.th32ProcessID));
while Process32Next(handler,data) do begin s := return_name();
ListBox1.Items.AddObject(s,TObject(data.th32ProcessID)); end;
end else showmessage('Информацию не получили!');
end;

TerminateProcess(); F1… параметры из ЛистБокса + код выхода..

Из конференции Expert_FAQ