请教控制台程序如何简单做到接收系统的消息机制？

Question

控制台正确的消息处理是怎么处理的
如接收到系统的消息并能处理
例如我想控制台消息循环实现
 procedure   WMDeviceChange(var   Msg:   TMessage);   message   WM_DEVICECHANGE;   
 procedure   TForm1.WMDeviceChange   (var   Msg:   TMessage);    
  var    
      myMsg   :   String;    
  begin    
      Case   Msg.WParam   of    
      32768:    
          begin    
              myMsg   :='U盘插入';    
              Label1.Caption:=myMsg    
          end;    
      32772:    
          begin    
              myMsg   :='U盘拔出';    
              Label1.Caption:=myMsg;    
          end;    
      end;    
  end;    获取这样的消息你控制台怎么做
直接
   while getMessage(Msg, 0 , 0, 0) do
  begin
    TranslateMessage(Msg);
    DispatchMessage(msg);
  end;
？那个
  case Msg of 在哪处理 

Answer 1

只能用API创建窗体来实现吗？还是能有更简单的方法。谢谢

Answer 2

只能用简单的API创建窗口来实现吗》？还是有更简单的方法？谢谢