Оригинальный DVD-ROM: eXeL@B DVD !
eXeL@B ВИДЕОКУРС !

ВИДЕОКУРС
выпущен 4 ноября!


УЗНАТЬ БОЛЬШЕ >>
Домой | Статьи | RAR-cтатьи | FAQ | Форум | Скачать | Видеокурс
Новичку | Ссылки | Программирование | Интервью | Архив | Связь

БОЛЬШОЙ FAQ ПО 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;
 




<< ВЕРНУТЬСЯ В ОГЛАВЛЕНИЕ



Материалы находятся на сайте https://exelab.ru/pro/



Оригинальный DVD-ROM: eXeL@B DVD !


Вы находитесь на EXELAB.rU
Проект ReactOS