Главная страница
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.019 c
3-23006
Lony
2003-04-17 22:24
2003.05.08
Получить данные Paradox а в TComboBox.


14-23354
Michael
2003-04-20 20:22
2003.05.08
Посовутйте хорошую книгу по Си


8-23234
CjCrazy
2003-01-30 08:57
2003.05.08
просмотр фильмов с фтп


3-22944
SiJack
2003-04-21 12:00
2003.05.08
Создание базы данных (DAO)


14-23345
Шоломицкий
2003-04-20 17:58
2003.05.08
Как скопировать файлы с дискеты