怎样在delphi中使用系统热键?
怎样在delphi中使用系统热键? 问题点数:20、回复次数:1Top
1 楼coldljy(青山隐隐)回复于 2001-04-01 23:01:00 得分 20
function RegisterHotKey(hWnd: HWND; id: Integer; fsModifiers, vk: UINT): BOOL; stdcall;
function UnregisterHotKey(hWnd: HWND; id: Integer): BOOL; stdcall;
...
protected
procedure WMHotKey(var Message: TMessage); message WM_HOTKEY;
...
procedure TForm1.FormCreate(Sender: TObject);
begin
RegisterHotKey(Handle,123,MOD_CONTROL,VK_F7);//Ctrl_F7
end;
procedure TForm1.WMHotKey(var Message: TMessage);
begin
Application.Restore;
end;Top




