diff options
-rw-r--r-- | packages/rtl-console/src/win/winevent.pp | 5 |
1 files changed, 3 insertions, 2 deletions
diff --git a/packages/rtl-console/src/win/winevent.pp b/packages/rtl-console/src/win/winevent.pp index 8eb7277be7..ef90a075cf 100644 --- a/packages/rtl-console/src/win/winevent.pp +++ b/packages/rtl-console/src/win/winevent.pp @@ -203,9 +203,10 @@ interface { mouse event can be disabled by mouse.inc code in DoneMouse so use a key event instead PM } - WriteConsoleInput(StdInputHandle,ir,1,written); + { 20170707 mantis #32096, only wait if really written} + if WriteConsoleInput(StdInputHandle,ir,1,written) then { wait, til the thread is ready } - WaitForSingleObject(EventThreadHandle,INFINITE); + WaitForSingleObject(EventThreadHandle,INFINITE); CloseHandle(EventThreadHandle); end; end; |