Недавно добавленные исходники

•  DeLiKaTeS Tetris (Тетрис)  4 023

•  TDictionary Custom Sort  6 127

•  Fast Watermark Sources  5 925

•  3D Designer  8 773

•  Sik Screen Capture  6 254

•  Patch Maker  6 674

•  Айболит (remote control)  6 671

•  ListBox Drag & Drop  5 530

•  Доска для игры Реверси  95 687

•  Графические эффекты  6 898

•  Рисование по маске  6 115

•  Перетаскивание изображений  5 059

•  Canvas Drawing  5 429

•  Рисование Луны  5 145

•  Поворот изображения  4 691

•  Рисование стержней  3 305

•  Paint on Shape  2 544

•  Генератор кроссвордов  3 433

•  Головоломка Paletto  2 748

•  Теорема Монжа об окружностях  3 543

•  Пазл Numbrix  2 328

•  Заборы и коммивояжеры  3 012

•  Игра HIP  1 969

•  Игра Go (Го)  1 887

•  Симулятор лифта  2 241

•  Программа укладки плитки  1 951

•  Генератор лабиринта  2 394

•  Проверка числового ввода  2 080

•  HEX View  2 406

•  Физический маятник  2 042

 
скрыть

  Форум  

Delphi FAQ - Часто задаваемые вопросы

| Базы данных | Графика и Игры | Интернет и Сети | Компоненты и Классы | Мультимедиа |
| ОС и Железо | Программа и Интерфейс | Рабочий стол | Синтаксис | Технологии | Файловая система |



Delphi Sources

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





Похожие по теме исходники

Список запущенных процессов

Список установленных устройств

Задача «Иосифа Флавия»

Задача коммивояжера

 



Copyright © 2004-2025 "Delphi Sources" by BrokenByte Software. Delphi World FAQ

Группа ВКонтакте