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.