使用全局热键显示隐藏窗体

最新推荐文章于 2020-03-07 14:01:13 发布

weixin_33841503

最新推荐文章于 2020-03-07 14:01:13 发布

阅读量148

点赞数

文章标签： c/c++ c#

原文链接：http://www.cnblogs.com/jxgxy/archive/2011/07/29/2121086.html

版权

unit Unit1;

interface

uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs;

type
  TForm1 = class(TForm)
     procedure FormCreate(Sender: TObject);
     procedure WMHotKey( var Msg: TWMHotKey); message WM_HOTKEY;
  private
     { Private declarations }
  public
     { Public declarations }
   end ;

var
  Form1: TForm1;
  HotKeyId: Cardinal;

implementation

{ $R *.dfm }

procedure TForm1.FormCreate(Sender: TObject);
const
  MOD_ALT = 1 ;
  MOD_CONTROL = 2 ;
  VK_R = 82 ;
begin
   // Ctrl + Alt + S
  try
    HotKeyId : = GlobalAddAtom( ' MyHotKey ' ) - $C000;
    RegisterHotKey(handle, HotKeyId, MOD_CONTROL + MOD_ALT, VK_R);
  except

   end ;
end ;

procedure TForm1.WMHotKey( var Msg: TWMHotKey);
begin
   if Msg.HotKey = HotKeyId then
   begin
     if Application.ShowMainForm then
     begin
      Application.ShowMainForm : = False;
     end else
     begin
      Application.ShowMainForm : = True;
     end ;
   end ;
   if Self.Visible then Self.Visible : = False
   else Self.Visible : = True;
end ;

end .

转载于:https://www.cnblogs.com/jxgxy/archive/2011/07/29/2121086.html