Советы по Delphi
Как использовать Список Задач (Tasklist)
Вот пример:
|
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; |
- Daniel Kinnaer [000805]
