1.
Delphi 怎么强制退出程序啊 ExitProcess(0);
Application.Terminate; 2.delphi 退出程序询问 Y/N
procedure TForm1.FormCloseQuery(Sender: TObject; var CanClose: Boolean); begin if application.MessageBox('真的要退出本
系统吗?','提示',mb_yesno)=idno then begin canclose := false; end; end; ESC 退出程序(delphi) procedure TForm1.FormCreate(Sender: TObject); begin keypreview:=true; //可以接收键盘操作 end; procedure TForm1.FormKeyPress(Sender: TObject; var Key: Char); begin if key = #27 then application.terminate; end; #13 回车 #10 换行 #20 为空格 键盘常用 ASCII 码(delphi) 键盘
常用 ASCII 码(delphi) ESC 键 VK_ESCAPE (27) 回车键: VK_RETURN (13) TAB 键: VK_TAB (9) Caps Lock 键: VK_CAPITAL (20) Shift 键:VK_SHIFT ($10) Ctrl 键:VK_CONTROL (17) Alt 键:VK_MENU (18) 空格键:VK_SPACE ($20/32) 退格键: VK_BACK (8) 左徽标键: VK_LWIN (91) 右徽标键: VK_LWIN (92) 鼠标右 键快捷键: VK_APPS (93) Insert 键: VK_INSERT (45) Home 键: VK_HOME (36) Page Up: VK_PRIOR (33) PageDown: VK_NEXT (34) End 键: VK_END (35) Delete 键: VK_DELETE (46) 方向键(←): VK_LEFT (37) 方向键(↑): VK_UP (38) 方向键(→): VK_RIGHT (39) 方向键(↓): VK_DOWN (40) F1 键: VK_F1 (112) F2 键: VK_F2 (113) F3 键: VK_F3 (114) F4 键: VK_F4 (115) F5 键: VK_F5 (116) F6 键: VK_F6 (117) F7 键: VK_F7 (118) F8 键: VK_F8 (119) F9 键: VK_F9 (120) F10 键: VK_F10 (121) F11 键: VK_F11 (122) F12 键: VK_F12 (123) Num Lock 键: //关闭
程序 VK_NUMLOCK (144) 小键盘 0: VK_NUMPAD0 (96) 小键盘 1: VK_NUMPAD0 (97) 小键盘 2: VK_NUMPAD0 (98) 小键盘 3: VK_NUMPAD0 (99) 小键盘 4: VK_NUMPAD0 (100) 小键盘 5: VK_NUMPAD0 (101) 小键盘 6: VK_NUMPAD0 (102) 小键盘 7: VK_NUMPAD0 (103) 小键盘 8: VK_NUMPAD0 (104) 小键盘 9: VK_NUMPAD0 (105) 小键盘.: VK_DECIMAL (110) 小键盘*: VK_MULTIPLY (106) 小键盘+: VK_MULTIPLY (107) 小键盘-: VK_SUBTRACT (109) 小键盘/: VK_DIVIDE (111) Pause Break 键: VK_PAUSE (19) Scroll Lock 键: VK_SCROLL (145) //------------------------------ VK_LBUTTON = 1; VK_RBUTTON = 2; VK_CANCEL = 3; VK_MBUTTON = 4; VK_BACK = 8; VK_TAB = 9; VK_CLEAR = 12; VK_RETURN = 13; VK_SHIFT = $10; VK_CONTROL = 17; VK_MENU = 18; VK_PAUSE = 19; VK_CAPITAL = 20; VK_ESCAPE = 27; VK_SPACE = $20; VK_PRIOR = 33; VK_NEXT = 34; VK_END = 35; VK_HOME = 36; VK_LEFT = 37; VK_UP = 38; VK_RIGHT = 39; VK_DOWN = 40; VK_SELECT = 41; VK_PRINT = 42; VK_EXECUTE = 43; VK_SNAPSHOT = 44; VK_INSERT = 45; VK_DELETE = 46; 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) } VK_LWIN = 91; VK_RWIN = 92; VK_APPS = 93; VK_NUMPAD0 = 96; VK_NUMPAD1 = 97;
VK_NUMPAD2 = 98; VK_NUMPAD3 = 99; VK_NUMPAD4 = 100; VK_NUMPAD5 = 101; VK_NUMPAD6 = 102; VK_NUMPAD7 = 103; VK_NUMPAD8
= 104; VK_NUMPAD9 = 105; VK_MULTIPLY = 106; VK_ADD = 107; VK_SEPARATOR = 108; VK_SUBTRACT = 109; VK_DECIMAL = 110; VK_DIVIDE = 111; VK_F1 = 112; VK_F2 = 113; VK_F3 = 114; VK_F4 = 115; VK_F5 = 116; VK_F6 = 117; VK_F7 = 118; VK_F8 = 119; VK_F9 = 120; VK_F10 = 121; VK_F11 = 122; VK_F12 = 123; VK_F13 = 124; VK_F14 = 125; VK_F15 = 126; VK_F16 = 127; VK_F17 = 128; VK_F18 = 129; VK_F19 = 130; VK_F20 = 131; VK_F21 = 132; VK_F22 = 133; VK_F23 = 134; VK_F24 = 135; VK_NUMLOCK = 144; VK_LSHIFT = 160; VK_RSHIFT = 161; VK_LCONTROL = 162; VK_RCONTROL = 163; VK_LMENU = 164;
VK_RMENU = 165; VK_PROCESSKEY = 229; VK_ATTN = 246; VK_CRSEL = 247; VK_EXSEL = 248; VK_EREOF = 249; VK_PLAY = 250; VK_Z