Отследить запуск системы

[artemavd]

На скрине показаны мои процессы в системе. Я так понял, что жирным, черны цветом выделены процессы, которые загружаются в данный момент. Как отследить можно эти процессы? Например, как вывести список всех загружающихся процессов в ListBox?

[raxp]

дуже просто...

function get_process: string;
var PE     : TProcessEntry32;
    FSnap  : THandle;
begin
 result:= '';
 try
  FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0);
  PE.dwSize:= SizeOf(PE);
  if (Tlhelp32.Process32First(FSnap,PE)) then repeat
   result:= result + lowercase(PE.szExeFile)+#10
  until not Process32Next(FSnap,PE)
 except end
end;

[artemavd]

О, ниче себе код . А можете пояснить построчно, что значат строки? Для общего развития интересно)

[raxp]

FSnap:= Tlhelp32.CreateToolhelp32Snapshot(TH32CS_SNAPPROCESS,0); //получаем снимок
  PE.dwSize:= SizeOf(PE); //инит
  if (Tlhelp32.Process32First(FSnap,PE)) then repeat //повторяем, перебираем процессы пока
   result:= result + lowercase(PE.szExeFile)+#10 //набиваем в String имена процессов и переводим каретку (типа enter, хотя enter это #13#10)
  until not Process32Next(FSnap,PE)

не забудьте добавить в uses tihelp32;