[背景] 公司做视频影像采集,平时采集图像的时候都需要打开采集窗口,然后需要开着采集窗口来进行图像采集.同事问我能不能做一个全局快捷键,哪怕我没有操作也可以采集图像.说干就干,一直想做全局快捷键了,网上找了一些代码,凑合了一下,达到了实现的效果,同事反应使用效果不错. [知识点] 本代码有如下Delphi知识可以参考学习: 1.Delphi ini文件的读取写入. 2.Delphi全局快捷键的检测和注册. 3.Delphi给指定窗体发送按键. 4.Delphi任务栏显示.隐藏自己的程序. 5.D

Delphi 判断按键状态 http://blog.sina.com.cn/s/blog_54da9cc001015di1.html (2012-04-05 14:22:50) 标签: 杂谈 分类: Delphi 调用GetKeyState(nVirtKey:integer)函数,可以判断是否按下了Alt.Ctrl.Shift键,如果函数返回值<0则表示按下了. 参数: nVirtKey     指定一个键.如果指定字母或数字键,nVirtKey 必须为该字符的 ASCII 码值.如:判断‘a’

filename:send_key.py 1 # Author:Bing # Date:07/19/2017 import SendKeys import win32gui import pywin import os import sys handle=win32gui.FindWindow(0,'serial-com8 - SecureCRT')#设置运行脚本终端的title h=win32gui.SetForegroundWindow(handle) SendKeys.SendKeys('

'=========================================================================='' VBScript Source File -- Created with SAPIEN Technologies PrimalScript 4.0'' NAME: '' AUTHOR: Microsoft , Microsoft' DATE : 2014/8/10'' COMMENT: ''===================定义变量,注册

1.Perform 函数 DBGrid1.Perform(WM_VSCROLL,SB_PAGEDOWN,0);  //控制滚动条,向后翻页 DBGrid1.Perform(WM_VSCROLL,SB_PAGEUP,0);  //控制滚动条,向前翻页 2.SendMessage 函数 SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEDOWN,0); SendMessage(DBGrid1.Handle,WM_VSCROLL,SB_PAGEUP,0); 3.

用C#调用Windows API向指定窗口发送 一.调用Windows API. C#下调用Windows API方法如下: 1.引入命名空间:using System.Runtime.InteropServices; 2.引用需要使用的方法,格式:[DllImport("DLL文件")]方法的声明; [DllImport("user32.dll")]private static extern bool ShowWindow(IntPtr hWnd, int nCm

一.调用Windows API. C#下调用Windows API方法如下: 1.引入命名空间:using System.Runtime.InteropServices; 2.引用需要使用的方法,格式:[DllImport("DLL文件")]方法的声明; [DllImport("user32.dll")]private static extern bool ShowWindow(IntPtr hWnd, int nCmdShow); [DllImport("

需要的环境:Adobe Acrobat 7.0 Professional  和   Quite Imposing Plus 1.5d Acrobat plugin  (qi160.exe) 程序界面: unit Unit1; interface uses Winapi.Windows, Winapi.Messages, System.SysUtils, System.Variants, System.Classes, Vcl.Graphics, Vcl.Controls, Vcl.Forms,

var html: TIdText; begin if not SMTP.Connected then SMTP.Disconnect(); try SMTP.Connect; try if SMTP.Authenticate then //验证 begin EMessage.Recipients.EMailAddresses := FUser; EMessage.ClearBody;//清空正文 html:= TIdText.Create(EMessage.MessageParts); EMe

procedure TfrmMain.btnSendClick(Sender: TObject); var hCalc, h1: Cardinal; begin WinExec('calc', SW_SHOWNORMAL);//运行计算器 hCalc := FindWindow('SciCalc', nil); //查找计算器主窗口句柄,通过Spy++可查看到类名等 h1 := FindWindowEx(hCalc, 0, 'Button', '9'); //查找按钮1的句柄,通过Spy++可查

本文转载自:http://blog.csdn.net/moyu123456789/article/details/71209893 1.adb shell进入android设备,执行命令input keyevent keycode即可,例如:input keyevent 3 3为KEYCODE_HOME 2.直接adb shell input keyevent keycode也可以,adb shell input keyevent 3 3为KEYCODE_HOME KEYCODE和对应的数值在a

