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;
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;
解决方案 »
免费领取超大流量手机卡,每月29元包185G流量+100分钟通话, 中国电信官方发货