Текущий архив: 2003.05.08;
Скачать: CL | DM;

Вниз

Закрыть прогу...   Найти похожие ветки 

← →
Anton Tsvilikh ©   (2003-03-17 15:50) [0]

См макаром получен список работающих прог и окон. Вопрос состоит в том, как по нажатию кнопки закрыть(просто закрыть а не убить), с сохранением всех данных выделенную в 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;

---

← →
Guerrillero ©   (2003-03-17 16:24) [1]

прог здесь нет, только окна
а спрятать окно просто ShowWindow(h,SW_HIDE), где H - хэндл нужного окна

---

← →
Игорь Шевченко ©   (2003-03-17 17:01) [2]

PostMessage(YourWindow, WM_CLOSE, 0, 0);

---

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

Текущий архив: 2003.05.08;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.012 c