Работа с Windows процессами

[niki2012]

Пишу программу Родительский Контроль, необходимо отслеживать выбранные пользователем процессы (игры, браузер и тп) и, например, "убивать" их. Для начала программа должна делать следующее:
1.Пользователь вводит путь к exe файлу, программа его запускает
2.Находит запущенный процесс (по пути к exe'шнику) и запоминает какое-нибудь его уникальное свойство (например оконный класс), убивает процесс
3.Далее по таймеру отслеживает этот процесс по запомненному свойству

(Если у вас есть более рациональный способ - тоже напишите)

PS: Забыл добавить что мне нужен код как это реализовать, ибо с процессами раньше не работал

[_-Re@l-_]

Ну да, нормальный способ вроде бы. Хотя сам точно не знаю, но выглядит вроде как логично.

[Sibedir]

http://www.programmersforum.ru/showthread.php?t=43129
http://www.webdelphi.ru/2010/01/rabo...dul-psapi-pas/
http://www.cyberforum.ru/delphi/thread151155.html
http://delphiworld.narod.ru/base/is_exe_running.html
http://delphiworld.narod.ru/base/exe...by_handle.html
http://delphiworld.narod.ru/base/exe...by_handle.html
http://delphiworld.narod.ru/base/kil..._exe_name.html
http://delphiworld.narod.ru/base/fro...e_process.html
Ну и
http://yandex.ru/yandsearch?text=%D1...+delphi&lr=197
А то мало ли. Вдруг вам ни один поисковик не доступен.

[Crunkordie]

Здравствуйте.
есть код программы :

S:                 array of string;
cb,z:              Integer;
ProcessHandle:     THandle;
ProcessExePath:    array[0..127] of Char;
pmc:               PPROCESS_MEMORY_COUNTERS;
T: Textfile;
...
procedure GetProcs();
var
  hProcSnap: THandle;
  pe32: TProcessEntry32;
begin
  z:=0;
  FileDescription:= '';
  hProcSnap := CreateToolHelp32SnapShot(TH32CS_SNAPPROCESS, 0);
  if hProcSnap = INVALID_HANDLE_VALUE then exit;
  pe32.dwSize := SizeOf(ProcessEntry32);
  if Process32First(hProcSnap, pe32) = true then
    while Process32Next(hProcSnap, pe32) = true do
     begin
      ProcessHandle := OpenProcess(PROCESS_QUERY_INFORMATION or PROCESS_VM_READ, False,pe32.th32ProcessID );
      GetModuleFileNameEx(ProcessHandle, 0, ProcessExePath,127);
      cb := SizeOf(_PROCESS_MEMORY_COUNTERS);
      GetMem(pmc, cb);
      pmc^.cb := cb;
      GetProcessMemoryInfo(ProcessHandle, pmc, cb);
      if  pmc^.PeakPagefileUsage <> 0 then begin
                                              S[z]:=pe32.szExeFile+' : '+ExpandFileName(ProcessExePath);
                                              z:=z+1;
                                              SetLength(S, z+1);
                                           end;
    end;
  CloseHandle(hProcSnap);
  CloseHandle(ProcessHandle);
  showmessage('vse');
end;
...
procedure TForm1.Button1Click(Sender: TObject);
var
i:integer;

begin
GetProcs();
AssignFile(T,'D:\test.txt');
Rewrite(T);
Writeln(T, '[Proc]');
for I := 0 to z do begin
                    Writeln(T, S[i]);
                   end;
end;

Программа считывает все процессы и записывает в текстовый файл. При запуске в среде разработки отображаются все процессы, а если запустить через exe, то большую часть не видит. Это можно как-нибудь исправить?

[Человек_Борща]

зачем вы лезетев чужукю тему? Создайте свою и вам помогут.