Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 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.043 c
3-22997
Ruslan.
2003-04-16 19:44
2003.05.08
SQL запрос


3-22958
Roman
2003-04-17 09:55
2003.05.08
Удаление записей запросом


6-23263
shu_3d
2003-03-13 15:13
2003.05.08
Как получить IP клиента?


14-23322
race1
2003-04-13 15:17
2003.05.08
мнемотехника


8-23245
sachem
2003-01-29 15:27
2003.05.08
менять картинки слайдами!