键盘鼠标共75篇

Delphi 如何通过代码控制打开键盘数字锁定NumLock

uses  Windows;...procedure SetNumLockOn;var  KeyState: TKeyBoardState;begin  GetKeyboardState(KeyState);  if GetKeyState(VK_NUMLOCK) = 0 then begin   ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04210

delphi 获取按键键值

procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word; Shift: TShiftState);begin  ShowMessage(IntToStr(Key));end;
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0355
delphi 快捷键设置控件: THotKey-Delphi编程技巧大全

delphi 快捷键设置控件: THotKey

运行效果图: unit Unit1; interface uses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,  Dialogs, StdCtrls, ComCtrls; type&...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0337

Delphi向当前窗口模拟键盘CTRL+V发送"粘贴"

GetForegroundWindow();可以得到当前窗口句柄。不过不需要用GetForegroundWindow()。直接在 uses 中加入clipbrd在热键处理函数中加入clipboard.Clear;clipboard.AsText:=edit1.Text;keybd_event...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03713

delphi 如何设置热键

unit Unit1;interfaceuses  Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs;type  TForm1 = class(TForm)    procedure FormCreate(Sender: T...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03313

Delphi 如何按下ESC键退出程序

分别在FormCreate,FormKeyPress事件中输入以下代码: procedure TForm1.FormCreate(Sender: TObject);begin  keypreview:= True;  //可以接收键盘操作end; procedure TForm1...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03215

Delphi 操作键盘按下和释放操作

这段Delphi代码可以用来控制键盘上的某一个键的按下和释放操作,比如你希望从软件模拟按下Print Screen按键对屏幕截图,可以使用这个程序。 Unit Unit1; Interface Uses  W...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0376

Delphi 拦截Tab按键消息

如果要拦截TAB键行为,应该捕获 CM_DIALOGKEY 消息。在这里示例中,如果将 YouWantToInterceptTab 布尔值设置为 true,则将会吃掉 TAB 键:unit Unit1;interfaceuses Windows, Messages, S...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
03911

Delphi监测按键输入

1. Form -> keyprivew = True2.procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif (key = vk_down) or (key = 13) then begin // 如果按向下鍵或En...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0545

Delphi侦测按键输入

1. Form -> keyprivew = True2.procedure TForm1.FormKeyDown(Sender: TObject; var Key: Word;Shift: TShiftState);beginif ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04414

delphi 如何使用SendMessage发送后台组合键消息(Ctrl+XXX)

unit Unit1;interfaceusesWindows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,StdCtrls;typeTForm1 = class(TForm...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0587

Delphi 判断按键状态

调用GetKeyState(nVirtKey:integer)函数,可以判断是否按下了Alt、Ctrl、Shift键,如果函数返回值<0则表示按下了。参数:nVirtKey    指定一个键。如果指定字母或数字键...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04914

Delphi XE2模拟键盘按键

Delphi XE2模拟键盘按键// 在 用友U6 V3.2 - 【产品采购】打开计算器procedure TForm1.SpeedButton1Click(Sender: TObject);Var  c:Hwnd;&n...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04014

delphi 键盘记录源代码

 program KeyLog2;usesWindows,Messages;var JournalRecordHook: HHOOK;// 记录钩子回调函数function JournalRecordProc(nCode: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdc...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04810

Delphi 编写键盘记录器

unit Unit7;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs, StdCtrls;typeTForm1 = class(TForm)Button1: TButton;MEMO1: TMemo;Button2: ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04111
小键盘练习程序delphi版-Delphi编程技巧大全

小键盘练习程序delphi版

源代码:-------------------------------------------------------------------------unit Unit1;interfaceuses  Windows, Messages, SysUtils, Variants, Classes, Graphics, Controls, ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0529

procedure TForm1.Button1Click(Sender: TObject);varMyhwnd:HWND;beginMyhwnd := FindWindow('ElementClient Window',nil);if Myhwnd <> 0 thenbegin{按下键}PostMessage (Myhwnd, WM_KE...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04811

delphi 全局钩子锁定键盘

//可以锁所有键盘按键和任意组合键,但对于ALT+TAB,CTRL+ALT+DEL无效!//DLL代码如下Library KillKB;uses Wintypes, WinProcs;VaroldHook: HHook;function KBHooKProc(code: Integer; wParam: WPA...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0576

delphi 向Windows窗口发送Alt组合键的问题

关于向Windows窗口发送Alt组合键的问题,这个真是经典问题啊,在网上找了一下,问的人N多,方法差不多,但就是没有很好解决问题。之前找到一个能正确发送的code:(Alt+A)PostMessage(hWnd,WM_SYSKEYDO...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0375
delphi WinAPI: GetKeyNameText - 根据键盘消息获取按键名称-Delphi编程技巧大全

delphi WinAPI: GetKeyNameText – 根据键盘消息获取按键名称

本例效果图:unit Unit1;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Graphics, Controls, Forms,Dialogs;typeTForm1 = class(TForm)procedure FormCreate(Sender: TObject);...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05415

delphi 向其他程序发送模拟按键

向其他程序发送模拟按键:1、用keybd_event:varh : THandle;beginh := FindWindow('TFitForm', '1stOpt - [Untitled1]');SetForegroundWindow(h);keybd_event(VK_CONTROL, MapVirtualKey(VK_CO...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0395

delphi通过代码实现模拟按键的函数

Windows API 的 keybd_event 函数,它可以产生键盘消息。实现向其他窗口模拟真实的按键动作。例如:{按下A键} Edit1.SetFocus; keybd_event(VK_SHIFT, 0, 0, 0); keybd_event(ord('A'), 0, 0, 0...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0437

delphi 利用Hook技术实现键盘监控

在许多系统中,出于安全或其它原因,常常要求随时对键盘进行监控,一个专业的监控程序必须具备两点,一是实时;二是作为指示图标运行。实际应用中把利用Hook(即钩子)技术编写的应用程序添加到...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
05313

delphi 取键盘值

先来写DLLlibrary Help;usesWindows, Messages, SysUtils;var KeyHook: HHook; text1:string;function HookKey(Code: Integer; wParam: WPARAM; lParam: LPARAM): LRESULT; stdcall; const _Key...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04915

Delphi中使用低层钩子 屏蔽Win、Ctrl+ESC、Alt+Tab、Alt+F4

unit uHook;interfaceusesWindows, Messages, SysUtils, Variants, Classes, Controls, Forms, Dialogs, StdCtrls; typetagKBDLLHOOKSTRUCT = packed record vkCode: DWORD;scanCode: DWORD;fla...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
04313

delphi使用API实现模拟按键

SendMessage(TreeView.Handle,TVM_SETBKCOLOR,0,RGB(255,0,0)); 设置TV背景颜色SendMessage(Button.Handle,WM_LBUTTONDOWN,0,0); 鼠标左键按下SendMessage(Button.Handle,WM_LBUTTONUP,0,0); 鼠...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0517

delphi Windows XP下屏蔽Ctrl_Alt_Del键的方法

//调用下面两个函数就可以了procedure RunFuckCAD; //屏蔽Ctrl+Alt+Delprocedure StopFuckCAD; //取消屏蔽Ctrl+Alt+Del点击下载源文件主要代码为:view plaincopy to clipboardprint?unit Fuck_...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0417

在Delphi如何实现模拟组合按键,如发送Ctrl_F的按键消息

利用 keybd_event函数可实现,如下面的代码用以实现在一个公共菜单中模拟Ctrl_F按钮以调用DBGridEH的查找对话框功能:这是在一个ActionList中的某一Action的OnExecute事件代码。view plaincopy ...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
06015

delphi 如何取得键盘每个键

unit keycode; interface uses Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs, StdCtrls; type TForm1 = class(TForm) Label1: TLabel; private { Private declar...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0649

键盘钩子,鼠标钩子,Delphi环境下编写的键盘鼠标钩子的程序示例

介绍了钩子的有关知识,并给出了在Delphi环境下编写的键盘鼠标钩子的程序示例。 关键词:钩子;键盘钩子;鼠标钩子;Delphi 钩子是Windows中消息处理机制的一个要点,通过安装各种钩子,应用程...
Top_Admin的头像-Delphi编程技巧大全Top_Admin3个月前
0506