VPF::Отлов сообщений 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.

Cheloveck

Дата 7.6.2009, 18:51 (ссылка)

(нет голосов)

Загрузка ...

Эксперт

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

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

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

--------------------

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