Карта сайта Kansoftware
НОВОСТИУСЛУГИРЕШЕНИЯКОНТАКТЫ
Разработка программного обеспечения
KANSoftWare

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

Delphi , Синтаксис , Синтаксис

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

Статья Как использовать Список Задач (Tasklist) раздела Синтаксис Синтаксис может быть полезна для разработчиков на Delphi и FreePascal.


Комментарии и вопросы


Ваше мнение или вопрос к статье в виде простого текста (Tag <a href=... Disabled). Все комментарии модерируются, модератор оставляет за собой право удалить непонравившейся ему комментарий.

заголовок

e-mail

Ваше имя

Сообщение

Введите код




Материалы статей собраны из открытых источников, владелец сайта не претендует на авторство. Там где авторство установить не удалось, материал подаётся без имени автора. В случае если Вы считаете, что Ваши права нарушены, пожалуйста, свяжитесь с владельцем сайта.



:: Главная :: Синтаксис ::


реклама

::


©KANSoftWare (разработка программного обеспечения, создание программ, создание интерактивных сайтов), 2007
Top.Mail.Ru Rambler's Top100
29.11.2020 07:41:46/0.039964914321899/0