如何用registerhotkey设置多个热键?
如可以用alt+f10,也能用单独的f10还能用其他的等。
如可以用alt+f10,也能用单独的f10还能用其他的等。
解决方案 »
- dephi的小程序真的看不到源代码吗? (200分)
- regsvr32 C:\WINNT\system32\WuZhouCpu.dll注册为何不能成功?
- 百思不得其解的“列表索引越界”。(等待ING……)
- 打开文件时如果输入的文件名不存在该怎么处理
- 如何动态生成access数据库,最好有源码
- 请问嵌入网页中的Activex如何调整自身的大小?请各位高手帮忙!谢谢!
- 获得键盘消息的问题!!
- WebService的CGI Error
- SendMessage(ScrollBox1.Handle,WM_HSCROLL,SB_THUMBPOSITION,npos);!!!我要急死了!!!
- 请教:如何操作WebBrowser的缓冲区,即对目录Temporary Internet Files中文件添加删除等??急急!!!
- 本人想把.txt文件里其中一横数据删除,后面的内容怎样向上移动一行
- zxx进来
Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
Dialogs;type
TForm1 = class(TForm)
procedure FormCreate(Sender: TObject);
procedure FormClose(Sender: TObject; var Action: TCloseAction);
private
{ Private declarations }
public
{ Public declarations }
id_F10, id_Alt_F10: Integer;
procedure WMHotKey(var Msg : TWMHotKey); message WM_HOTKEY;
end;var
Form1: TForm1;implementation{$R *.dfm}procedure TForm1.WMHotKey (var Msg : TWMHotKey);
begin
if Msg.HotKey = id_F10 then begin
ShowMessage('F10');
end else
if Msg.HotKey = id_Alt_F10 then begin
ShowMessage('Alt+F10');
end;
end;procedure TForm1.FormCreate(Sender: TObject);
begin
if GlobalFindAtom('MyHotkey_F10') = 0 then begin
id_F10 := GlobalAddAtom('MyHotkey_F10');
RegisterHotKey(Handle, id_F10, 0, VK_F10);
end;
if GlobalFindAtom('MyHotkey_Alt_F10') = 0 then begin
id_Alt_F10 := GlobalAddAtom('MyHotkey_Alt_F10');
RegisterHotKey(Handle, id_Alt_F10, MOD_ALT, VK_F10);
end;
end;procedure TForm1.FormClose(Sender: TObject; var Action: TCloseAction);
begin
UnRegisterHotKey(Handle,id_F10);
GlobalDeleteAtom(id_F10);
UnRegisterHotKey(Handle,id_Alt_F10);
GlobalDeleteAtom(id_Alt_F10);
end;end.