Советы по 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]



Содержание раздела