Как получить список запускаемых программ?

[kozei]

Помогите разобраться с вопросом: как получить список запускаемых программ в винде за время работы данной программы(которая это все и проворачивает)??? пож-та

[rpy3uH]

один из простых способов:
создай отдельно поток, в котором получай каждую секунду список процессов. При первом перечислении начале создай список потом только добавляй в него новые имена процессов.
P.S. в книге "Delphi глазами хакера", есть пример мониторинга приложений у которых есть окна.

[kozei]

как создать этот поток, т.е.где у нас есть этот список.откуда его вынуть?

[rpy3uH]

Создать поток - функция CreateThread

HANDLE CreateThread(
    LPSECURITY_ATTRIBUTES lpThreadAttributes,// pointer to thread security attributes  
    DWORD dwStackSize,	// initial thread stack size, in bytes 
    LPTHREAD_START_ROUTINE lpStartAddress,	// pointer to thread function 
    LPVOID lpParameter,	// argument for new thread 
    DWORD dwCreationFlags,	// creation flags 
    LPDWORD lpThreadId 	// pointer to returned thread identifier 
   );

как получить список процессов: ищи по форуму, 100 раз обсуждалось
(например здесь, второй пост)
при получении первого списка процессов ты сохраняешь этот список в в отдельный (общий) список, при последующем получении списка процессов, смотришь какого процесса нет в общем списке и если есть таковые добавляешь туда этот процесс

[Slovinsky]

Как получить список запускаемых программ?

Варианты:
1. Через драйвер режима ядра и регистрации своего коллбэка с помощью PsSetCreateProcessNotifyRoutine - самый правильный и сложный вариант, полагаю вам не подойдет
2. Через функции ToolHelp API
3. Через функции Psapi
4. С помощью Native API

Реализация 2 - здесь:
http://www.delphikingdom.com/asp/vie...catalogid=1167
Реализация 4 - здесь:
http://www.delphikingdom.com/asp/vie...catalogid=1279
Если интересны реализации 1 и 3 - поищите в интернете сами, ключевые слова я дал.

rpy3uH
Не рекомендуется использовать CreateThread в Delphi, лучше BeginThread. Знаете почему?

[rpy3uH]

в принципе мне по барабану, что лучше а что хуже. я просто привык именно к API функции. BeginThread это не API это просто оболочка вокруг CreateThread. Функция BeginThread отличается тем чтов ней есть проверка на тип функции: чтобы у неё был один параметр. Разумеется в Delphi лучше использовать BeginThread.

[Slovinsky]

BeginThread в отличие от CreateThread производит следующие действия:
1. Присваивает переменной IsMultiThread значение true, что заставит менеджер памяти работать в потокобезопасном режиме - использовать критические секции при выделении/освобождении памяти. Иначе всегда рискуем получить исключение при попытках выделить/освободить память.
2. Помещает тело потока в SEH-фрейм. В результате необработанное исключение в теле потока не приведет к краху процесса.
3. Инициализирует FPU (нужно, для операций с плавающей точкой).

Если не использовать BeginThread, то все вышеперечисленное придется делать ручками.

[rpy3uH]

МОЛОДЕЦ!!!! опять ты прав.....
исходник функции BeginThread

function BeginThread(SecurityAttributes: Pointer; StackSize: LongWord;
  ThreadFunc: TThreadFunc; Parameter: Pointer; CreationFlags: LongWord;
  var ThreadId: LongWord): Integer;
var
  P: PThreadRec;
begin
  New(P);
  P.Func := ThreadFunc;
  P.Parameter := Parameter;
  IsMultiThread := TRUE;
  Result := CreateThread(SecurityAttributes, StackSize, @ThreadWrapper, P,
    CreationFlags, ThreadID);
end;

я просто сразу не заметил (блин, на пенсию пора......), что изначально вызывается функция ThreadWrapper, которая в последствиии вызывает твою поточную функцию, и которая и является первоначалом для всех потоков

P.S. жаль что я тебе не могу написать ещё один отзыв.... (придётся ждать)

[mihali4]

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

Помогите разобраться с вопросом: как получить список запускаемых программ в винде за время работы данной программы(которая это все и проворачивает)??? пож-та

Можно получить по нажатию кнопки:

procedure TForm1.Button1Click(Sender: TObject);
var
wnd: hwnd;
buff: array [0..127] of char;
begin
ListBox1.clear;
wnd := getwindow(handle, gw_hwndfirst);
while wnd <> 0 do
begin // Не показываем:
if (wnd <> application.handle) // Собственное окно
and iswindowvisible(wnd) // Невидимые окна
and (getwindow(wnd, gw_owner) = 0) // Дочерние окна
and (getwindowtext(wnd, buff, sizeof(buff)) <> 0) then
begin
getwindowtext(wnd, buff, sizeof(buff));
ListBox1.items.add(strpas(buff));
end;
wnd := getwindow(wnd, gw_hwndnext);
end;
ListBox1.itemindex := 0;
end;

Никто не мешает повесить это на таймер, например.