Советы по Delphi




Как использовать Список Задач (Tasklist)


Вот пример:

procedure TForm1.Button1Click(Sender: TObject);{Размещаем имена модулей запущенных/минимизированных задач в ListBox }varpTask : pTaskEntry; {требуется Uses ToolHelp}Task : bool;Pstr : array [0..79] of Char;Str : string[80];byt_j : byte;beginListBox1.Clear;GetMem(pTask, SizeOf(TTaskEntry)); {Резервируем память для TaskEntry}pTask^.dwSize:=SizeOf(TTaskEntry);
byt_j:=0; {Устанавливаем счетчик для количества задач}Task:=TaskFirst(pTask); {Ищем первую задачу}While task dobegininc(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]




Содержание  Назад  Вперед