Delphi-Help

Главная Статьи Windows Как получить список всех запущенных приложений?

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

Оцените материал
(0 голосов)


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

procedure TForm1.Button1Click(Sender: TObject);
var
  Wnd: hWnd;
  buff: array [0..127] of Char;
begin
   ListBox1.Clear;
   // Получаем hWnd первого окна
   Wnd := GetWindow( Handle, gw_HWndFirst );
   // Цикл поиска окон
   while Wnd <> 0 do
   begin
      // Исключаем невидимые окна
      if 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;
Прочитано 3990 раз

Авторизация



Счетчики