Delphi 中的全局快捷鍵+給指定窗體發送按鍵

【背景】

公司做視頻影像采集，平時采集圖像的時候都需要打開采集窗口，然後需要開著采集窗口來進行圖像采集。同事問我能不能做一個全局快捷鍵，哪怕我沒有操作也可以采集圖像。說干就干，一直想做全局快捷鍵了，網上找了一些代碼，湊合了一下，達到了實現的效果，同事反應使用效果不錯。

【知識點】

本代碼有如下Delphi知識可以參考學習：

1、Delphi ini文件的讀取寫入。

2、Delphi全局快捷鍵的檢測和注冊。

3、Delphi給指定窗體發送按鍵。

4、Delphi任務欄顯示、隱藏自己的程序。

5、Delphi中給你的程序置頂.

【效果】

【代碼】

   
 
  
 
    
 
   Tfrm_Main =                                 
     aatom: ATOM; //      hotykey( msg: TMessage);  WM_HOTKEY; //     
   
     
     
 
    
 
  
 
  
  
  
   h := FindWindow(, (    h >  
     lbl_Tip.Caption := 
   
     lbl_Tip.Caption :=    //   PostMessage(h, WM_KEYDOWN, VK_SPACE,   
   
  Tfrm_Main.hotykey( 
  
    TWMHotKey(msg).HotKey = aatom 
   
     // ShowMessage(     
    (msg.LParamHi = KeyValue) 
   
     //     // ShowMessage(     h := FindWindow(, (      h >  
       lbl_Tip.Caption := 
     
       lbl_Tip.Caption :=      PostMessage(h, WM_KEYDOWN, VK_SPACE,       
  
    
  
  
  
   //   Config :=       +    Self.Top := StrToInt(Config.ReadString(, ,    Self.Left := StrToInt(Config.ReadString(, ,    KeyValue := StrToInt(Config.ReadString(, ,   
    KeyValue <>  
   
      KeyValue 
                btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=                 btn_Capture.Caption :=   
          
   //    FindAtom() =  
   
     aatom := GlobalAddAtom(       RegisterHotKey(Handle, aatom, , KeyValue) 
   
     // MessageBox(Handle, ,      
   lbl_Tip.Caption :=       frm_Main.Width, frm_Main.Height,    //   
   //   //   //   
  
     
   
  
    (ssleft  Shift) 
   
      Perform(WM_syscommand, $F012,      
   //   Config :=       +   
   Config.WriteString(,    Config.WriteString(,   
   
 .