Как использовать Список Задач (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;


Далее: Комплексный контроль за качеством кода »»