| Форумы
ЧАТ |
Орешник |
|
| Форумы -» | Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG |
|
| ||
|
|
Новости |
Поиск |
FAQ |
Статьи |
Книги |
Новости VCL
| | Форумы ЧАТ |
Орешник |
|
| |||
| |||
| |||
« предыдущая ветвь | форум | следующая ветвь »
Закрыть прогу... [D6, Win95/98, WinME]
Anton Tsvilikh © (2003-03-17 15:50:00)См макаром получен список работающих прог и окон. Вопрос состоит в том, как по нажатию кнопки закрыть(просто закрыть а не убить), с сохранением всех данных выделенную в Listbox прогу
ListBox1.Clear;
Wnd := GetWindow(Handle, GW_HWndFirst);
WHILE Wnd <> 0 Do
var
Wnd : HWnd;
Buff: ARRAY [0..127] Of Char;
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;
Игорь Шевченко (2003-03-17 17:01:00) [1]PostMessage(YourWindow, WM_CLOSE, 0, 0);
Guerrillero (2003-03-17 16:24:00) [2]прог здесь нет, только окна
а спрятать окно просто ShowWindow(h,SW_HIDE), где H - хэндл нужного окна
| |
