Подписаться на RSS рассылку
Главная » Статьи по Delphi » Процессы » Получить список запущенных приложений

Получить список запущенных приложений

Автор: Акулов Николай

Tweet

Взято с сайта www.delphiworld.narod.ru/

Выводит в TListBox список запущенных приложений.

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: hWnd;
  buff: array [0..127] of Char;
begin
  ListBox1.Clear;
  Wnd := GetWindow(Handle, gw_HWndFirst);
  while Wnd <> 0 do begin {Не показываем:}
    if (Wnd <> Application.Handle) and {Собственное окно}
      IsWindowVisible(Wnd) and {Невидимые окна}
      (GetWindow(Wnd, gw_Owner) = 0) and {Дочерние окна}
      (GetWindowText(Wnd, buff, sizeof(buff)) <> 0) {Окна без заголовков}
      then begin
      GetWindowText(Wnd, buff, sizeof(buff));
      ListBox1.Items.Add(StrPas(buff));
    end;
    Wnd := GetWindow(Wnd, gw_hWndNext);
end;
 ListBox1.ItemIndex := 0;
end;

Просмотров: 6586

Обсудить на форуме

0   Спам
(27.11.2011)
1. Влад
Вот только этот код выводит заголовки окон, а не список процессов в диспетчере задач, как хотелось бы.


Имя *:
Email:


Код *:

Copyright © 2008 - 2018 Программирование на Delphi для начинающих и не только.

Полнота авторских прав на все материалы, опубликованные на сервере DelphiDevelop.ru принадлежит их авторам.

Перепечатка материалов разрешается с указанием авторства и гиперссылки на первоисточник информации.