Hallo erstmal,
ich habe folgendes Problem:
In meinem Thread wird immer geguckt, ob er Nachrichten erhalten hat. Wenn ja werden diese abgearbeitet. Jetzt möchte ich aber ganz gerne, bevor diese Nachrichten angeguckt werden, das ein Zähler erstmal alle Nachrichten prüft (also ich meine, wie viele Nachrichten befinden sich in der Queue).
So lese ich die Nachrichten aus:
Delphi-Quellcode:
while not Terminated do
begin
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;
Ich möchte jetzt vor der PeekMessage-Schleife ein Zähler für die Anzahl der Nachrichten einbauen.
Ich habe mir das so gedacht:
Delphi-Quellcode:
while not Terminated do
begin
while GetMessage(Msg, 0, 0, 0) do
begin
Inc(QueueCount);
end;
while PeekMessage(Msg, 0, 0, 0, PM_REMOVE) do
begin
if Msg.Message <> WM_QUIT then // bekommt ein Thread vermutlich nie, aber gut
begin
TranslateMessage(Msg);
DispatchMessage(Msg);
end;
end;
end;
Wenn ich das aber so mache, zählt er zwar hoch aber kommt nicht mehr in das PeekMessage...
Wisst ihr wieso oder habt eine Idee?
Wie kann ich eigentlich einzelne Nachrichten löschen aus der Queue? Angenommen ich habe 5 Nachrichten in der Queue und ich möchte die 3te Nachricht löschen?
Danke erstmal und viele Grüße,
Alex