MML: SendKeys (win), Removed a WriteLn and added a small check.

2011-07-23 18:01:13 -04:00 · 2011-07-23 18:01:13 -04:00 · 2faecb4966
parent 8acb244ec3
commit 2faecb4966
1 changed files with 2 additions and 2 deletions
--- a/Units/MMLCore/os_windows.pas
+++ b/Units/MMLCore/os_windows.pas
@ -380,8 +380,8 @@ begin
    Shift := (Hi(VK) > 0);
    C := LoByte(VK);
    ScanCode := MapVirtualKey(C, 0);
-
-    WriteLn(ScanCode);
+    if (ScanCode = 0) then
+      Continue;

    if (Shift) then
      Keybd_Event(VK_SHIFT, $2A, 0, 0);