Как использовать Список Задач (Tasklist)
Автор: Daniel Kinnaer |
Приходит как-то программер со школы. Жена ему говорит: - Дорогой, тебе чайник поставить? - Да за#бали меня уже эти чайники!!! |
procedure TForm1.Button1Click(Sender: TObject); {Размещаем имена модулей запущенных/минимизированных задач в ListBox } var pTask: pTaskEntry; {требуется Uses ToolHelp} Task: bool; Pstr: array[0..79] of Char; Str: string[80]; byt_j: byte; begin ListBox1.Clear; GetMem(pTask, SizeOf(TTaskEntry)); {Резервируем память для TaskEntry} pTask^.dwSize := SizeOf(TTaskEntry); byt_j := 0; {Устанавливаем счетчик для количества задач} Task := TaskFirst(pTask); {Ищем первую задачу} while task do begin inc(byt_j); {счетчик количества различных задач} Str := StrPas(pTask^.szModule); {Преобразуем PStr в паскалевскую строку} Listbox1.Items.Add(str); {Сохраняем паскалевскую строку в ListBox} task := taskNext(pTask); {Ищем следующую возможную задачу} end; Label1.Caption := IntToStr(byt_j) + ' задач найдено'; {Показываем счетчик} end; |
Далее: Комплексный контроль за качеством кода »»