Закрыть прогу...

← →
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 - хэндл нужного окна

PostMessage(YourWindow, WM_CLOSE, 0, 0);

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