向其他程序发送模拟按键: 1.用keybd_event: varh : THandle;beginh := FindWindow('TFitForm', '1stOpt - [Untitled1]');SetForegroundWindow(h);keybd_event(VK_CONTROL, MapVirtualKey(VK_CONTROL, 0), 0, 0);keybd_event(VK_F9, MapVirtualKey(VK_F9, 0), 0, 0);keybd_event(VK_F

http://files.cnblogs.com/files/liuzhaoyzz/VB%E5%8F%91%E9%80%81%E5%90%8E%E5%8F%B0%E7%BB%84%E5%90%88%E9%94%AE.rar 先上图,以记事本为例,新建若干个command. 直接上代码.试过了,发送单字符及功能键F3没问题. 发送CTRL+C,CTRL+X,CTRL+V不能后台,只能前台. CTRL+v后台可以用SendMessage thwnd, WM_PASTE, 0, 0消息代替,但不一定有

一.delphi发送消息的函数主要有以下三个: (一).SendMessage函数,其原型如下: function SendMessage( hWnd: HWND; {目标句柄} Msg: UINT; {要发送的消息(编号)} wParam: WPARAM; {消息参数} lParam: LPARAM {消息参数} ): LRESULT; stdcall; {返回处理结果} (二).PostMessage函数 function PostMessage( hWnd: HWND; {目标句柄} Ms

先人的DELPHI基础开发技巧 ◇[DELPHI]网络邻居复制文件 uses shellapi; copyfile(pchar('newfile.txt'),pchar('//computername/direction/targer.txt'),false); ◇[DELPHI]产生鼠标拖动效果 通过MouseMove事件.DragOver事件.EndDrag事件实现,例如在PANEL上的LABEL: var xpanel,ypanel,xlabel,ylabel:integer; PANEL

模拟键盘我们用Keybd_event这个api函数,模拟鼠标按键用mouse_event函数. Keybd_event函数能触发一个按键事件,也就是会产生一个WM_KEYDOWN或WM_KEYUP消息,一般用这两个消息来模拟一 次按键(按键的过程是:按下,然后弹起),但是没有直接用这个函数方便.Keybd_event共有四个参数:第一个为按键的虚拟键值,如回车键为vk_return, tab键为vk_tab;第二个参数为扫描码,一般不用设置,用0代替就行;第三个参数为选项标志,如果为keydow

常用[属性] Action:该属性是与组件关联的行为,允许应用程序集中响应用户命令 Anchors:与组件连接的窗体的位置点 Align:确定组件的对齐方式 AutoSize:确定组件是否自动调整其大小 BiDiMode:(所有组件) 为从右向左写的语言提供支持 BoundsRect:定义组件边框矩形(只适用于运行时) Borderwidth:(窗口化组件)边框的宽度 BorberStyle:设置组件边框形状(样式) Brush:可确定组件的风格和颜色 Caption:使用该属性可指定标注组件的

PostMessage 向Windows窗口发送Alt组合键 关于向Windows窗口发送Alt组合键的问题,这个真是经典问题啊,在网上找了一下,问的人N多,方法差不多, 但就是没有很好解决问题. 之前找到一个能正确发送的code:(Alt+A) PostMessage(hWnd,WM_SYSKEYDOWN,VK_MENU,0); PostMessage(hWnd,WM_SYSKEYDOWN,0x41,0); Sleep(50); PostMessage(hWnd,WM_SYSKEYUP,0x4

选择 Delphi 2007 ( CodeGear Delphi 2007 for Win32 Version 11.0.2837.9583 ) 的理由 我不喜欢用InstallRite的全自动安装包 我比较喜欢用Delphi 2007的ISO镜像安装 我用Delphi 2007 为Delphi 2007 的安装和汉化等操作制作了一个全自动安装可执行文件EXE while True do //一直不断检查程序有没有运行,窗口有没有最前最大化,按键有没有发送完毕 begin Sleep(100);

关于向Windows窗口发送Alt组合键的问题,这个真是经典问题啊,在网上找了一下,问的人N多,方法差不多, 但就是没有很好解决问题. 之前找到一个能正确发送的code:(Alt+A) PostMessage(hWnd,WM_SYSKEYDOWN,VK_MENU,0); PostMessage(hWnd,WM_SYSKEYDOWN,0x41,0); Sleep(50); PostMessage(hWnd,WM_SYSKEYUP,0x41,0); PostMessage(hWnd,WM_SYSKE