delphi-lubitel

Добро пожаловать на наш портал

На нашем сайте вы найдете множество статей на разные тематики, а так же сможете найти и скачать много интересного Рекомендуем Вам добавить Наш сайт в закладки, а также подписаться на RSS ленту, чтобы не пропускать интересных новостей.
Стартовая Избранное Главная Контакты Карта сайта
Инфо
Нужна помощь ещё одна :) - Форум
[ Новые сообщения · Участники · Правила форума · Поиск · RSS ]
  • Страница 1 из 1
  • 1
Модератор форума: winxaker  
Форум » Программирование » Вопросы по Delphi » Нужна помощь ещё одна :)
Нужна помощь ещё одна :)
FirsДата: Воскресенье, 25.09.2011, 21:50 | Сообщение # 1
Рядовой
Группа: Пользователи
Сообщений: 10
Награды: 0
Репутация: 0
Статус: Offline
Я не один пользуюсь домашним компом и назрела такая проблема:
Как сделать так что бы в memo поле записывались все нажатые кнопки и запущенные приложения?


Сообщение отредактировал Firs - Воскресенье, 25.09.2011, 21:51
 
AiX2011Дата: Пятница, 30.09.2011, 20:28 | Сообщение # 2
Лейтенант
Группа: Пользователи
Сообщений: 51
Награды: 1
Репутация: 2
Статус: Offline
Насчет нажатых кнопок.... Это нажатых кнопок в твоей программе? Или всех в системе? А насчет приложений.. Помозгуем щас.....

Добавлено (30.09.2011, 20:28)
---------------------------------------------
Если вам нужно узнать список всех запущенных программ в Windows и вывести заголовок в ListBox...
var
buff: array [0 .. 127] of Char;
Wnd: hWnd;
begin
ListBox1.Clear;
Wnd := GetWindow(Handle, gw_HWndFirst);
while Wnd <> 0 do
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;
end;

Вот листинг кода, только все запущенные программы будут в TListBox


Сайт посвященный программированию в среде Delphi. Вопросы по Delphi и HTML на форуме
 
Форум » Программирование » Вопросы по Delphi » Нужна помощь ещё одна :)
  • Страница 1 из 1
  • 1
Поиск:

 
Хостинг от uCoz | Адаптировал Grey200009 Число ответ: 57432