Модераторы: Snowy, bartram, MetalFan, bems, Poseidon, Riply
  

Поиск:

Ответ в темуСоздание новой темы Создание опроса
> Отлов сообщений Windows в консоли, как реализовать? 
:(
    Опции темы
Mixasik
Дата 6.6.2009, 21:48 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Little Delphi monstr
*


Профиль
Группа: Участник
Сообщений: 195
Регистрация: 4.10.2006
Где: Волгоград

Репутация: нет
Всего: нет



Подскажите как отловить и обработать сообщения Windows внутри консольного приложения? Пример есть один, но в нем не все понятно:
Код

program Project1;
{$APPTYPE CONSOLE}

uses Windows, Messages;

var
  ID, ThrHandle, InpHandle, ScrHandle: Cardinal;
  IR: INPUT_RECORD;
  Msg: TMsg;

procedure Execute;         // цикл обработки сообщений
begin
  repeat 
    GetMessage(Msg,0,0,0); // берем сообщение в переменную Msg
    case Msg.message of    // анализируем тип сообщения
      ...
    end;
  until False;
end;

begin
  InpHandle:=GetStdHandle(STD_INPUT_HANDLE);
  ScrHandle:=GetStdHandle(STD_OUTPUT_HANDLE);
  SetConsoleTitle('Super Program');
  ThrHandle:=CreateThread(nil,0,@Execute,nil,0,ID); // создаем новый поток
        { цикл обработки ввода: }
  repeat
    WaitForSingleObjectEx(InpHandle,INFINITE,false); // ждем события ввода
    ReadConsoleInput(InpHandle,IR,1,Wr);     // берем запись в переменную IR
    case IR.EventType of                     // анализируем тип события ввода
      ...
    end; 
  until False;
end.

PM MAIL ICQ   Вверх
Cheloveck
Дата 7.6.2009, 18:51 (ссылка) | (нет голосов) Загрузка ... Загрузка ... Быстрая цитата Цитата


Эксперт
***


Профиль
Группа: Завсегдатай
Сообщений: 1578
Регистрация: 26.7.2008
Где: Тула

Репутация: нет
Всего: 32



А что не понятно-то? Получил сообщение, проверил какому окну, проверил что за сообщение, если нужно такое - вызвал функцию. Просто TranslateMessage не используешь.


--------------------
user posted image
PM Jabber   Вверх
  
Ответ в темуСоздание новой темы Создание опроса
Правила форума "Delphi: WinAPI и системное программирование"
Snowybartram
MetalFanbems
PoseidonRrader
Riply

Запрещено:

1. Публиковать ссылки на вскрытые компоненты

2. Обсуждать взлом компонентов и делиться вскрытыми компонентами

  • Литературу по Delphi обсуждаем здесь
  • Действия модераторов можно обсудить здесь
  • С просьбами о написании курсовой, реферата и т.п. обращаться сюда
  • Вопросы по реализации алгоритмов рассматриваются здесь
  • 90% ответов на свои вопросы можно найти в DRKB (Delphi Russian Knowledge Base) - крупнейшем в рунете сборнике материалов по Дельфи
  • 99% ответов по WinAPI можно найти в MSDN Library, оставшиеся 1% здесь

Если Вам понравилась атмосфера форума, заходите к нам чаще! С уважением, Snowy, bartram, MetalFan, bems, Poseidon, Rrader, Riply.

 
1 Пользователей читают эту тему (1 Гостей и 0 Скрытых Пользователей)
0 Пользователей:
« Предыдущая тема | Delphi: WinAPI и системное программирование | Следующая тема »


 




[ Время генерации скрипта: 0.0640 ]   [ Использовано запросов: 21 ]   [ GZIP включён ]


Реклама на сайте     Информационное спонсорство

 
По вопросам размещения рекламы пишите на vladimir(sobaka)vingrad.ru
Отказ от ответственности     Powered by Invision Power Board(R) 1.3 © 2003  IPS, Inc.