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