Einzelnen Beitrag anzeigen

Benutzerbild von Luckie
Luckie
(Moderator)

Registriert seit: 29. Mai 2002
37.621 Beiträge
 
Delphi 2006 Professional
 
#2

AW: bind() in console application

  Alt 2. Dez 2014, 08:44
Ähm, bekommen Konsolenanwendungen überhaupt Windows Nachrichten?

Delphi-Quellcode:
program Project5;

{$APPTYPE CONSOLE}

uses
  Windows, SysUtils;

var
  Msg: TMsg;
  bRet: Integer;

begin
  repeat
    writeln('Laeuft1');
    bRet := Integer(GetMessage(Msg, 0, 0, 0));

    if bRet = -1 then
    begin
      writeln('Error');
      Break;
    end
    else
    begin
      writeln(IntToStr(Msg.message));
      TranslateMessage(Msg);
      DispatchMessage(Msg);
    end;
    writeln('Laeuft2');
  until bRet = 0;
end.
Es wird mir nur das Laeuft1 ausgegeben.
Michael
Ein Teil meines Codes würde euch verunsichern.
  Mit Zitat antworten Zitat