소스 검색

--- Merging r36663 into '.':
U packages/rtl-console/src/win/winevent.pp
--- Recording mergeinfo for merge of r36663 into '.':
U .

# revisions: 36663

git-svn-id: branches/fixes_3_0@37101 -

marco 8 년 전
부모
커밋
e3c793394b
1개의 변경된 파일3개의 추가작업 그리고 2개의 파일을 삭제
  1. 3 2
      packages/rtl-console/src/win/winevent.pp

+ 3 - 2
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;