Отследить запуск сторонних программ...

[prizrak1390]

Доброе время суток!

У меня возник вопрос, на который я пока не нашел однозначного ответа.
Суть вопроса такова: Мне нужно отслеживать все запускаемые юзером программы. Вот к примеру запускает юзер Notepad.exe , а моя программа сразу как-нить реагирует на это. Например она замораживает запущенный процесс или например показывает простой showmessage в котором будет имя запущенной проги...

[bitSoft]

Вы можете использовать список процессов, и изменить ситуацию, то это процесс который появился, и делать все, что вы хотите с ним, но это простая идея, и простой код

http://www.delphisources.ru/pages/fa...e_process.html
http://www.delphisources.ru/pages/fa...sses_list.html
http://www.delphisources.ru/pages/fa...processes.html

Если вы поняли мою идею, эти ссылки помогут

[prizrak1390]

bitSoft, спасибо, но мне интересно есть ли еще способы кроме, как отслеживать запущенные процессы

[bitSoft]

Сообщение от prizrak1390

bitSoft, спасибо, но мне интересно есть ли еще способы кроме, как отслеживать запущенные процессы

другие, если я не ошибаюсь, они из API

// http://www.gtdelphicomponents.gr/?p=202
// http://www.delphisources.ru/pages/so...k-manager.html

Я уверен, что вам не нужно больше ничего, Кроме того, что я показал

[spamer]

Вообщем небольшим поиском по форуму вот чего нарыл:

// Убивает процесс по имени
function KillTask(ExeFileName:string):integer;
const
  PROCESS_TERMINATE=$0001;
var
  Co:BOOL;
  FS:THandle;
  FP:TProcessEntry32;
begin
  result:=0;
  FS:=CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  FP.dwSize:=Sizeof(FP);
  Co:=Process32First(FS,FP);
  while integer(Co) <> 0 do
    begin
      if ((UpperCase(ExtractFileName(FP.szExeFile))=UpperCase(ExeFileName)) or
         (UpperCase(FP.szExeFile)=UpperCase(ExeFileName))) then
      Result:=Integer(TerminateProcess(OpenProcess(PROCESS_TERMINATE, BOOL(0),
      FP.th32ProcessID),0));
      Co:=Process32Next(FS,FP);
    end;
  CloseHandle(FS);
end;

// Получаем имена процессов
procedure MyTask;
var
  hSnapShot: THandle;
  ProcInfo: TProcessEntry32;
  Str : TStringList;
begin
  Str := TStringList.Create;
  hSnapShot := CreateToolHelp32Snapshot(TH32CS_SNAPPROCESS, 0);
  if (hSnapShot <> THandle(-1)) then
  begin
    ProcInfo.dwSize := SizeOf(ProcInfo);
    if (Process32First(hSnapshot, ProcInfo)) then
    begin
      Str.Append(ProcInfo.szExeFile);
      while (Process32Next(hSnapShot, ProcInfo)) do
        Str.Append(ProcInfo.szExeFile);
    end;
    CloseHandle(hSnapShot);
  end;
end;

[JTG]

http://www.wasm.ru/article.php?article=apihook_1

Читаем классику, медитируем