例如:enter键#13,其他呢?
  tab,caps Lock,shift,ctrl,alt,inert,delete,a--z,A--Z,0-9
也就是key=?

解决方案 »

  1.   

    VK_LBUTTON Left mouse button
    VK_RBUTTON Right mouse button
    VK_CANCEL Control+Break
    VK_MBUTTON Middle mouse button
    VK_BACK Backspace key
    VK_TAB Tab key
    VK_CLEAR Clear key
    VK_RETURN Enter key
    VK_SHIFT Shift key
    VK_CONTROL Ctrl key
    VK_MENU Alt key
    VK_PAUSE Pause key
    VK_CAPITAL Caps Lock key
    VK_KANA Used with IME
    VK_HANGUL Used with IME
    VK_JUNJA Used with IME
    VK_FINAL Used with IME
    VK_HANJA Used with IME
    VK_KANJI Used with IME
    VK_CONVERT Used with IMEVK_NONCONVERT Used with IME
    VK_ACCEPT Used with IME
    VK_MODECHANGE Used with IME
    VK_ESCAPE Esc key
    VK_SPACE Space bar
    VK_PRIOR Page Up key
    VK_NEXT Page Down key
    VK_END End key
    VK_HOME Home key
    VK_LEFT Left Arrow key
    VK_UP Up Arrow key
    VK_RIGHT Right Arrow key
    VK_DOWN Down Arrow key
    VK_SELECT Select key
    VK_PRINT Print key (keyboard-specific)
    VK_EXECUTE Execute key
    VK_SNAPSHOT Print Screen key
    VK_INSERT Insert key
    VK_DELETE Delete key
    VK_HELP Help keyVK_LWIN Left Windows key (Microsoft keyboard)
    VK_RWIN Right Windows key (Microsoft keyboard)
    VK_APPS Applications key (Microsoft keyboard)
    VK_NUMPAD0 0 key (numeric keypad)
    VK_NUMPAD1 1 key (numeric keypad)
    VK_NUMPAD2 2 key (numeric keypad)
    VK_NUMPAD3 3 key (numeric keypad)
    VK_NUMPAD4 4 key (numeric keypad)
    VK_NUMPAD5 5 key (numeric keypad)
    VK_NUMPAD6 6 key (numeric keypad)
    VK_NUMPAD7 7 key (numeric keypad)
    VK_NUMPAD8 8 key (numeric keypad)
    VK_NUMPAD9 9 key (numeric keypad)VK_MULTIPLY Multiply key (numeric keypad)
    VK_ADD Add key (numeric keypad)
    VK_SEPARATOR Separator key (numeric keypad)
    VK_SUBTRACT Subtract key (numeric keypad)
    VK_DECIMAL Decimal key (numeric keypad)
    VK_DIVIDE Divide key (numeric keypad)
    VK_F1 F1 key
    VK_F2 F2 key
    VK_F3 F3 key
    VK_F4 F4 key
    VK_F5 F5 key
    VK_F6 F6 key
    VK_F7 F7 key
    VK_F8 F8 key
    VK_F9 F9 key
    VK_F10 F10 key
    VK_F11 F11 key
    VK_F12 F12 key
    VK_F13 F13 key
    VK_F14 F14 key
    VK_F15 F15 keyVK_F16 F16 key
    VK_F17 F17 key
    VK_F18 F18 key
    VK_F19 F19 key
    VK_F20 F20 key
    VK_F21 F21 key
    VK_F22 F22 key
    VK_F23 F23 key
    VK_F24 F24 key
    VK_NUMLOCK Num Lock key
    VK_SCROLL Scroll Lock key
    VK_LSHIFT Left Shift key (only used with GetAsyncKeyState and GetKeyState)
    VK_RSHIFT Right Shift key  (only used with GetAsyncKeyState and GetKeyState)
    VK_LCONTROL Left Ctrl key  (only used with GetAsyncKeyState and GetKeyState)
    VK_RCONTROL Right Ctrl key  (only used with GetAsyncKeyState and GetKeyState)VK_LMENU Left Alt key  (only used with GetAsyncKeyState and GetKeyState)
    VK_RMENU Right Alt key  (only used with GetAsyncKeyState and GetKeyState)
    VK_PROCESSKEY Process key
    VK_ATTN Attn key
    VK_CRSEL CrSel key
    VK_EXSEL ExSel key
    VK_EREOF Erase EOF key
    VK_PLAY Play key
    VK_ZOOM Zoom key
    VK_NONAME Reserved for future use
    VK_PA1 PA1 key
    VK_OEM_CLEAR Clear key
      

  2.   

    {$EXTERNALSYM SB_HORZ}
      SB_HORZ = 0;
      {$EXTERNALSYM SB_VERT}
      SB_VERT = 1;
      {$EXTERNALSYM SB_CTL}
      SB_CTL = 2;
      {$EXTERNALSYM SB_BOTH}
      SB_BOTH = 3;  { Scroll Bar Commands }
      {$EXTERNALSYM SB_LINEUP}
      SB_LINEUP = 0;
      {$EXTERNALSYM SB_LINELEFT}
      SB_LINELEFT = 0;
      {$EXTERNALSYM SB_LINEDOWN}
      SB_LINEDOWN = 1;
      {$EXTERNALSYM SB_LINERIGHT}
      SB_LINERIGHT = 1;
      {$EXTERNALSYM SB_PAGEUP}
      SB_PAGEUP = 2;
      {$EXTERNALSYM SB_PAGELEFT}
      SB_PAGELEFT = 2;
      {$EXTERNALSYM SB_PAGEDOWN}
      SB_PAGEDOWN = 3;
      {$EXTERNALSYM SB_PAGERIGHT}
      SB_PAGERIGHT = 3;
      {$EXTERNALSYM SB_THUMBPOSITION}
      SB_THUMBPOSITION = 4;
      {$EXTERNALSYM SB_THUMBTRACK}
      SB_THUMBTRACK = 5;
      {$EXTERNALSYM SB_TOP}
      SB_TOP = 6;
      {$EXTERNALSYM SB_LEFT}
      SB_LEFT = 6;
      {$EXTERNALSYM SB_BOTTOM}
      SB_BOTTOM = 7;
      {$EXTERNALSYM SB_RIGHT}
      SB_RIGHT = 7;
      {$EXTERNALSYM SB_ENDSCROLL}
      SB_ENDSCROLL = 8;  { ShowWindow() Commands }
      {$EXTERNALSYM SW_HIDE}
      SW_HIDE = 0;
      {$EXTERNALSYM SW_SHOWNORMAL}
      SW_SHOWNORMAL = 1;
      {$EXTERNALSYM SW_NORMAL}
      SW_NORMAL = 1;
      {$EXTERNALSYM SW_SHOWMINIMIZED}
      SW_SHOWMINIMIZED = 2;
      {$EXTERNALSYM SW_SHOWMAXIMIZED}
      SW_SHOWMAXIMIZED = 3;
      {$EXTERNALSYM SW_MAXIMIZE}
      SW_MAXIMIZE = 3;
      {$EXTERNALSYM SW_SHOWNOACTIVATE}
      SW_SHOWNOACTIVATE = 4;
      {$EXTERNALSYM SW_SHOW}
      SW_SHOW = 5;
      {$EXTERNALSYM SW_MINIMIZE}
      SW_MINIMIZE = 6;
      {$EXTERNALSYM SW_SHOWMINNOACTIVE}
      SW_SHOWMINNOACTIVE = 7;
      {$EXTERNALSYM SW_SHOWNA}
      SW_SHOWNA = 8;
      {$EXTERNALSYM SW_RESTORE}
      SW_RESTORE = 9;
      {$EXTERNALSYM SW_SHOWDEFAULT}
      SW_SHOWDEFAULT = 10;
      {$EXTERNALSYM SW_MAX}
      SW_MAX = 10;  { Old ShowWindow() Commands }
      {$EXTERNALSYM HIDE_WINDOW}
      HIDE_WINDOW = 0;
      {$EXTERNALSYM SHOW_OPENWINDOW}
      SHOW_OPENWINDOW = 1;
      {$EXTERNALSYM SHOW_ICONWINDOW}
      SHOW_ICONWINDOW = 2;
      {$EXTERNALSYM SHOW_FULLSCREEN}
      SHOW_FULLSCREEN = 3;
      {$EXTERNALSYM SHOW_OPENNOACTIVATE}
      SHOW_OPENNOACTIVATE = 4;  { Identifiers for the WM_SHOWWINDOW message }
      {$EXTERNALSYM SW_PARENTCLOSING}
      SW_PARENTCLOSING = 1;
      {$EXTERNALSYM SW_OTHERZOOM}
      SW_OTHERZOOM = 2;
      {$EXTERNALSYM SW_PARENTOPENING}
      SW_PARENTOPENING = 3;
      {$EXTERNALSYM SW_OTHERUNZOOM}
      SW_OTHERUNZOOM = 4;  {$EXTERNALSYM AW_HOR_POSITIVE}
      AW_HOR_POSITIVE = $00000001;
      {$EXTERNALSYM AW_HOR_NEGATIVE}
      AW_HOR_NEGATIVE = $00000002;
      {$EXTERNALSYM AW_VER_POSITIVE}
      AW_VER_POSITIVE = $00000004;
      {$EXTERNALSYM AW_VER_NEGATIVE}
      AW_VER_NEGATIVE = $00000008;
      {$EXTERNALSYM AW_CENTER}
      AW_CENTER = $00000010;
      {$EXTERNALSYM AW_HIDE}
      AW_HIDE = $00010000;
      {$EXTERNALSYM AW_ACTIVATE}
      AW_ACTIVATE = $00020000;
      {$EXTERNALSYM AW_SLIDE}
      AW_SLIDE = $00040000;
      {$EXTERNALSYM AW_BLEND}
      AW_BLEND = $00080000;  { WM_KEYUPDOWNCHAR HiWord(lParam) flags }
      {$EXTERNALSYM KF_EXTENDED}
      KF_EXTENDED = $100;
      {$EXTERNALSYM KF_DLGMODE}
      KF_DLGMODE = $800;
      {$EXTERNALSYM KF_MENUMODE}
      KF_MENUMODE = $1000;
      {$EXTERNALSYM KF_ALTDOWN}
      KF_ALTDOWN = $2000;
      {$EXTERNALSYM KF_REPEAT}
      KF_REPEAT = $4000;
      {$EXTERNALSYM KF_UP}
      KF_UP = $8000;  { Virtual Keys, Standard Set }
      {$EXTERNALSYM VK_LBUTTON}
      VK_LBUTTON = 1;
      {$EXTERNALSYM VK_RBUTTON}
      VK_RBUTTON = 2;
      {$EXTERNALSYM VK_CANCEL}
      VK_CANCEL = 3;
      {$EXTERNALSYM VK_MBUTTON}
      VK_MBUTTON = 4;  { NOT contiguous with L & RBUTTON }
      {$EXTERNALSYM VK_BACK}
      VK_BACK = 8;
      {$EXTERNALSYM VK_TAB}
      VK_TAB = 9;
      {$EXTERNALSYM VK_CLEAR}
      VK_CLEAR = 12;
      {$EXTERNALSYM VK_RETURN}
      VK_RETURN = 13;
      {$EXTERNALSYM VK_SHIFT}
      VK_SHIFT = $10;
      {$EXTERNALSYM VK_CONTROL}
      VK_CONTROL = 17;
      {$EXTERNALSYM VK_MENU}
      VK_MENU = 18;
      {$EXTERNALSYM VK_PAUSE}
      VK_PAUSE = 19;
      {$EXTERNALSYM VK_CAPITAL}
      VK_CAPITAL = 20;
      {$EXTERNALSYM VK_KANA }
      VK_KANA = 21;
      {$EXTERNALSYM VK_HANGUL }
      VK_HANGUL = 21;
      {$EXTERNALSYM VK_JUNJA }
      VK_JUNJA = 23;
      {$EXTERNALSYM VK_FINAL }
      VK_FINAL = 24;
      {$EXTERNALSYM VK_HANJA }
      VK_HANJA = 25;
      {$EXTERNALSYM VK_KANJI }
      VK_KANJI = 25;
      {$EXTERNALSYM VK_CONVERT }
      VK_CONVERT = 28;
      {$EXTERNALSYM VK_NONCONVERT }
      VK_NONCONVERT = 29;
      {$EXTERNALSYM VK_ACCEPT }
      VK_ACCEPT = 30;
      {$EXTERNALSYM VK_MODECHANGE }
      VK_MODECHANGE = 31;
      {$EXTERNALSYM VK_ESCAPE}
      VK_ESCAPE = 27;
      {$EXTERNALSYM VK_SPACE}
      VK_SPACE = $20;
      {$EXTERNALSYM VK_PRIOR}
      VK_PRIOR = 33;
      {$EXTERNALSYM VK_NEXT}
      VK_NEXT = 34;
      {$EXTERNALSYM VK_END}
      VK_END = 35;
      {$EXTERNALSYM VK_HOME}
      VK_HOME = 36;
      {$EXTERNALSYM VK_LEFT}
      VK_LEFT = 37;
      {$EXTERNALSYM VK_UP}
      VK_UP = 38;
      {$EXTERNALSYM VK_RIGHT}
      VK_RIGHT = 39;
      {$EXTERNALSYM VK_DOWN}
      VK_DOWN = 40;
      {$EXTERNALSYM VK_SELECT}
      VK_SELECT = 41;
      {$EXTERNALSYM VK_PRINT}
      VK_PRINT = 42;
      {$EXTERNALSYM VK_EXECUTE}
      VK_EXECUTE = 43;
      {$EXTERNALSYM VK_SNAPSHOT}
      VK_SNAPSHOT = 44;
      {$EXTERNALSYM VK_INSERT}
      VK_INSERT = 45;
      {$EXTERNALSYM VK_DELETE}
      VK_DELETE = 46;
      {$EXTERNALSYM VK_HELP}
      VK_HELP = 47;
    { VK_0 thru VK_9 are the same as ASCII '0' thru '9' ($30 - $39) }
    { VK_A thru VK_Z are the same as ASCII 'A' thru 'Z' ($41 - $5A) }
      {$EXTERNALSYM VK_LWIN}
      VK_LWIN = 91;
      {$EXTERNALSYM VK_RWIN}
      VK_RWIN = 92;
      {$EXTERNALSYM VK_APPS}
      VK_APPS = 93;
      {$EXTERNALSYM VK_NUMPAD0}
      VK_NUMPAD0 = 96;
      {$EXTERNALSYM VK_NUMPAD1}
      VK_NUMPAD1 = 97;
      {$EXTERNALSYM VK_NUMPAD2}
      VK_NUMPAD2 = 98;
      {$EXTERNALSYM VK_NUMPAD3}
      VK_NUMPAD3 = 99;
      {$EXTERNALSYM VK_NUMPAD4}
      

  3.   

    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面
    全在WINDOWS.PAS里面