| Статистика | 
|
|
Каталог статей
Получение списка запущеных приложений
Igor Nikolaev aKa The
Sprite предлагает следующий код:
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 {Hе показываем:}
IF (Wnd <>
Application.Handle) AND {-Собственное
окно}
IsWindowVisible(Wnd) AND {-Hевидимые
окна}
(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;
|
Категория: API | Добавил: Lerka (22 Ноя 2012)
|
Просмотров: 431
6
Оштрафовать
| Жаловаться на материал |
|
| Улучшенный поиск | | Поиск по сайту
Поиск по всему интернету
|
|
