Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Вниз

Помогите завершить все работающие задачи без всяких уведомлений...   Найти похожие ветки 

← →
Vovchik   (2002-01-08 18:47) [6]

А так пробовал:

procedure TForm1.BitBtn1Click(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;

Единственно, что находит лишнее - так это "Program Manager".

---

Страницы: 1 вся ветка

Форум: "WinAPI";
Текущий архив: 2002.03.07;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.43 MB
Время: 0.006 c