Delphi 中的全局快捷键+给指定窗体发送按键

【背景】

公司做视频影像采集，平时采集图像的时候都需要打开采集窗口，然后需要开着采集窗口来进行图像采集。同事问我能不能做一个全局快捷键，哪怕我没有操作也可以采集图像。说干就干，一直想做全局快捷键了，网上找了一些代码，凑合了一下，达到了实现的效果，同事反应使用效果不错。

【知识点】

本代码有如下Delphi知识可以参考学习：

1、Delphi ini文件的读取写入。

2、Delphi全局快捷键的检测和注册。

3、Delphi给指定窗体发送按键。

4、Delphi任务栏显示、隐藏自己的程序。

5、Delphi中给你的程序置顶.

【效果】

【代码】

unit U_Main;
 
interface
 
uses
  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,
  Dialogs, StdCtrls, ExtCtrls, IniFiles;
 
type
  Tfrm_Main = class(TForm)
    btn_Capture: TButton;
    lbl_Tip: TLabel;
    btn_Close: TButton;
    procedure btn_CaptureClick(Sender: TObject);
    procedure FormCreate(Sender: TObject);
    procedure FormMouseDown(Sender: TObject; Button: TMouseButton;
      Shift: TShiftState; X, Y: Integer);
    procedure FormDestroy(Sender: TObject);
    procedure btn_CloseClick(Sender: TObject);
  private
    aatom: ATOM; // 全局快捷键
    procedure hotykey(var msg: TMessage); message WM_HOTKEY; // 定义全局热键消息事件
    { Private declarations }
  public
    { Public declarations }
  end;
 
var
  frm_Main: Tfrm_Main;
  KeyValue: Integer;
 
implementation
 
{$R *.dfm}
 
procedure Tfrm_Main.btn_CaptureClick(Sender: TObject);
var
  h: THandle;
begin
  h := FindWindow(nil, ('视频影像'));
  if h > 0 then
    lbl_Tip.Caption := '视频影像已打开,可以采集!'
  else
    lbl_Tip.Caption := '视频影像未打开,不可采集!';
  // SetForegroundWindow(h);
  PostMessage(h, WM_KEYDOWN, VK_SPACE, 0);
 
end;
 
procedure Tfrm_Main.hotykey(var msg: TMessage);
var
  h: THandle;
begin
  if TWMHotKey(msg).HotKey = aatom then
  begin
    // ShowMessage('s');
  end;
 
  if (msg.LParamHi = KeyValue) then
  begin
    // 全局快捷键处理事件
    // ShowMessage('视频影像采集开始');
    h := FindWindow(nil, ('视频影像'));
    if h > 0 then
      lbl_Tip.Caption := '视频影像已打开,可以采集!'
    else
      lbl_Tip.Caption := '视频影像未打开,不可采集!';
    PostMessage(h, WM_KEYDOWN, VK_SPACE, 0);
  end;
end;
 
procedure Tfrm_Main.btn_CloseClick(Sender: TObject);
begin
  Self.Close;
end;
 
procedure Tfrm_Main.FormCreate(Sender: TObject);
var
  Config: Tinifile;
begin
 
  // 读取位置
  Config := Tinifile.Create(ExtractFilePath(Application.Exename)
      + 'Config.ini');
  Self.Top := StrToInt(Config.ReadString('Config', 'strTop', '100'));
  Self.Left := StrToInt(Config.ReadString('Config', 'strLeft', '100'));
  KeyValue := StrToInt(Config.ReadString('Config', 'Key', '118'));
 
  if KeyValue <> 0 then
  begin
    case KeyValue of
      112:
        btn_Capture.Caption := '【F1 视频图像采集】';
      113:
        btn_Capture.Caption := '【F2 视频图像采集】';
      114:
        btn_Capture.Caption := '【F3 视频图像采集】';
      115:
        btn_Capture.Caption := '【F4 视频图像采集】';
      116:
        btn_Capture.Caption := '【F5 视频图像采集】';
      117:
        btn_Capture.Caption := '【F6 视频图像采集】';
      118:
        btn_Capture.Caption := '【F7 视频图像采集】';
      119:
        btn_Capture.Caption := '【F8 视频图像采集】';
      120:
        btn_Capture.Caption := '【F9 视频图像采集】';
      121:
        btn_Capture.Caption := '【F10 视频图像采集】';
      122:
        btn_Capture.Caption := '【F11 视频图像采集】';
      123:
        btn_Capture.Caption := '【F12 视频图像采集】';
 
    end;
  end;
 
  // 建立全局快捷键
  if FindAtom('HotKey') = 0 then
  begin
    aatom := GlobalAddAtom('HotKey');
  end;
  if RegisterHotKey(Handle, aatom, 0, KeyValue) then
  begin
    // MessageBox(Handle, '按F8', '提示', MB_OK);
  end;
 
  lbl_Tip.Caption := '';
  SetWindowPos(frm_Main.Handle, HWND_TOPMOST, frm_Main.Left, frm_Main.Top,
    frm_Main.Width, frm_Main.Height, 0);
  // 在任务栏隐藏
  SetWindowLong(frm_Main.Handle, GWL_EXSTYLE, WS_EX_TOOLWINDOW);
 
  // btn_CaptureClick(Sender);
  // 在任务栏显示
  // SetWindowLong(frm_Main.Handle, GWL_EXSTYLE, WS_EX_APPWINDOW);
end;
 
procedure Tfrm_Main.FormDestroy(Sender: TObject);
begin
  UnregisterHotKey(Handle, aatom);
  GlobalDeleteAtom(aatom);
end;
 
procedure Tfrm_Main.FormMouseDown(Sender: TObject; Button: TMouseButton;
  Shift: TShiftState; X, Y: Integer);
var
  Config: Tinifile;
begin
  if (ssleft in Shift) then
  begin
    ReleaseCapture;
    Perform(WM_syscommand, $F012, 0);
  end;
 
  // 读取位置
  Config := Tinifile.Create(ExtractFilePath(Application.Exename)
      + 'Config.ini');
 
  Config.WriteString('Config', 'strTop', IntToStr(Self.Top));
  Config.WriteString('Config', 'strLeft', IntToStr(Self.Left));
 
end;
 
end.