Как отследить активные программы?

Чтобы отследить какие были приложения активны, а именно процессы, нужно на форме разместить компонент ListBox и Timer с вкладки System. Для Timer прописать следующий код:

Timer1->Interval=5000;
HANDLE hWnd;
hWnd = GetForegroundWindow();
char szTitle[41] = {0};
GetWindowText(hWnd,szTitle,40);
ListBox1->Items->Add(AnsiString(szTitle));

Каждые 5 секунд программа будет отслеживать какие приложения были активны и записывать их в компонент ListBox.

Подготовил материал

Табаков Юрий

Программист

Автор и редактор проекта CuBook.PRO. Главная задача, которую я ставлю перед собой – донести до начинающих программистов удобочитаемый материал. Буду рад выслушать замечания и предложения. Не забываем ставить оценки и делать репосты =)