Forum: Win32/Win64 API (native code)
Delphi
by turboPASCAL,
22. Jul 2005
procedure ProcessMessages(HWND: DWORD);
var Msg: TMsg;
begin
While PeekMessage(Msg, HWND, 0, 0, PM_REMOVE) do // Nachrichten abfragen und Verarbeiten..
begin
TranslateMessage(Msg); // umwandeln der Virtual-Key Messages zu Character Messages
DispatchMessage(Msg); // Messagesr Verarbeiten
end;
end;
Forum: Win32/Win64 API (native code)
Delphi
by turboPASCAL,
21. Jul 2005
:gruebel: Sowas mach ich doch nicht freiwillig :lol:
Forum: Win32/Win64 API (native code)
Delphi
by turboPASCAL,
12. Jul 2005
@runger, aber ob das Cicaro so von Nutzen ist ist eine andere Frage.
:gruebel: Ich habe es noch nicht geschaft einen Tastaturpuffer zum überlaufen zu bringen :stupid:,
deshalb würde es mich Interessieren wie das bei Cicaro sein kann.
Forum: Win32/Win64 API (native code)
Delphi
by turboPASCAL,
12. Jul 2005
Wie kann ich denn den Tastaturpuffer leeren ? function ClearKeyboardBuffer:Integer;
Siehe auch: http://www.swissdelphicenter.ch/de/showcode.php?id=1066
Forum: Win32/Win64 API (native code)
Delphi
by turboPASCAL,
12. Jul 2005
So ähnliches wollte ich auch gerade schreiben. Möglicherweise gibt es in deinem Programmcode
eine Stelle (Schleife While oder For oä.) was dein Programm "blockiert" und die Tastatureingabe nicht abarbeitet.
Eine Application.ProcessMessages könnte in diesem Falle helfen.
function KeyPressed: Integer;
var
i: Integer;
buf: TKeyboardState;
begin
Result := -1;