怎樣實現快捷鍵調用程序啊? 我想在任何時候按F8能掉出那個程序的窗口﹐怎么實現啊﹐謝謝了 解决方案 » 免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货 注册成热健,具体看我的这个帖子http://expert.csdn.net/Expert/topic/2094/2094919.xml?temp=.5873529 uses ShellApi; private { Private declarations } procedure HotKeyHandler(var message: TMessage); message WM_HOTKEY;var Form1: TForm1; idF11, idF12: Integer;procedure TForm1.HotKeyHandler(var message: TMessage);begin case message.LParamHi of VK_F11: ShowMessage('F11'); VK_F12: ShowMessage('F12'); end;end;procedure TForm1.FormCreate(Sender: TObject);begin idF11 := GlobalAddAtom('hotkey2'); idF12 := GlobalAddAtom('hotkey3'); RegisterHotKey(handle, idF11, 0, VK_F11); RegisterHotKey(handle, idF12, 0, VK_F12);end;procedure TForm1.FormDestroy(Sender: TObject);begin UnRegisterHotKey(handle, idF11); UnRegisterHotKey(handle, idF12);end; 考勤的排班问题,大家怎么解决的呢 获得某磁盘目录树结构后,将此结构保存为何种格式文件,方便查找及维护 人民币字符打印 ~~~如何把界面做的美观? 推荐一个好的打开和刷新----@@带永久字段(包括LookUp类型的Tfield)数据集@@___的方法。 Delphi中Excel的问题 为什么我的裁剪图 位置就是不对 delphi写的 没有源码?怎么安装组件? HInstance是什么东西? Delphi7打开窗体 怎样使用SERVERS中的EXCEL类的控件? 关于创建虚拟字段
http://expert.csdn.net/Expert/topic/2094/2094919.xml?temp=.5873529
{ Private declarations }
procedure HotKeyHandler(var message: TMessage); message WM_HOTKEY;var
Form1: TForm1;
idF11, idF12: Integer;procedure TForm1.HotKeyHandler(var message: TMessage);
begin
case message.LParamHi of
VK_F11: ShowMessage('F11');
VK_F12: ShowMessage('F12');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
idF11 := GlobalAddAtom('hotkey2');
idF12 := GlobalAddAtom('hotkey3');
RegisterHotKey(handle, idF11, 0, VK_F11);
RegisterHotKey(handle, idF12, 0, VK_F12);
end;procedure TForm1.FormDestroy(Sender: TObject);
begin
UnRegisterHotKey(handle, idF11);
UnRegisterHotKey(handle, idF12);
end;