Russian Belarusian English German Japanese Ukrainian

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

CuBook05

Чтобы отследить какие были приложения активны, а именно процессы, нужно на форме разместить компонент 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.
Если заметили ошибку, выделите фрагмент текста и нажмите Ctrl+Enter

Добавить комментарий