Message in Konsolenanwendung empfangen

[Cyberstorm]

sorry.
naja IE erinnert immer so an M$ .


noch eine frage:

wenn ich über diesen code sende.

kann ich das empfangen dann so machen? (kommt ja TMessage und nicht TWMCopyData an?!)

Delphi-Quellcode:

procedure TWndThread.Execute;
var
  Msg: TMsg;
begin
  while GetMessage(Msg, 0, 0, 0) do
    begin
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
end;

procedure TWndThread.WndProc(var Msg: TMessage);
begin
    case Msg.Msg of
      WM_COPYDATA:
        begin
          EnterCriticalSection(CritSec);
          Chat.Add(String(PChar((msg as TWMCopyData).CopyDataStruct.lpData)));
          LeaveCriticalSection(CritSec);
        end
      else Msg.Result:=DefWindowProc(FWndHandle, Msg.Msg, Msg.WParam, Msg.LParam);
    end;
end;